woodman78 Posted June 13, 2011 Share Posted June 13, 2011 Does anyone have a lisp that when an entity is selected it will take the bylayer colour and assign that colour directly to the entity without it being bylayer? Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 13, 2011 Share Posted June 13, 2011 Quickly written: (defun c:test ( / a b c d e f ) (while (setq a (tblnext "LAYER" (null a))) (setq b (cons (cons (cdr (assoc 2 a)) (abs (cdr (assoc 62 a)))) b)) ) (if (setq c (ssget "_:L")) (repeat (setq d (sslength c)) (setq e (entget (ssname c (setq d (1- d)))) f (cons 62 (cdr (assoc (cdr (assoc 8 e)) b))) ) (entmod (if (assoc 62 e) (subst f (assoc 62 e) e) (append e (list f)))) ) ) (princ) ) Quote Link to comment Share on other sites More sharing options...
woodman78 Posted June 13, 2011 Author Share Posted June 13, 2011 Perfect. Thanks LeeMac. Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted June 13, 2011 Share Posted June 13, 2011 You're welcome woodman Quote Link to comment Share on other sites More sharing options...
vnanhvu Posted June 14, 2011 Share Posted June 14, 2011 hi Lee. Can you develop your lisp more? Ex: when click object, display number color on box without change bylayer. Thank you so much. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.