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