lisp如何批量选中特定图层

您所在的位置:网站首页 cad选中某一图层的所有对象命令是 lisp如何批量选中特定图层

lisp如何批量选中特定图层

2024-06-30 14:37| 来源: 网络整理| 查看: 265

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