Simple LISP question...

Good day,

I would like to know why this works in R14 and not 2000.

(DEFUN C:TL ()
(IF (="SS" (GETVAR "CLAYER"))
(COMMAND "LAYER" "T" "CS" "S" "CS" "F" "SS" "")
(IF (="CS"(GETVAR "CLAYER"))
(COMMAND "LAYER" "T" "SS" "S" "SS" "F" "CS"
"")))(PRINC))

TIA

jim

 

Try using this:
(DEFUN C:TL ()
(IF (="SS" (GETVAR "CLAYER")) ;check
for current layer
(COMMAND "LAYER" "T" "CS" "S" "CS" "F" "SS" "") ;ss
active, set CS
(COMMAND "LAYER" "T" "SS" "S" "SS" "F" "CS" "") ) ;cs
active, set SS
(PRINC)
); end defun

Works on my PC perfectly.

Jan

 

thanks

both ways work.

jimB

 

(DEFUN C:TL ()
(IF (="SS" (GETVAR "CLAYER"))
;check
for current layer
(COMMAND "LAYER" "T" "CS" "S" "CS" "F" "SS" "")
;ss
active, set CS
(COMMAND "LAYER" "T" "SS" "S" "SS" "F" "CS" "") )
;cs
active, set SS
(PRINC)
thanks

both ways work

jimB