Hi all
I have quickly written the code below, and I still need to finish it. I want to draw construction lines at specific angles. The ccolor variable return "nil", but I will fix it later.
How do I see the construction line before I place it the first time?
Or is there an better way to achieve this?
Thanks!
(defun C:XL+75 (/)
( setq old_ccolor (getvar "ccolor"))
( setq old_clayer (getvar "clayer"))
(command "-layer"
"Make"
"__Xline +75"
"Color"
"36"
""
""
)
(command "xline"
"Ang"
"75"
(getpoint)
)
(setvar "ccolor" old_ccolor)
(setvar "clayer" old_clayer)
(princ)
)