CAD2014 怎么选中某一区域的一个图层
发布网友
发布时间：2022-04-24 03:24
共1个回答
热心网友
时间：2023-11-15 18:34
autoCAD里面有【快速选择】功能，输入图层名称，可以选择所有对象。
命令【layiso】，可以隔离图层（第一次使用要输入“S”设置一下，不要【锁定对象】），那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点，如果块里面的图元有这个图层的对象，也会显示，如果选择的话，会把块也选择了。】
使用autolisp程序，快速的选择这个图层的对象，代码如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(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)]:<" "S" ">")))
(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】
;选择参考图层的所有对象；如果块不是这个图层，就不会被选择。追问你说的好像是右键 [[快速选择]] 然后会选中这张图纸上的所有这个图层．．我自己摸出来一个办法，先选中想要选择的图形线条，然后 [[右键]] [[快速选择]] 把 [[确定]] 上方的 [[附加到当前选择集]] 点掉，然后上方 [[应用到]] 区域 的 [[整个图形]] 就可以更改为 [[当前选择]] 然后再 利用 [[过滤条件]] 选择就可以了．．不过还是谢谢你的帮忙．
热心网友
时间：2023-10-24 17:36
autoCAD里面有【快速选择】功能，输入图层名称，可以选择所有对象。
命令【layiso】，可以隔离图层（第一次使用要输入“S”设置一下，不要【锁定对象】），那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点，如果块里面的图元有这个图层的对象，也会显示，如果选择的话，会把块也选择了。】
使用autolisp程序，快速的选择这个图层的对象，代码如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(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)]:<" "S" ">")))
(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】
;选择参考图层的所有对象；如果块不是这个图层，就不会被选择。追问你说的好像是右键 [[快速选择]] 然后会选中这张图纸上的所有这个图层．．我自己摸出来一个办法，先选中想要选择的图形线条，然后 [[右键]] [[快速选择]] 把 [[确定]] 上方的 [[附加到当前选择集]] 点掉，然后上方 [[应用到]] 区域 的 [[整个图形]] 就可以更改为 [[当前选择]] 然后再 利用 [[过滤条件]] 选择就可以了．．不过还是谢谢你的帮忙．
热心网友
时间：2023-10-24 17:36
autoCAD里面有【快速选择】功能，输入图层名称，可以选择所有对象。
命令【layiso】，可以隔离图层（第一次使用要输入“S”设置一下，不要【锁定对象】），那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点，如果块里面的图元有这个图层的对象，也会显示，如果选择的话，会把块也选择了。】
使用autolisp程序，快速的选择这个图层的对象，代码如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(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)]:<" "S" ">")))
(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】
;选择参考图层的所有对象；如果块不是这个图层，就不会被选择。追问你说的好像是右键 [[快速选择]] 然后会选中这张图纸上的所有这个图层．．我自己摸出来一个办法，先选中想要选择的图形线条，然后 [[右键]] [[快速选择]] 把 [[确定]] 上方的 [[附加到当前选择集]] 点掉，然后上方 [[应用到]] 区域 的 [[整个图形]] 就可以更改为 [[当前选择]] 然后再 利用 [[过滤条件]] 选择就可以了．．不过还是谢谢你的帮忙．
热心网友
时间：2023-10-24 17:36
autoCAD里面有【快速选择】功能，输入图层名称，可以选择所有对象。
命令【layiso】，可以隔离图层（第一次使用要输入“S”设置一下，不要【锁定对象】），那么这个图层的所有对象都显示出来了。这个时候就可以选择所有这个图层的对象了。【不过有个缺点，如果块里面的图元有这个图层的对象，也会显示，如果选择的话，会把块也选择了。】
使用autolisp程序，快速的选择这个图层的对象，代码如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(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)]:<" "S" ">")))
(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】
;选择参考图层的所有对象；如果块不是这个图层，就不会被选择。追问你说的好像是右键 [[快速选择]] 然后会选中这张图纸上的所有这个图层．．我自己摸出来一个办法，先选中想要选择的图形线条，然后 [[右键]] [[快速选择]] 把 [[确定]] 上方的 [[附加到当前选择集]] 点掉，然后上方 [[应用到]] 区域 的 [[整个图形]] 就可以更改为 [[当前选择]] 然后再 利用 [[过滤条件]] 选择就可以了．．不过还是谢谢你的帮忙．
