图层工具 之 选择指定对象所在图层的所有对象

;;;=================================================*
;;; 有关图层的实用工具 *
;;; *
;;; *
;;;=================================================*
;;; 功能：选择指定对象所在图层的所有对象 *
;;; 参数：无 *
;;; 返回：执行本程序后，所在图层所有对象呈被选择状态*
;;; 日期：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 )
)

• 0人已收藏

• 1人已打赏

  免费
• 0人已点赞

• 分享

  复制链接 新浪微博 微信扫一扫