点选对象，选择该对象所在图层的所有对象

fengyu6913

不知道需要怎么改一下，还是要用别的方法：



(defun C:tt()
(setq en (entsel "选择物体") ent (entget (car en)) pt (car (cdr en)) )
(setq ly (cdr (assoc 8 ent)) )

(princ "\n请指定框选范围：")
(setq ss (ssget '((8 . ly)))) ;选择标注对象
(sssetfirst ss ss) ;高亮显示
)

kozmosovia

(setq ss (ssget (list (cons 8  ly)))) ;选择标注对象

fengyu6913

点选对象，框选该对象所在图层的所有对象

fengyu6913

kozmosovia 发表于 2024-5-11 11:53
(setq ss (ssget (list (cons 8  ly)))) ;选择标注对象

谢谢大佬