社区 › Auto Lisp › 选择后更改颜色

Nobull84 发表于 2022-7-5 23:30:40

选择后更改颜色

有没有可能有一个程序或lisp在选择对象时改变其颜色？那么在做了任何动作后，可能会把颜色改回来？我们所做的DWG类型可能会有点忙，很容易错过一些东西。有人能告诉我这是否可行吗？
 
谢谢
 
诺布尔

rkent 发表于 2022-7-6 00:04:41

可以使用虚线高亮显示它们，并在选中时加厚，以及显示的夹点。这应该能满足你的需要。请参见选项、选择、视觉效果设置。。。。对于前两个。

liuhaixin88 发表于 2022-7-6 00:16:10

(defun ayEntSSHighLight      (SSorEntName / oldGrips)
(setq oldGrips (getvar "Grips"))
(setvar "Grips" 0)
(cond      ((= (type SSorEntName) 'PICKSET)                              
      (sssetfirst nil SSorEntName)
       )                                                            
       ((= (type SSorEntName) 'ENAME)                                    
      (sssetfirst nil (ssadd SSorEntName (ssadd)))
       )                                                            
)                                                                     
(setvar "Grips" oldGrips)
)
 

(defun HH:ayEntSSHighLight (SSorEntName / oldGrips)
(defun EntHighLight (e / PTS)
   (setq pts (HH:Ent4pt e T))
   (grvecs (list 1
               (car pts)
               (cadr pts)
               1
               (cadr pts)
               (caddr pts)
               1
               (caddr pts)
               (cadddr pts)
               1
               (cadddr pts)
               (car pts)
         )
   )
)
(cond      ((= (type SSorEntName) 'PICKSET)
      (repeat (setq n (sslength SSorEntName))
          (EntHighLight (ssname SSorEntName (setq n (1- n))))
      )
       )
       ((= (type SSorEntName) 'ENAME)
      (EntHighLight SSorEntName)
       )
)
)

Nobull84 发表于 2022-7-6 00:34:58

感谢rkent的回复。我目前使用这些设置，但仍然很容易错过这些DWG上的某些内容。
 
luihaixin88，我把这些加载到我的创业套件中，但我没有看到任何变化。这些东西我还缺什么？我假设这些LISP旨在突出显示与CAD默认值不同的选择？
 
 
再次感谢，
 
诺布尔

查看完整版本: 选择后更改颜色