求助图层中文本夹点的优化

yamjqq

;;;插件功能：点选图层某个图元，突显该图层的其他图元
;;;存在问题，编辑过的或复制的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 )
  )