社区 › Auto Lisp › 在DXF an中绘制多引线

harrison-matt 发表于 2022-7-6 09:58:39

在DXF an中绘制多引线

有人知道如何使用visual lisp和dxf绘制多重引线吗？
 
谨致问候，
 
马特

mkweaver 发表于 2022-7-6 10:23:09

(defun c:test1 ()
(setq aspace
(if (= 1
(vla-get-activespace
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
)
   )
   (vla-get-modelspace doc)
   (vla-get-paperspace doc)
)
)
(while (setq p0 (getpoint))
   (vlax-invoke aspace
'addmleader
(append p0 (polar p0 (/ pi 4) 3))
0
   )
)
)

harrison-matt 发表于 2022-7-6 10:40:17

它工作得很好，我唯一的问题是：如果我当前的引线样式包含用户定义的块，那么在绘制多重引线时，我在哪里可以指定要包含该块的程序？
 
马特

pBe 发表于 2022-7-6 11:10:55

 
如果当前的多重引线样式确实有用户定义的块，则每次使用该样式时都会显示该块
 
现在，这是一个overide
 
(defun c:test1 ()
(setq aspace
(if (= 1
(vla-get-activespace
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
)
   )
   (vla-get-modelspace doc)
   (vla-get-paperspace doc)
)
)
(while (setq p0 (getpoint))
(vla-put-arrowheadblock
   (vlax-invoke aspace
'addmleader
(append p0 (polar p0 (/ pi 12) 9))
0
   )
    "YourBlockName")
)
)

 
可以使用变量作为块名，但需要事先知道块名或添加块名提示

查看完整版本: 在DXF an中绘制多引线