Can someone give me some insight on why the lisp code doesn't work for all layers. The lisp is below.
Example: (command "_.LAYER" "_COLOR" "253" "*P*ELECTRIC*" "") does not turn the electric layer color to 253
The *UTIL* layers do not thaw, there is a variety of layers that should thaw
P-UTIL Sanitary UG
P-UTIL Sanitary STR
P-UTIL Water UG
P-UTIL Water STR
The (command "_.LAYER" "_THAW" ",*SURF*,*CONT*" "") was part of the first layer thaw code line and did not work but when I moved it to a second line it worked?
Is there something I have wrong not giving me the best 100% results. It seems like I am at 75% expected results.
Thanks
John
-------------------------------------------------------------------------------
;TYPE SETDRAINLAYERS TO SET THE SITE LAYERS OF A PROJECT
(defun c:SETDRAINLAYERS ()
(COMMAND "UNDO" "BE")
(command "_.LAYER" "_THAW" "0","*ANNO*,*BNDY*,*ALIGN*,*UTIL*,*VIEWPORT*,*PVMT*" "")
(command "_.LAYER" "_THAW" ",*SURF*,*CONT*" "")
(command "_.LAYER" "_FREEZE" "*PNT*,*BREAK*,*UG,*DEMO,*REM,*GND*SHOT*,*X*PVMT*CENTER*,*MARKING*,*X-LAND*,*P*SETBACK*,*TAP*,*|*NoPlot*" "")
(command "_.LAYER" "_COLOR" "1" "*P-BNDY*" "")
(command "_.LAYER" "_COLOR" "3" "*P*BASIN*,*P*DITCH*CENTERLINE*" "")
(command "_.LAYER" "_COLOR" "12" "*P*LOTS*" "")
(command "_.LAYER" "_COLOR" "4" "*P-ANNO*,*P*EASEMENT*" "")
(command "_.LAYER" "_COLOR" "7" "*P*STORM*CASTING*,P*SANITARY*,*P*WATER*" "")
(command "_.LAYER" "_COLOR" "41" "*NoPLOT" "")
(command "_.LAYER" "_COLOR" "136" "*P-PVMT*" "")
(command "_.LAYER" "_COLOR" "210" "*P*STORM*" "")
(command "_.LAYER" "_COLOR" "212" "*P*STORM*STR*,*STORM*SUBDRAIN*" "")
(command "_.LAYER" "_COLOR" "214" "*P*ANNO*STORM*" "")
(command "_.LAYER" "_COLOR" "230" "*P-BNDY RW*" "")
(command "_.LAYER" "_COLOR" "250" "*MASK*" "")
(command "_.LAYER" "_COLOR" "252" "*RIPRAP*,*X-ANNO*,*CONST*LIMITS*,P-GND*PAD*,*P*ANNO*LOT*" "")
(command "_.LAYER" "_COLOR" "253" "*P*ELECTRIC*" "")
(princ "\nRelayering complete")
(COMMAND "UNDO" "END")
)
JL
C3D 2024
Win 11 Pro