;;;=================================================*;;; 有关图层的实用工具 *;;; *;;; *;;;=================================================*;;; 功能：选择指定对象所在图层的所有对象 *;;; 参数：无 *;;; 返回：执行本程序后，所在图层所有对象呈被选择状态*
2楼
兄弟，能不能修改成带范围的快速选择，不然整张图中那么多东西全被选中也是很麻烦的。谢谢！
回复
3楼
本版有个贴子已发过：[code](setvar "cmdecho" 0)
(defun c:xzc (/ CNAME ENT SS)
(and
;;
(setq ss (entsel "\n请选择需要选择的层中的一个物体: "))
(setq ent (entget (car ss)))
(setq cname (cdr (assoc 8 ent)))
(princ (strcat "\n选中了图层: \"" cname "\""))
;;
(princ "\n框选范围....")
(setq ss (ssget (list (cons 8 cname))))
;;
(sssetfirst NIL SS)
)
)[/code]
回复
4楼
支持!!!!
非常好!
学习了!
回复
5楼
=
=
=
楼主厉害
改进了不少 加进选择范围确实方便不少
多谢
回复
6楼
这两个命令非常实用
回复
7楼
这两个命令非常实用
回复
8楼
绘图软件飞诗
回复
9楼
绘图软件飞诗
回复
10楼
这两个命令非常实用
回复
11楼
感觉内容太多了，没有归类
回复
