插入At的多重引线

rod_smithsr · 发表于 2022-7-6 08:26:42

帮助我需要一个lisp，允许多重引线在我将多重引线与动态块关联后自动插入块属性。例如，我在模型空间中有几个带有属性的动态块，我在图纸空间中标记它们。在我选择一个多重引线（我用一个块创建）后，我希望该多重引线自动插入Im标记的设备编号。帮助

SLW210 · 发表于 2022-7-6 08:47:05

你试过田地吗？

rod_smithsr · 发表于 2022-7-6 09:01:39

不，我没有。用那种方法可以做到吗？

SLW210 · 发表于 2022-7-6 09:21:21

很可能。你能发一封信吗。带有相关块、多重引线等的图纸。？

fixo · 发表于 2022-7-6 09:32:17

不确定您当前的版本，但可以在2009年完成：

[code]（defun C:attm（/acsp adoc blk fld id mlead p1 p2 ptarr sset）（vl load com）（或adoc（setq adoc（vla get activedocument（vlax get acad object）））（if（and（=（getvar“tilemode”）0）（=（getvar“cvport”）1））（setq acsp（vla get paperspace adoc））（setq acsp（vla get modelspace adoc））（而（setq sset（ssget“+：S:E:L“（list（cons 0“insert”）（cons 66 1）））（setq blk（vlax ename->vla object（ssname sset 0））（foreach att（vlax invoke blk’getattributes）（if（eq“MYTAG”（vla get tagstring att））；

[编程交流] 插入At的多重引线

发表回复

精选推荐