fengyu6913 发表于 2024-5-11 11:53:36

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

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



(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 发表于 2024-5-11 11:53:37

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

fengyu6913 发表于 2024-5-11 12:00:28

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

fengyu6913 发表于 2024-5-11 12:31:12

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

谢谢大佬
页: [1]
查看完整版本: 点选对象，选择该对象所在图层的所有对象