[编程交流] 试图得到这个Mleaderstyl

;; original code by VVA
(defun make_mleader_style        (mleaderstylename
                         MLDScale                           [color="red"] ;;added/removed arguments[/color]
                         /
                         adoc
                         mldrdict
                         newldrstyle
                         objcolor
                        )
 (vl-load-com)
 (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
 (setq        mldrdict
 (vla-item (vla-get-dictionaries adoc) "ACAD_MLEADERSTYLE")
 ) ;_ end of setq
 (setq        newldrstyle
 (vlax-invoke
   mldrdict
   'addobject
   mleaderstylename
   "AcDbMLeaderStyle"
 ) ;_ end of vlax-invoke
 ) ;_ end of setq
 (setq        objcolor (vla-getinterfaceobject
           (vlax-get-acad-object)
           (strcat "AutoCAD.AcCmColor."
                   (substr (getvar "acadver") 1 2)
           ) ;_ end of strcat
         ) ;_ end of vla-getinterfaceobject
 ) ;_ end of setq                                          [color="red"] ;;this is where I override the colors[/color]
 (vla-put-colorindex objcolor 2)                       [color="red"];;I really don't know what's going on here. i"m trying to understand[/color]
 (vla-put-textcolor newldrstyle objcolor)
 (vla-put-colorindex objcolor 0)
 (vla-put-leaderlinecolor newldrstyle objcolor)
 (foreach item
   (list
     '("AlignSpace" 4)
     '("ArrowSize" 0.125)
     '("BitFlags" 0)
     '("BlockConnectionType" 1)
     '("BlockRotation" 0.0)
     '("BlockScale" 1.0)
     '("BreakSize" 0.125)
     '("ContentType" 2)                ;mtext
     '("Description" "My Style Description")
     '("DoglegLength" 1.25)
     '("DrawLeaderOrderType" 0)
     '("DrawMLeaderOrderType" 1)
     '("EnableBlockRotation" -1)
     '("EnableBlockScale" -1)
     '("EnableDogleg" -1)
     '("EnableFrameText" 0)
     '("EnableLanding" -1)
     '("FirstSegmentAngleConstraint" 0)
     (list "LandingGap"
           (vla-get-landinggap (vla-item mldrdict "Standard"))
     ) ;_ end of list
     '("LeaderLineType" 1)
     '("LeaderLineTypeId" "ByLayer")
     '("LeaderLineTypeId" "ByLayer")
     '("LeaderLineWeight" -3)
     '("MaxLeaderSegmentsPoints" 2)
     '("ScaleFactor" MLDScale)                         [color="red"];;This is where I added the argument MLDScale[/color]
     '("SecondSegmentAngleConstraint" 0)
     '("TextAlignmentType" 0)
     '("TextAngleType" 0)
     '("TextHeight" 1.5)
     '("TextLeftAttachmentType" 4) ;original 3
     '("TextRightAttachmentType" 4);original 3
     '("TextString" "Default\\PText")
     '("TextStyle" "STANDARD")
   ) ;_ end of list
   (vlax-put newldrstyle (car item) (cadr item))
 ) ;_ end of foreach
 newldrstyle
) ;_ end of defun

(list "ScaleFactor" 'MLDScale)

(list "ScaleFactor" MLDScale) ;;This is where I added the argument MLDScale

("ScaleFactor" MLDSCALE)

("ScaleFactor" 10.0)

_$ (setq test 13.0)
13.0
_$ '("a" test)
("a" TEST)
_$