图层"/>
lisp如何批量选中特定图层
autoCAD里面有【快速选择】功能,输入图层名称,可以选择所有对象。
命令【layiso】,可以隔离图层(第一次使用要输入“S”设置一下,不要【锁定对象】),那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点,如果块里面的图元有这个图层的对象,也会显示,如果选择的话,会把块也选择了。】
使用autolisp程序,快速的选择这个图层的对象,代码如下:
(defunc:tes(/#k2#kwc8)
(setvar"cmdecho"0)
(setvar"blipmode"0)
(if(and(setqc8(entsel"
请选择参考图层"))
(setqc8(cdr(assoc8(entget(carc8)))))
(princ"
请选择这个图层的对象")
(setq#kw(ssget(list(cons8c8))))
)
(progn
(initget"VCSE")
(if(setq#k2(getkWord(strcat"
请选择动作方式或[选择(S)/移动(V)/复制(C)/删除(E)]:")))
(setq#k2(strcase#k2))
(setq#k2"S")
)
(cond
((=#k2"V")(command"_.Move"#kw""pause))
((=#k2"C")(command"_.Copy"#kw""pause))
((=#k2"E")(command"_.Erase"#kw""))
((=#k2"S")(progn(sssetfirstnil#kw)(pause)))
)
)
)
(prin1)
);复制到记事本,以【.lsp】为后缀命名,打开autoCAD,autolisp加载,命令【TES】
;选择参考图层的所有对象;如果块不是这个图层,就不会被选择。
更多推荐
lisp如何批量选中特定图层
发布评论