lisp to change wipeout color
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
lisp to change wipeout color
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization

Author Message
martyo



Joined: 07 May 2010
Posts: 2
Posted: Fri May 07, 2010 5:33 pm    Post subject: lisp to change wipeout color Reply with quote
Does anyone have a LISP routine that will change all the wipeouts in a drawing to a particular color? I want to change them all to color 255, but I dont want to have to select each one to change it manually.
Thanks!

Back to top
View user's profile Send private message
CarlB



Joined: 27 Sep 2005
Posts: 121
Posted: Fri May 07, 2010 8:52 pm    Post subject: Reply with quote
OK here you go, copy & paste to command line (or save to a file with "lsp" extension), start with "wo255".
you might want to modify this to change all wipeouts to a layer rather than a color, and have that layer set to color 255.

Cheers!

Code:
(defun c:wo255 ()
 (setq ss (ssget "_X" '((0 . "WIPEOUT"))))
 (command "_chprop" ss "" "_C" "255" "")
 (princ)
)
Back to top
View user's profile Send private message
martyo



Joined: 07 May 2010
Posts: 2
Posted: Fri May 07, 2010 8:58 pm    Post subject: Reply with quote
Sweet!
That totally worked!
Thanks!
Back to top
View user's profile Send private message
CarlB



Joined: 27 Sep 2005
Posts: 121
Posted: Fri May 07, 2010 9:32 pm    Post subject: Reply with quote
great, glad to help Smile
Back to top
View user's profile Send private message
 
Post new topic   Reply to topic    CADForums.net Forum Index -> Customization All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Access Forum - Microsoft Office Forum - Electronics

Contact Us Powered by phpBB