TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: PM on April 27, 2022, 01:54:01 PM

Title: Alay Text,Mtrext to line
Post by: PM on April 27, 2022, 01:54:01 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

Quote
; 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)
  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))
  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)
  28.         )
  29.       )
  30.     )
  31.   )
  32.   (princ)
  33. )
  34.  
  35.  
Title: Re: Alay Text,Mtrext to line
Post by: ronjonp on April 27, 2022, 02:32:56 PM
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
Title: Re: Alay Text,Mtrext to line
Post by: PM on April 28, 2022, 10:45:03 AM
I don't know how to fix it.Can any one help?

Thanks
Title: Re: Alay Text,Mtrext to line
Post by: BIGAL on April 28, 2022, 08:11:52 PM
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
        )
)
)
      )
Title: Re: Alay Text,Mtrext to line
Post by: PM on April 29, 2022, 02:53:25 AM
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))
  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)
  32.         )
  33.         (progn
  34.        ;  do the mtext stuff here
  35.                  (vla-put-alignment v acAlignmentMiddleCenter)
  37.         )
  38.                 )
  39.                 )
  40.       )
  41.  
  42.  
  43.          
  44.         )
  45.       )
  46.       (princ)
  47.     )
  48.      
  49.  

Thanks
Title: Re: Alay Text,Mtrext to line
Post by: PM on May 03, 2022, 07:00:01 PM
Any ideas?

Thanks