发布于：2009-09-06 15:48:06
来自：建筑设计/CAD下载及教程
[复制转发]
;;;=================================================*
;;; 有关图层的实用工具 *
;;; *
;;; *
;;;=================================================*
;;; 功能：选择指定对象所在图层的所有对象 *
;;; 参数：无 *
;;; 返回：执行本程序后，所在图层所有对象呈被选择状态*
;;; 日期：zml84 于 2009-03-18 *
(
defun
C:TC
(
)
(
if
(
setq
SS
(
entsel
"\n点取对象: "
)
)
(
progn
(
setq
ENT
(
entget
(
car
SS
)
)
LAYER
(
cdr
(
assoc
8
ENT
)
)
SS
(
ssget
"x"
(
list
(
cons
8
LAYER
)
)
)
)
(
sssetfirst
NIL
SS
)
)
)
(
princ
)
)
全部回复（17 ）
只看楼主 我来说两句-
zhaoxiacai
沙发
你好，现在只能选一个对象进行框选，能否先选择几个不同图层的对象再进行框选啊？
2017-06-23 09:48:23
赞同0
-
alvin2010
板凳
高手啊，难则不会，会则不难
2010-12-11 10:26:11
赞同0
加载更多回复 举报
回复 举报