Jump to content

How to vla-get and vla-set the TextAlignmentType prop for MLEADERS?

3dwannab

By 3dwannab
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

3dwannab Experienced

3dwannab

Posted
Posted

This is the code that I'm having issues with the TextAlignmentType property is the issue.

 

How can I vla-get and vla-put it?

  


(vl-load-com)

;; ---------------------=={ MLEADER_Recreate }==--------------------------
;; -----------------------------------------------------------------------

;; AUTHOR & ADDITIONAL CODE
;; Author:          by 3dwannab, Copyright © 2023

;; ABOUT / NOTES
;; - Recreates MULTILEADER/s with 2 or 3 points
;; - This solves the issues with MLEADER styles been overridden in the properties dialog

;; FUNCTION SYNTAX
;; Short-cut        MR
;; Long-cut         MLEADER_Recreate

;; VERSION          DATE      INFO
;; Version 1.0        2018.08.26    1st draft 2018.07.26
;; Version 1.1        2019.03.18    Added ScaleFactor & TextFrameDisplay to newly created MLs'
;; Version 1.2        2023.08.02    Added TextBackGroundFill to newly created MLs' if it exists on old MLs

;; TO DO LIST
;; - To update with mleader_vlML.lsp in my Help folder
;; 2022.01.25 Test and it seems to be broken.

;; -----------------------------------------------------------------------
;; ------------------=={ MLEADER_Recreate START }==-----------------------

(setq *MLEADER_Recreate-Ver* "1.2")

(defun c:MLEADER_Recreate nil (c:MR))

(defun c:MR (/ acDoc *error* cnt en endata getLay getTxtAlignType getTxtBkgFill getLeaderCnt getStyle getTxtRot getTxtStr getTxtWidth getScaleFactor getTextFrameDisplay ldxf10_1 ldxf10_2 ldxf10_3 lstpts lstptslen obj objnew sel var_cmdecho var_osmode) 

  (defun *error* (errmsg) 
    (and acDoc (vla-EndUndoMark acDoc))
    (and errmsg 
         (not (wcmatch (strcase errmsg) "*CANCEL*,*EXIT*"))
         (princ (strcat "\n<< Error: " errmsg " >>\n"))
    )
    (setvar 'cmdecho var_cmdecho)
    (setvar 'osmode var_osmode)
  )

  (setq acDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (or (vla-EndUndoMark acDoc) (vla-StartUndoMark acDoc))

  (setq var_cmdecho (getvar "cmdecho"))
  (setq var_osmode (getvar "osmode"))
  (setvar 'cmdecho 0)
  (setvar 'osmode 0)

  (setq ss1 (ssget '((0 . "MULTILEADER"))))

  (setq sel (ssadd))
  (setq sel_mls_not_compat (ssadd))
  (setq cnt 0)

  (repeat (setq cnt (sslength ss1)) 

    (setq cnt (1- cnt))

    (setq en                  (_dxf -1 (entget (ssname ss1 cnt)))
          endata              (entget en)
          obj                 (vlax-ename->vla-object en)
          getLay              (vla-get-Layer obj)
          getScaleFactor      (vla-get-ScaleFactor obj)
          getStyle            (vla-get-StyleName obj)
          getTextFrameDisplay (vla-get-TextFrameDisplay obj)
          getTxtBkgFill       (vla-get-TextBackGroundFill obj)
          getTxtAlignType     (vla-get-TextAlignmentType obj)
          getTxtRot           (vla-get-TextRotation obj)
          getTxtStr           (vla-get-TextString obj)
          getTxtWidth         (vla-get-TextWidth obj)
          lstpts              (vl-remove-if-not 
                                '(lambda (p) (eq (car p) 10))
                                (reverse endata)
                              )
          lstptslen           (length lstpts)
          ldxf10_1            (cdr (nth 1 (reverse lstpts)))
          ldxf10_2            (cdr (nth 3 (reverse lstpts)))
          ldxf10_3            (cdr (nth 2 (reverse lstpts)))
          getLeaderCnt        (vla-get-LeaderCount obj)
    ) ;; setq

    (cond 
      ((or (> lstptslen 5) (< lstptslen 4))
       (ssadd en sel_mls_not_compat)
      )

      ((or (= lstptslen 5) (= lstptslen 4))
       (progn 
         (if (= lstptslen 5) 
           (command "_.MLEADER" 
                    "_H"
                    "_L"
                    "_O"
                    "_M"
                    3
                    "_X"
                    "_non"
                    (trans ldxf10_1 0 1)
                    "_non"
                    (trans ldxf10_2 0 1)
                    "_non"
                    (trans ldxf10_3 0 1)
                    ""
           )
         )
         (if (= lstptslen 4) 
           (command "_.MLEADER" 
                    "_H"
                    "_L"
                    "_O"
                    "_M"
                    2
                    "_X"
                    "_non"
                    (trans ldxf10_1 0 1)
                    "_non"
                    (trans ldxf10_3 0 1)
                    ""
           )
         )
         (setq entnew (entlast)
               objnew (vlax-ename->vla-object entnew)
         )
         (if en 
           (progn 
             (if (/= getTxtWidth 0) 
               (vla-put-TextWidth objnew (/ getTxtWidth getScaleFactor)) ;; Testing the dividing the text width by the scale factor of the old mleader.
             )
             (vla-put-TextBackGroundFill objnew getTxtBkgFill)
             (vla-put-TextAlignmentType objnew getTxtAlignType)
             (vla-put-Layer objnew getLay)
             (vla-put-ScaleFactor objnew getScaleFactor)
             (vla-put-StyleName objnew getStyle)
             (vla-put-TextFrameDisplay objnew getTextFrameDisplay)
             (vla-put-TextRotation objnew getTxtRot)
             (vla-put-TextString objnew getTxtStr)
             (entdel en)
             (ssadd entnew sel)
           )
         )
       )
      )
    )
  ) ;; repeat

  (if (> (sslength sel) 0) 
    (progn 
      (princ 
        (strcat "\n: ------------------------------\n\t\t<<< You've created " 
                (itoa (sslength sel))
                (if (> (sslength sel) 1) " new MULTILEADERS" " new MULTILEADER")
                ". A legend has been born >>>\n: ------------------------------\n"
        )
      )
      (sssetfirst nil sel)
    )
  )

  (if (and sel (> (sslength sel_mls_not_compat) 0)) 
    (progn 
      (princ 
        (strcat "\n: ------------------------------\n\t\t*** Program found " 
                (itoa (sslength sel_mls_not_compat))
                (if (> (sslength sel_mls_not_compat) 1) 
                  " MULTILEADERS that are"
                  " MLEADER that is"
                )
                " not compatible ***\n: ------------------------------\n"
        )
      )
      (princ 
        (strcat "\n: ------------------------------\n\t\t*** NOTE: " 
                (itoa (sslength sel))
                (if (> (sslength sel) 1) 
                  " successfully converted MULTILEADERS have been"
                  " successfully converted MULTILEADER has been"
                )
                " selected ***\n: ------------------------------\n"
        )
      )
    )
  )

  (*error* nil)
  (princ)
)  ;; end MR defun

;; -----------------------------------------------------------------------
;; ----------------------=={ Functions START }==--------------------------

;;----------------------------------------------------------------------;;
;; _dxf
;; Finds the association pair, strips 1st element
;; args   - dxfcode elist
;; Example  - (_dxf -1 (entget (ssname (ssget) 0)))
;; Returns  - <Entity name: xxxxxxxxxxx>

(defun _dxf (code elist) 
  (cdr (assoc code elist))
)

;; -----------------------------------------------------------------------
;; ---------------------=={ Functions END }==-- --------------------------

(princ 
  (strcat "\n: ------------------------------\n\"3dwannab_MLEADER_Recreate.lsp\" loaded | Version " 
          *MLEADER_Recreate-Ver*
          " by 3dwannab. Type \"MLEADER_Recreate\" OR \"MR\" to run.\n: ------------------------------\n"
  )
)
(princ)

;; -----------------------------------------------------------------------
;; -------------------=={ MLEADER_Recreate END }==------------------------

(c:MR) ;; Uncommet for testing

 

Tsuky Community Regular

Tsuky

Posted
Posted

Isn't it rather the TextJustify property you want to get instead of TextAlignmentType?

  • Like 1
mhupp Grand Master

mhupp

Posted
Posted

IDK what kinda of mleader your using but this is what dumps when selecting one.

(RO) = Read Only and can only use vla-get

  

; IAcadMLeader 3d8a0ae0 : TeighaX Multi-Leader Interface
; Property values :
;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000002670DAF0>
;   ArrowheadBlock = ""
;   ArrowheadSize = 0.18
;   ArrowheadType = 0
;   BlockConnectionType = 0
;   BlockScale = 1.0
;   color = 256
;   ContentBlockName = ""
;   ContentBlockType = 6
;   ContentType = 2
;   Database (RO) = #<VLA-OBJECT IAcadDatabase 000000003DF087E8>
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000003D8D33E8>
;   DogLegged = -1
;   DoglegLength = 0.36
;   EntityName (RO) = "AcDbMLeader"
;   EntityType (RO) = NIL
;   Handle (RO) = "81"
;   HasExtensionDictionary (RO) = -1
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000003DF7D9A8>
;   LandingGap = 0.09
;   Layer = "0"
;   LeaderCount (RO) = 1
;   LeaderLineColor = #<VLA-OBJECT IAcadAcCmColor 000000000299F328>
;   LeaderLineType = ""
;   LeaderLineWeight = -2
;   LeaderType = 1
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   ObjectID (RO) = 44195888
;   ObjectID32 (RO) = 44195888
;   ObjectName (RO) = "AcDbMLeader"
;   OwnerID (RO) = 1034257008
;   OwnerID32 (RO) = 1034257008
;   PlotStyleName = "ByLayer"
;   ScaleFactor = 1.0
;   StyleName = "Standard"
;   TextAttachmentDirection = 0
;   TextBackgroundFill = 0
;   TextBottomAttachmentType = 0
;   TextDirection = 1
;   TextFrameDisplay = 0
;   TextHeight = 0.18
;   TextJustify = 1
;   TextLeftAttachmentType = 1
;   TextLineSpacingDistance = NIL
;   TextLineSpacingFactor = 1.0
;   TextLineSpacingStyle = 1
;   TextRightAttachmentType = 3
;   TextRotation = 0.0
;   TextString = ""
;   TextStyleName = "Standard"
;   TextTopAttachmentType = 0
;   TextWidth = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000000000299FF28>
;   Visible = -1
;
; Methods supported :
;   AddLeader ()
;   AddLeaderLine (2)
;   AddLeaderLineEx (1)
;   ArrayPolar (3)
;   ArrayRectangular (6)
;   Copy ()
;   Delete ()
;   Erase ()
;   GetBlockAttributeValue (1)
;   GetBlockAttributeValue32 (1)
;   GetBoundingBox (2)
;   GetDoglegDirection (1)
;   GetExtensionDictionary ()
;   GetLeaderIndex (1)
;   GetLeaderLineIndexes (1)
;   GetLeaderLineVertices (1)
;   GetVertexCount (1)
;   GetXData (3)
;   Highlight (1)
;   IntersectWith (2)
;   Mirror (2)
;   Mirror3D (3)
;   Move (2)
;   RemoveLeader (1)
;   RemoveLeaderLine (1)
;   Rotate (2)
;   Rotate3D (3)
;   ScaleEntity (2)
;   SetBlockAttributeValue (2)
;   SetBlockAttributeValue32 (2)
;   SetDoglegDirection (2)
;   SetLeaderLineVertices (2)
;   SetXData (2)
;   TransformBy (1)
;   Update ()

 

  • Like 1
3dwannab Experienced

3dwannab

Posted
  • Author
Posted

Yes, thanks @hosneyalaa 

 

TextJustify was the one.

  


(vl-load-com)

;; ---------------------=={ MLEADER_Recreate }==--------------------------
;; -----------------------------------------------------------------------

;; AUTHOR & ADDITIONAL CODE
;; Author:          by 3dwannab, Copyright © 2023

;; ABOUT / NOTES
;; - Recreates MULTILEADER/s with 2 or 3 points
;; - This solves the issues with MLEADER styles been overridden in the properties dialog

;; FUNCTION SYNTAX
;; Short-cut        MR
;; Long-cut         MLEADER_Recreate

;; VERSION          DATE      INFO
;; Version 1.0        2018.08.26    1st draft 2018.07.26
;; Version 1.1        2019.03.18    Added ScaleFactor & TextFrameDisplay to newly created MLs'
;; Version 1.2        2023.08.02    Added TextBackGroundFill to newly created MLs' if it exists on old MLs
;; Version 1.3        2023.08.24    Added TextJustify to newly created MLs'

;; TO DO LIST
;; - To update with mleader_vlML.lsp in my Help folder

;; -----------------------------------------------------------------------
;; ------------------=={ MLEADER_Recreate START }==-----------------------

(setq *MLEADER_Recreate-Ver* "1.2")

(defun c:MLEADER_Recreate nil (c:MR))

(defun c:MR (/ acDoc *error* cnt en endata getLay getTxtJustify getTxtBkgFill getLeaderCnt getStyle getTxtRot getTxtStr getTxtWidth getScaleFactor getTextFrameDisplay ldxf10_1 ldxf10_2 ldxf10_3 lstpts lstptslen obj objnew sel var_cmdecho var_osmode) 

  (defun *error* (errmsg) 
    (and acDoc (vla-EndUndoMark acDoc))
    (and errmsg 
         (not (wcmatch (strcase errmsg) "*CANCEL*,*EXIT*"))
         (princ (strcat "\n<< Error: " errmsg " >>\n"))
    )
    (setvar 'cmdecho var_cmdecho)
    (setvar 'osmode var_osmode)
  )

  (setq acDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (or (vla-EndUndoMark acDoc) (vla-StartUndoMark acDoc))

  (setq var_cmdecho (getvar "cmdecho"))
  (setq var_osmode (getvar "osmode"))
  (setvar 'cmdecho 0)
  (setvar 'osmode 0)

  (setq ss1 (ssget '((0 . "MULTILEADER"))))

  (setq sel (ssadd))
  (setq sel_mls_not_compat (ssadd))
  (setq cnt 0)

  (repeat (setq cnt (sslength ss1)) 

    (setq cnt (1- cnt))

    (setq en                  (_dxf -1 (entget (ssname ss1 cnt)))
          endata              (entget en)
          obj                 (vlax-ename->vla-object en)
          getLay              (vla-get-Layer obj)
          getScaleFactor      (vla-get-ScaleFactor obj)
          getStyle            (vla-get-StyleName obj)
          getTextFrameDisplay (vla-get-TextFrameDisplay obj)
          getTxtBkgFill       (vla-get-TextBackGroundFill obj)
          getTxtJustify       (vla-get-TextJustify obj)
          getTxtRot           (vla-get-TextRotation obj)
          getTxtStr           (vla-get-TextString obj)
          getTxtWidth         (vla-get-TextWidth obj)
          lstpts              (vl-remove-if-not 
                                '(lambda (p) (eq (car p) 10))
                                (reverse endata)
                              )
          lstptslen           (length lstpts)
          ldxf10_1            (cdr (nth 1 (reverse lstpts)))
          ldxf10_2            (cdr (nth 3 (reverse lstpts)))
          ldxf10_3            (cdr (nth 2 (reverse lstpts)))
          getLeaderCnt        (vla-get-LeaderCount obj)
    ) ;; setq

    (cond 
      ((or (> lstptslen 5) (< lstptslen 4))
       (ssadd en sel_mls_not_compat)
      )

      ((or (= lstptslen 5) (= lstptslen 4))
       (progn 
         (if (= lstptslen 5) 
           (command "_.MLEADER" 
                    "_H"
                    "_L"
                    "_O"
                    "_M"
                    3
                    "_X"
                    "_non"
                    (trans ldxf10_1 0 1)
                    "_non"
                    (trans ldxf10_2 0 1)
                    "_non"
                    (trans ldxf10_3 0 1)
                    ""
           )
         )
         (if (= lstptslen 4) 
           (command "_.MLEADER" 
                    "_H"
                    "_L"
                    "_O"
                    "_M"
                    2
                    "_X"
                    "_non"
                    (trans ldxf10_1 0 1)
                    "_non"
                    (trans ldxf10_3 0 1)
                    ""
           )
         )
         (setq entnew (entlast)
               objnew (vlax-ename->vla-object entnew)
         )
         (if en 
           (progn 
             (if (/= getTxtWidth 0) 
               (vla-put-TextWidth objnew (/ getTxtWidth getScaleFactor)) ;; Testing the dividing the text width by the scale factor of the old mleader.
             )
             (vla-put-TextBackGroundFill objnew getTxtBkgFill)
             (vla-put-TextJustify objnew getTxtJustify)
             (vla-put-Layer objnew getLay)
             (vla-put-ScaleFactor objnew getScaleFactor)
             (vla-put-StyleName objnew getStyle)
             (vla-put-TextFrameDisplay objnew getTextFrameDisplay)
             (vla-put-TextRotation objnew getTxtRot)
             (vla-put-TextString objnew getTxtStr)
             (entdel en)
             (ssadd entnew sel)
           )
         )
       )
      )
    )
  ) ;; repeat

  (if (> (sslength sel) 0) 
    (progn 
      (princ 
        (strcat "\n: ------------------------------\n\t\t<<< You've created " 
                (itoa (sslength sel))
                (if (> (sslength sel) 1) " new MULTILEADERS" " new MULTILEADER")
                ". A legend has been born >>>\n: ------------------------------\n"
        )
      )
      (sssetfirst nil sel)
    )
  )

  (if (and sel (> (sslength sel_mls_not_compat) 0)) 
    (progn 
      (princ 
        (strcat "\n: ------------------------------\n\t\t*** Program found " 
                (itoa (sslength sel_mls_not_compat))
                (if (> (sslength sel_mls_not_compat) 1) 
                  " MULTILEADERS that are"
                  " MLEADER that is"
                )
                " not compatible ***\n: ------------------------------\n"
        )
      )
      (princ 
        (strcat "\n: ------------------------------\n\t\t*** NOTE: " 
                (itoa (sslength sel))
                (if (> (sslength sel) 1) 
                  " successfully converted MULTILEADERS have been"
                  " successfully converted MULTILEADER has been"
                )
                " selected ***\n: ------------------------------\n"
        )
      )
    )
  )

  (*error* nil)
  (princ)
)  ;; end MR defun

;; -----------------------------------------------------------------------
;; ----------------------=={ Functions START }==--------------------------

;;----------------------------------------------------------------------;;
;; _dxf
;; Finds the association pair, strips 1st element
;; args   - dxfcode elist
;; Example  - (_dxf -1 (entget (ssname (ssget) 0)))
;; Returns  - <Entity name: xxxxxxxxxxx>

(defun _dxf (code elist) 
  (cdr (assoc code elist))
)

;; -----------------------------------------------------------------------
;; ---------------------=={ Functions END }==-- --------------------------

(princ 
  (strcat "\n: ------------------------------\n\"3dwannab_MLEADER_Recreate.lsp\" loaded | Version " 
          *MLEADER_Recreate-Ver*
          " by 3dwannab. Type \"MLEADER_Recreate\" OR \"MR\" to run.\n: ------------------------------\n"
  )
)
(princ)

;; -----------------------------------------------------------------------
;; -------------------=={ MLEADER_Recreate END }==------------------------

; (c:MR) ;; Uncommet for testing

 

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...