Topic: change jusifications of attribute in block

[David Bethel]

In vanilla - maybe:

Code - Auto/Visual Lisp: [Select]

1. ;;;Change ATTRIBute Justification To Top Center
2. (defun c:att-tc (/ ss i en an ad)
3.   (and (setq ss (ssget '((0 . "INSERT")(66 . 1))))
4.        (setq i 0)
5.        (while (setq en (ssname ss i))
6.               (setq an (entnext en)
7.                     ad (entget an))
8.               (while (= "ATTRIB" (cdr (assoc 0 ad)))
9.                      (setq ad (subst '(72 . 1) (assoc 72 ad) ad)
10.                            ad (subst '(74 . 3) (assoc 74 ad) ad)
11.                            ad (subst (cons 11 (cdr (assoc 10 ad))) (assoc 11 ad) ad))
12.                      (entmod ad)
13.                      (setq an (entnext an)
14.                            ad (entget an)))
15.               (entupd en)
16.               (setq i (1+ i))))
17.   (prin1))

-David

[kpblc]

If an attribute is multistring, it has no property TextAlignmentPoint (only InsertionPoint and AttachmentPoint properties).

[Coder]

In vanilla - maybe:

Code: [Select]

;;;Change ATTRIBute Justification To Top Center
(defun c:att-tc (ss i en an ad)
  (and (setq ss (ssget '((0 . "INSERT")(66 . 1))))
       (setq i 0)
       (while (setq en (ssname ss i))
              (setq an (entnext en)
                    ad (entget an))
              (while (= "ATTRIB" (cdr (assoc 0 ad)))
                     (setq ad (subst '(72 . 1) (assoc 72 ad) ad)
                           ad (subst '(74 . 3) (assoc 74 ad) ad))
                     (entmod ad)
                     (setq an (entnext an)
                           ad (entget an)))
              (entupd en)
              (setq i (1+ i))))
  (prin1))

-David

I am sorry David , your codes did not work for me . and did not make any change to blocks 
I added the back slash at the top of the routine .

Can you modify it again please ?

many thanks

[Coder]

If an attribute is multistring, it has no property TextAlignmentPoint (only InsertionPoint and AttachmentPoint properties).

Thank you for your reply 

If I removed the function TextAlignmentPoint  , it change to left but the position of the attribute will be irregular 

[kpblc]

Try to use this:

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun test1 (tag / _kpblc-conv-vla-to-list selset att_lst pt)
4.  
5.   (defun _kpblc-conv-vla-to-list (value / res)
6.     (cond
7.       ((listp value)
8.        (mapcar (function _kpblc-conv-vla-to-list) value)
9.        )
10.       ((= (type value) 'variant)
11.        (_kpblc-conv-vla-to-list (vlax-variant-value value))
12.        )
13.       ((= (type value) 'safearray)
14.        (if (>= (vlax-safearray-get-u-bound value 1) 0)
15.          (_kpblc-conv-vla-to-list (vlax-safearray->list value))
16.          ) ;_ end of if
17.        )
18.       ((and (= (type value) 'vla-object)
19.             (vlax-property-available-p value 'count)
20.             ) ;_ end of and
21.        (vlax-for sub value
22.          (setq res (cons sub res))
23.          ) ;_ end of vlax-for
24.        )
25.       (t value)
26.       ) ;_ end of cond
27.     ) ;_ end of defun
28.  
29.   (if (= (type (setq selset (vl-catch-all-apply
30.                               (function
31.                                 (lambda () (ssget '((0 . "INSERT") (66 . 1))))
32.                                 ) ;_ end of function
33.                               ) ;_ end of vl-catch-all-apply
34.                      ) ;_ end of setq
35.                ) ;_ end of type
36.          'pickset
37.          ) ;_ end of =
38.     (progn
39.       (foreach obj (mapcar (function vlax-ename->vla-object)
40.                            ((lambda (/ tab item)
41.                               (repeat (setq tab  nil
42.                                             item (sslength selset)
43.                                             ) ;_ end setq
44.                                 (setq tab (cons (ssname selset (setq item (1- item))) tab))
45.                                 ) ;_ end of repeat
46.                               ) ;_ end of lambda
47.                             )
48.                            ) ;_ end of mapcar
49.         (foreach att (vl-remove-if-not
50.                        (function
51.                          (lambda (x)
52.                            (= (strcase (vla-get-textstring x)) (strcase tag))
53.                            ) ;_ end of lambda
54.                          ) ;_ end of function
55.                        (apply (function append)
56.                               (mapcar (function _kpblc-conv-vla-to-list)
57.                                       (list
58.                                         (vla-getattributes obj)
59.                                         (vla-getconstantattributes obj)
60.                                         ) ;_ end of list
61.                                       ) ;_ end of mapcar
62.                               ) ;_ end of apply
63.                        ) ;_ end of vl-remove-if-not
64.           (setq pt (vl-remove nil
65.                               (mapcar
66.                                 (function
67.                                   (lambda (x)
68.                                     (if (vlax-property-available-p att x)
69.                                       (cons x (vlax-get-property att x))
70.                                       ) ;_ end of if
71.                                     ) ;_ end of lambda
72.                                   ) ;_ end of function
73.                                 '("insertionpoint" "textalignmentpoint")
74.                                 ) ;_ end of mapcar
75.                               ) ;_ end of vl-remove
76.                 ) ;_ end of setq
77.           (vla-put-alignment att acalignmenttopcenter)
78.           (foreach item pt
79.             (vlax-put-property att (car item) (cdr item))
80.             ) ;_ end of foreach
81.           ;; added only this string:
82.           (vla-put-textalignmentpoint att (cdr (assoc "insertionpoint" pt)))
83.           ) ;_ end of foreach
84.         ) ;_ end of foreach
85.       ) ;_ end of progn
86.     ) ;_ end of if
87.   ) ;_ end of defun

Sample of use:

Code - Auto/Visual Lisp: [Select]

1. (test1 "1")

[David Bethel]

I am sorry David , your codes did not work for me . and did not make any change to blocks 
I added the back slash at the top of the routine .

Can you modify it again please ?

many thanks

I fixed the local variables. Can you post an example of 1 of your blocks?  -David

[Lee Mac]

I have error message after I modified your codes to make it left alignment 

; error: Automation Error. Not applicable

Can you please help ?

Hint:

The InsertionPoint property controls the text position when the Alignment property is set to Left, the TextAlignmentPoint controls the text position for all other values of the Alignment property.

[Coder]

I fixed the local variables. Can you post an example of 1 of your blocks?  -David

You routine make changes to attribute string but it moves the attributes to '(0.0 0.0 0.0) 

Thank you .

[/quote]

Try to use this:

Your codes make the attribute to top center and I am looking for left alignment . 

Thank you .

I have error message after I modified your codes to make it left alignment 

; error: Automation Error. Not applicable

Can you please help ?

Hint:

The InsertionPoint property controls the text position when the Alignment property is set to Left, the TextAlignmentPoint controls the text position for all other values of the Alignment property.

I got that lee , but I see the changes to left alignment does not affect the same thing as the attribute editor .

For example , if you change attribute from top center to left with the command eattedit , the attribute goes back to its original position and this is correct and perfect , but with
codes the attributes moves to left but its position keeps the attribute in its current position and this is my CONFUSION. 

Thank you .

[kpblc]

<...>
Your codes make the attribute to top center and I am looking for left alignment .  <...>

Change acalignmenttopcenter to any value you like

[Coder]

<...>
Your codes make the attribute to top center and I am looking for left alignment .  <...>

Change acalignmenttopcenter to any value you like

I changed this from your routine and it give me error message .

Code: [Select]

          ) ;_ end of setq
          (vla-put-alignment att acalignmentleft) ;;; <<< to left alignment
          (foreach item pt (vlax-put-property att (car item) (cdr item))) ;_ end of foreach

; error: Automation Error. Not applicable

[David Bethel]

The problem is determining the existing justification values including dxf groups 10 & 11.  Do you want the attribute to retain its original location and only change the group 72 & 74 values? 

The initial default is group 10 baseline left and group 11 '(0 0 0)  flags 72 & 74 0

I changed the code so that it exchanges group 11 from group 10.  -David

[Coder]

David , Did you try your codes by any chance ?

Your codes still do the same  all attributes go to origin .

Thank you

[David Bethel]

David , Did you try your codes by any chance ?

Your codes still do the same  all attributes go to origin .

It works on my test blocks.  That's why it is important to provide samples as there are lots and lots of scenarios that can lead to unintended errors   -David

[Lee Mac]

David , Did you try your codes by any chance ?

Your codes still do the same  all attributes go to origin .

It works on my test blocks.  That's why it is important to provide samples as there are lots and lots of scenarios that can lead to unintended errors   -David

David,

I believe this:

Code - Auto/Visual Lisp: [Select]

1. (subst (assoc 10 ad) (assoc 11 ad) ad))

Needs to be:

Code - Auto/Visual Lisp: [Select]

1. (subst (cons 11 (cdr (assoc 10 ad))) (assoc 11 ad) ad))

The existing code would move the attributes to the origin if the current attribute alignment is set to Left.

[David Bethel]

Lee,

Yes, you are correct.  My bad for editing on the fly.  The end result could still be unintended if the OP wants the text to retain it's original position and only change the justifacation flags.   -Thanks!  -David