求选择集中*line，*text不同亮显方式的思路

yamjqq

各位老师，我想让选择集中的*line带夹点高亮显示，*text不带夹点高亮显示，麻烦老师们指导，谢谢啦！
(Defun C:test ()
( setq SS ( entsel "\n点选查询对象: " ) )
           ( setq ENT ( entget ( car SS ) ))
   ( setq LAYER ( cdr ( assoc 8 ENT ) ))
(setvar "clayer" LAYER)
  (SETQ SS (ssget "x"  (list '(0 . "*LINE,*text")(cons 8 layer))))
        ( sssetfirst NIL SS )
   ( princ )
   )

start4444

(Defun C:test (/ ent layer ss ss1)
        ( setq SS ( entsel "\n点选查询对象: " ) )
        ( setq ENT ( entget ( car SS ) ))
        ( setq LAYER ( cdr ( assoc 8 ENT ) ))
        (setvar "clayer" LAYER)
  (SETQ SS (ssget "x"  (list '(0 . "*LINE,*text")(cons 8 layer))))
        (SETQ SS1 (ssget "x"  (list '(0 . "*LINE")(cons 8 layer))))       
        ( sssetfirst NIL SS1 )
        ( princ )
)

全部都会选了，局部不会····

yamjqq

start4444 发表于 2020-3-29 18:12
(Defun C:test (/ ent layer ss ss1)
        ( setq SS ( entsel "\n点选查询对象: " ) )
        ( setq ENT ( entget ...

我要的效果，点选后，*line显示带夹点，文本也是亮显只是不带夹点，（效果如图）。不是点选了，直线能带夹点显示，文本不显示。
您修改后的效果，和下面是一样的，麻烦您有空再看看。
(Defun C:test (/ ent layer ss ss1)
         ( setq SS ( entsel "\n点选查询对象: " ) )
         ( setq ENT ( entget ( car SS ) ))
         ( setq LAYER ( cdr ( assoc 8 ENT ) ))
         (setvar "clayer" LAYER)
          (SETQ SS1 (ssget "x"  (list '(0 . "*LINE")(cons 8 layer))))        
         ( sssetfirst NIL SS1 )
         ( princ )
)

start4444

yamjqq 发表于 2020-3-29 19:51
我要的效果，点选后，*line显示带夹点，文本也是亮显只是不带夹点，（效果如图）。不是点选了，直线能带 ...

这不是很简单的事情吗，分成两堆一堆显示一堆不显示，现在你已经有显示的函数，在找另外一个函数不就完事了吗，这个真不是什么问题