在DXF an中绘制多引线

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

有人知道如何使用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

copy

(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))
[color=blue](vla-put-arrowheadblock[/color]
   (vlax-invoke aspace
  'addmleader
  (append p0 (polar p0 (/ pi 12) 9))
  0
   )
   [color=blue] "YourBlockName")[/color]
 )
)

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

[编程交流] 在DXF an中绘制多引线

发表回复

精选推荐