Topic: Alay Text,Mtrext to line

[PM]

Hi i use Tharwat to alay text ,mtext on line. This code at the beginning work only for mtext. I add text and i change acAlignmentTopCenter to acAlignmentMiddleCenter. After this changes text work fine. But when i try to select mtext gives me this error

; error: ActiveX Server returned the error: unknown name: Alignment

I don't know why. Can any one help

Thanks

Code - Auto/Visual Lisp: [Select]

1. (defun c:Atcl (/ l ss i sn v p e)
2. (vl-load-com)
3. ;;; Tharwat 31. May. 2012 ;;;
4.   (if (and (setq l (car (entsel "\n Select Line :")))
5.            (eq (cdr (assoc 0 (entget l))) "LINE")
6.            (progn
7.              (prompt "SelectText,Mtext ")
8.              (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
9.            )
10.       )
11.     (repeat (setq i (sslength ss))
12.       (setq sn (ssname ss (setq i (1- i))))
13.       (setq v (vlax-ename->vla-object sn))
14.       (setq p (vlax-curve-getclosestpointto
15.                 l
16.                 (cdr (assoc 10 (entget sn)))
17.               )
18.       )
19.       (if (eq (cdr (assoc 0 (setq e (entget sn)))) "TEXT,MTEXT")
20.         (progn
21.           (entmod (subst (cons 71 5) (assoc 71 e) e))
22.           (vla-put-insertionpoint v (vlax-3d-point p))
23.         )
24.         (progn
25.          ;(vla-put-alignment v acAlignmentTopCenter)
26.           (vla-put-alignment v acAlignmentMiddleCenter)
27.           (vla-put-TextAlignmentPoint v (vlax-3D-point p))
28.         )
29.       )
30.     )
31.   )
32.   (princ)
33. )
34.  
35.  

[ronjonp]

As the error states alignment is not one of the properties of MTEXT. You will need to check if the item is MTEXT or TEXT then apply the appropriate properties.

Use this to inspect what properties are available.

Code - Auto/Visual Lisp: [Select]

1. (if (setq e (car (entsel)))
2.   (vlax-dump-object (vlax-ename->vla-object e) t)
3. )
4. ;; or
5. (dumpallproperties (car (entsel)))
6. ;; or

https://help.autodesk.com/view/ACD/2023/ENU/?guid=GUID-A809CD71-4655-44E2-B674-1FE200B9FE30

[PM]

I don't know how to fix it.Can any one help?

Thanks

[BIGAL]

like this

Code: [Select]

(setq ent (cdr (assoc 0 (setq e (entget sn)))))
(if (or (eq ent  "TEXT") (eq ent "MTEXT"))
        (progn
          (entmod (subst (cons 71 5) (assoc 71 e) e))
          (vla-put-insertionpoint v (vlax-3d-point p))
       
(if (eq ent "TEXT)
        (progn
         ;(vla-put-alignment v acAlignmentTopCenter)
          (vla-put-alignment v acAlignmentMiddleCenter)
          (vla-put-TextAlignmentPoint v (vlax-3D-point p))
        )
(progn
       ;  do the mtext stuff here
        )
)
)
      )

[PM]

Hi BIIGAL. Thanks for the replay. I try your code. Move Text and Mtext on the line but rotate upside down all the Text and i don't know why?

Code - Auto/Visual Lisp: [Select]

1.     (defun c:test (/ l ss i sn v p e)
2.     (vl-load-com)
3.     ;;; Tharwat 31. May. 2012 ;;;
4.       (if (and (setq l (car (entsel "\n Select Line :")))
5.                (eq (cdr (assoc 0 (entget l))) "LINE")
6.                (progn
7.                  (prompt "SelectText,Mtext ")
8.                  (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
9.                )
10.           )
11.         (repeat (setq i (sslength ss))
12.           (setq sn (ssname ss (setq i (1- i))))
13.           (setq v (vlax-ename->vla-object sn))
14.           (setq p (vlax-curve-getclosestpointto
15.                     l
16.                     (cdr (assoc 10 (entget sn)))
17.                   )
18.           )
19.  
20.  
21. (setq ent (cdr (assoc 0 (setq e (entget sn)))))
22. (if (or (eq ent  "TEXT") (eq ent "MTEXT"))
23.         (progn
24.           (entmod (subst (cons 71 5) (assoc 71 e) e))
25.           (vla-put-insertionpoint v (vlax-3d-point p))
26.        
27.                 (if (eq ent "TEXT")
28.         (progn
29.          ;(vla-put-alignment v acAlignmentTopCenter)
30.           (vla-put-alignment v acAlignmentMiddleCenter)
31.           (vla-put-TextAlignmentPoint v (vlax-3D-point p))
32.         )
33.         (progn
34.        ;  do the mtext stuff here
35.                  (vla-put-alignment v acAlignmentMiddleCenter)
36.           (vla-put-TextAlignmentPoint v (vlax-3D-point p))
37.         )
38.                 )
39.                 )
40.       )
41.  
42.  
43.          
44.         )
45.       )
46.       (princ)
47.     )
48.      
49.  

Thanks

[PM]

Any ideas?

Thanks