I also added:
(if (tblsearch "layer" "0280-tree-lateral")
(command "-layer" "thaw" "0280-tree-lateral" "on" "0280-tree-lateral" "")
)
To thaw and turn on the layer. If the layer existed and was frozen the lisp would break since frozen layers cannot be made current.
Dan,
When I run your lisp I get a syntax error for some reason.....can't figure it out.
(defun c:drip (/ P) ;Used for inserting bubbler laterals
(setvar 'plinegen 1)
(initget 1 "Tree Shrub Bub Header Cv") ;Gets T or S or B or H or C
(setq P (getkword
"\nEnter an option (T)ree, (S)hrub, (B)ub, (H)eader, or (C)v Lateral: "
)
)
(if (= P "Tree")
(progn
(if (tblsearch "layer" "0280-tree-lateral")
(command "-layer" "thaw" "0280-tree-lateral" "on" "0280-tree-lateral" "")
)
(setvar 'plinewid (* (getvar "dimscale") 0.05))
(command "_.-Layer" "_Make" "0280-tree-lateral"
"_L" "hidden2" "" "_Color"
"4" "" ""
)
(command "_.PLine")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
)
)
(if (= P "Shrub")
(progn
(if (tblsearch "layer" "0280-shrub-lateral")
(command "-layer" "thaw" "0280-shrub-lateral" "on" "0280-shrub-lateral" "")
)
(setvar 'plinewid (* (getvar "dimscale") 0.0125))
(command "_.-Layer" "_Make" "0280-shrub-lateral"
"_Color" "6" ""
""
)
(command "_.PLine")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
)
)
(if (= P "Bub")
(progn
(if (tblsearch "layer" "0280-bub-lateral")
(command "-layer" "thaw" "0280-bub-lateral" "on" "0280-bub-lateral" "")
)
(setvar 'plinewid (* (getvar "dimscale") 0.0))
(command "_.-Layer" "_Make" "0280-bub-lateral"
"_L" "hidden2" "" "_Color"
"5" "" ""
)
(command "_.PLine")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
)
)
(if (= P "Header")
(progn
(if (tblsearch "layer" "0280-netafim_header")
(command "-layer" "thaw" "0280-netafim_header" "on" "0280-netafim_header" "")
)
(setvar 'plinewid (* (getvar "dimscale") 0.05))
(command "_.-Layer" "_Make" "0280-netafim_header"
"_L" "continuous" "" "_Color"
"white" "" ""
)
(command "_.PLine")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
)
)
(if (= P "Cv")
(progn
(if (tblsearch "layer" "0280-netafim_cv")
(command "-layer" "thaw" "0280-netafim_cv" "on" "0280-netafim_cv" "")
)
(setvar 'plinewid (* (getvar "dimscale") 0.025))
(command "_.-Layer" "_Make" "0280-netafim_cv"
"_L" "hidden2" "" "_Color"
"yellow" "" ""
)
(command "_.PLine")
(while (> (getvar "CMDACTIVE") 0)
(command pause)
)
)
)
(princ)
)
Thanks for the help.