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

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 8 ly)))) ;选择标注对象

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 8 ly)))) ;选择标注对象

谢谢大佬

账号		自动登录	找回密码
密码			注册

[提问] 点选对象，选择该对象所在图层的所有对象

最佳答案