asteffy Posted January 11, 2013 Posted January 11, 2013 I developed an extremely simple routine to set my current layer to 0 but can not figure out how to make everything to bylayer at the same. Does anyone have any suggestions to make my current layer zero with color and linetype bylayer? My current code is below. (defun c:q () (command "_.layer" "_set" "0" "") (princ) ) Quote
Bill Tillman Posted January 11, 2013 Posted January 11, 2013 (command "._CLAYER" "0") (setvar 'CELTYPE "ByLayer") (setvar 'CECOLOR "ByLayer") Quote
Tharwat Posted January 11, 2013 Posted January 11, 2013 Try this .... (mapcar 'setvar '(clayer cecolor celtype celweight) (list "0" "BYLAYER" "BYLAYER" -1)) Quote
Lee Mac Posted January 11, 2013 Posted January 11, 2013 Be careful with frozen layers... (if (zerop (logand 1 (cdr (assoc 70 (tblsearch "LAYER" "0"))))) (setvar 'clayer "0") ) Quote
pBe Posted January 11, 2013 Posted January 11, 2013 (edited) Be careful with frozen layers... ....(zerop (logand [b]4[/b] (cdr (assoc 70 (tblsearch "LAYER" "0")))))..... ) Sweet, just to try something different i can use a similar approach in conjunction with (SSGET "_X" ... ) for locked layers Nice idea , as always EDIT: No wonder it looks familiar, we already gone thru that lesson before --> Put All XREFS..... post # 16 (retarded --> pBe Edited January 11, 2013 by pBe Quote
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.