lisp如何批量选中特定图层 |
您所在的位置:网站首页 › cad选中某一图层的所有对象命令是 › lisp如何批量选中特定图层 |
autoCAD里面有【快速选择】功能,输入图层e69da5e887aa62616964757a686964616f31333337616536名称,可以选择所有对象。 命令【layiso】,可以隔离图层(第一次使用要输入“S”设置一下,不要【锁定对象】),那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点,如果块里面的图元有这个图层的对象,也会显示,如果选择的话,会把块也选择了。】 使用autolisp程序,快速的选择这个图层的对象,代码如下: (defun c:tes ( / #k2 #kw c8) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (and (setq c8 (entsel "\n请选择参考图层")) (setq c8 (cdr (assoc 8 (entget (car c8))))) (princ "\n请选择这个图层的对象") (setq #kw (ssget (list (cons 8 c8)))) ) (progn (initget "V C S E") (if (setq #k2 (getkword (strcat "\n请选择动作方式或[选择(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 (sssetfirst nil #kw) (pause) ) ) ) ) ) (prin1) );复制到记事本,以【.lsp】为后缀命名,打开autoCAD,autolisp加载,命令【TES】 ;选择参考图层的所有对象;如果块不是这个图层,就不会被选择。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |