好的，我在互联网上找到了这段代码，它允许我选择多个边界，在所有边界上放置一个块，但我必须一次高亮显示所有边界，并且图形中有许多层和其他对象，这很麻烦。
我曾尝试编辑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? [Yes/No] : "))
- (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)
- )
谁能帮我一下吗？ | 
置顶卡
