Jump to content
Nobull84

change color when selected

Recommended Posts

Nobull84

Is it possible to have a program or lisp that will change the color of an object as it is selected? Then maybe change the color back after whatever action is done? The types of dwgs we do can get somewhat busy and it can be very easy to miss something. Can anyone tell me if this is possible or not?

 

Thanks,

 

Nobull

Share this post


Link to post
Share on other sites
rkent

You can have them highlight with dashed lines and thickened when selected, plus the grips that show. That should take care of your needs. See options, selection, Visual Effect Settings.... for the first two.

Share this post


Link to post
Share on other sites
liuhaixin88

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

Share this post


Link to post
Share on other sites
Nobull84

Thank you rkent for the response. I currently use these settings but it can still be very easy to miss something on these dwgs.

 

luihaixin88, I loaded these into my startup suite but I do not see any change. Anything I'm missing with these? I'm assuming these lisps are meant to highlight a selection differently than CAD defaults?

 

 

Thanks again,

 

Nobull

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...