求助图层中文本夹点的优化
;;;插件功能：点选图层某个图元，突显该图层的其他图元;;;存在问题，编辑过的或复制的text文本，夹点比较混
;;;优化思路两个，1、文本外的其他图元显示夹点，文本高亮显示；2、所有图元均显示夹点，将文本混乱无序的夹点删除，只保留插入点夹点
(Defun C:test ()
( if ( setq SS ( entsel "\n点选查询对象: " ) )
( progn
( setq ENT ( entget ( car SS ) ))
( setq LAYER ( cdr ( assoc 8 ENT ) ))
(setvar "clayer" LAYER)
(if (= (setq fanwei (getreal "\n范围 1全屏 2框选:<1>")) nil)
(setq fanwei 1)
)
(if (= fanwei 1)(SETQ SS (ssget "x"(list '(0 . "*LINE,*text,DIMENSION,arc,circle,ellipse,INSERT")(cons 8 layer)))))
(if (= fanwei 2)(SETQ SS (ssget(list '(0 . "*LINE,*text,DIMENSION,arc,circle,ellipse,INSERT")(cons 8 layer)))))
))
( sssetfirst NIL SS )
( princ )
)
页:
[1]