选择后更改颜色

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)
)

copy


(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默认值不同的选择？

再次感谢，

诺布尔

[编程交流] 选择后更改颜色

发表回复

精选推荐