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 -------------------------------------------- JimB -------------------------------------------- my SPAM defense: Replace all the X's in email address with M
Add pictures here
โœ–
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
--------------53C35AC671FD039E16801AFB Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit
2 things....
1- write "-layer" , not "layer" 2- now layer names are case sensitive....so the if conditions should look like this:
(IF (="SS" (strcase (GETVAR "CLAYER")))
jimb a ้crit :

--------------53C35AC671FD039E16801AFB Content-Type: text/html; charset=us-ascii Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en"> <html> 2 things.... <p>1- write "-layer" , not "layer" <br>2- now layer names are case sensitive....so the if conditions should look like this: <br>&nbsp; <br>(IF (="SS" (<b>strcase </b>(GETVAR "CLAYER"))) <br>&nbsp; <p>jimb a &eacute;crit : <blockquote TYPE=CITE>Good day, <p>I would like to know why this works in R14 and not 2000. <p>(DEFUN C:TL () <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (="SS" (GETVAR "CLAYER")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "LAYER" "T" "CS" "S" "CS" "F" "SS" "") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (IF (="CS"(GETVAR "CLAYER")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "LAYER" "T" "SS" "S" "SS" "F" "CS" <br>"")))(PRINC)) <p>TIA <p>jim <br>-------------------------------------------- <br>JimB <br>-------------------------------------------- <br>my SPAM defense: Replace all the X's in email address with M</blockquote> </html>
--------------53C35AC671FD039E16801AFB--
Add pictures here
โœ–
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
(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 -------------------------------------------- JimB -------------------------------------------- my SPAM defense: Replace all the X's in email address with M
Add pictures here
โœ–
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
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

Add pictures here
โœ–
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
thanks
both ways work.
jimB -------------------------------------------- JimB -------------------------------------------- my SPAM defense: Replace all the X's in email address with M
Add pictures here
โœ–
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.