lisp中的层选择
好的，我在互联网上找到了这段代码，它允许我选择多个边界，在所有边界上放置一个块，但我必须一次高亮显示所有边界，并且图形中有许多层和其他对象，这很麻烦。我曾尝试编辑lisp以选择同一层上的所有内容，并以这种方式进行操作，但没有成功。
此外，lisp允许我为放置在线路上的块设置属性。是否有代码在lisp中设置这些值，以便我可以在激活lisp后立即应用它？
分享人：“T.Willey”@http://forums.autodesk.com/
(defun c:MultiMeasure (/ ss BlkName opt1 Dist cnt1)
(if (setq ss (ssget))
(progn
(while
(and
(setq BlkName (getstring "\n Enter name of block to insert: "))
(not (tblsearch "block" BlkName))
)
)
(initget "Y N")
(setq opt1 (getstring "\n Align block with object? : "))
(if (not opt1)
(setq opt1 "Y")
)
(setq Dist (getdist "\n Specify length of segment: "))
(setq cnt1 0)
(if (and opt1 Dist BlkName)
(while (setq Ent (ssname ss cnt1))
(command "_.measure" Ent "_b" BlkName opt1 Dist)
(setq cnt1 (1+ cnt1))
)
)
)
)
(princ)
)
谁能帮我一下吗？
我不太明白Mantis001是什么意思。
请举例，以便更好地理解。
页:
[1]