vla-AddMLeader函数用法

xgr

Lisp在创建多重引线时，有个函数vla-AddMLeader，但不知道怎么用，没有函数说明吗， 求助大家，谢谢！

vectra

AutoCAD帮助 ->开发人员文档 -> ActiveX and VBA Reference ->Methods -> AddMLeader Method

xgr

2. (defun c:test()
   
3. ;;; 这个范例在模型空间中建立一个具有关联注释的Leader 对象
   
4. ;;; 接着使用ArrowheadType属性来改变
   
5. ;;; 箭头的可见外观（造型）
   
6.   (VL-LOAD-COM)
   
7.   (setq AcadObject(vlax-get-acad-object)
   
8.         AcadDocument(vla-get-ActiveDocument Acadobject)
   
9.         mSpace(vla-get-ModelSpace Acaddocument)
   
10.   )
    
11. ;;; 定义新的 MText 对象
    
12.   (setq textString "嗨，你好。")
    
13.   (setq insertionPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
    
14.   (vlax-safearray-fill insertionPnt '(50 50 0))
    
15.   (setq width 20)
    
16. ;;; 在模型空间中建立 MText 对象
    
17.   (setq MTextObj(vla-AddMText mSpace insertionPnt width textString))
    
18. ;;; 引线的数据
    
19.   (setq pnts(vlax-make-safearray vlax-vbDouble '(0 . 5)))
    
20.   (vlax-safearray-fill pnts '(0 0 0 40 40 0))
    
21.   (setq leaderType acLineWithArrow)
    
22. ;;; 在模型空间中建立 MLeader 对象，接着将MText对象设成Leader的注释，
    
23. ;;; 以使用新的MText对象和MLeader建立关联
    
24.   (setq annotationObject MTextObj)
    
25.   ;;(setq leaderObj(vla-AddLeader mSpace pnts annotationObject leaderType))
    
26. (setq MleaderObj(vla-AddMLeader <FONT color=red>pnts </FONT>annotationObject leaderType))
    
27.   (vla-ZoomExtents AcadObject)
    
28. ;;; 读取并显示当前的箭头类型
    
29.   (princ "这个对象的箭头类型是:")
    
30.   (princ (vla-get-ArrowheadType MleaderObj))(princ "\n")
    
31. ;;; 改变这个对象的箭头类型
    
32.   (vla-put-ArrowheadType MleaderObj acArrowBoxBlank)
    
33.   (vla-ZoomExtents AcadObject)
    
34. ;;; 读取并显示当前的箭头类型
    
35.   (princ "这个对象的箭头类型现在设定为:")
    
36.   (princ (vla-get-ArrowheadType MleaderObj))(princ "\n")
    
37.   (princ)
    
38. )

(defun c:test()<br /> ;;; 这个范例在模型空间中建立一个具有关联注释的Leader 对象<br /> ;;; 接着使用ArrowheadType属性来改变<br /> ;;; 箭头的可见外观（造型）<br />   (VL-LOAD-COM)<br />   (setq AcadObject(vlax-get-acad-object)<br />         AcadDocument(vla-get-ActiveDocument Acadobject)<br />         mSpace(vla-get-ModelSpace Acaddocument)<br />   )<br /> ;;; 定义新的 MText 对象<br />   (setq textString "嗨，你好。")<br />   (setq insertionPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))<br />   (vlax-safearray-fill insertionPnt '(50 50 0))<br />   (setq width 20)<br /> ;;; 在模型空间中建立 MText 对象<br />   (setq MTextObj(vla-AddMText mSpace insertionPnt width textString))<br /> ;;; 引线的数据<br />   (setq pnts(vlax-make-safearray vlax-vbDouble '(0 . 5)))<br />   (vlax-safearray-fill pnts '(0 0 0 40 40 0))<br />   (setq leaderType acLineWithArrow)<br /> ;;; 在模型空间中建立 MLeader 对象，接着将MText对象设成Leader的注释，<br /> ;;; 以使用新的MText对象和MLeader建立关联<br />   (setq annotationObject MTextObj)<br />   ;;(setq leaderObj(vla-AddLeader mSpace pnts annotationObject leaderType))<br /> (setq MleaderObj(vla-AddMLeader <FONT color=red>pnts </FONT>annotationObject leaderType))<br />   (vla-ZoomExtents AcadObject)<br /> ;;; 读取并显示当前的箭头类型<br />   (princ "这个对象的箭头类型是:")<br />   (princ (vla-get-ArrowheadType MleaderObj))(princ "\n")<br /> ;;; 改变这个对象的箭头类型<br />   (vla-put-ArrowheadType MleaderObj acArrowBoxBlank)<br />   (vla-ZoomExtents AcadObject)<br /> ;;; 读取并显示当前的箭头类型<br />   (princ "这个对象的箭头类型现在设定为:")<br />   (princ (vla-get-ArrowheadType MleaderObj))(princ "\n")<br />   (princ)<br /> )

简单修改例子，出现错误，
参数类型错误: VLA-OBJECT #<safearray...>; 出错后退出
这个点数组类型需要什么参数类型。

smartstar

给你参考：
(defun c:mlte (/) (c:MLeaderToExistingtext))
(defun c:MLeaderToExistingtext (/)
(vl-load-com)
  (cond
    ;;Select the text/mtext objects
    ((or
       (null (setq ss1 (ssget ":S" '((0 . "text,mtext")))))
       (= 0 (setq ssl (sslength ss1)))
     )
     nil                                ;nothing selected
    )
    (T
     (setq
       Textobj        (vlax-ename->vla-object (ssname ss1 0))
       ActSpace        (if (= 0 (getvar "cvport"))
                  (vla-get-paperspace
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
                  (vla-get-modelspace
                    (vla-get-activedocument (vlax-get-acad-object))
                  )
                )
       StartPt        (getpoint "\nPick location for point of arrow head: ")
       txt        (vla-get-TextString Textobj)

       TextPt
                (vla-get-insertionpoint textobj)
       TextPt
                (vlax-variant-value TextPt)
       TextPt
                (vlax-safearray->list TextPt)
       ptlist
                (vlax-make-safearray
                  vlax-vbdouble
                  '(0 . 5)
                )
       ptlist
                (vlax-safearray-fill ptlist (append StartPt TextPt))
       MLObj
                (vla-addmleader
                  ActSpace
                  ptlist
                  'LeaderIndex
                )
     )
     (vla-put-textstring mlobj txt)
     (vla-delete Textobj)

    )
  )
)

xgr

非常感谢！