sw987 Posted November 10, 2008 Posted November 10, 2008 I am new to this forum.. n new to lisp ;-) Can anybody help me to correct this routine ? (defun C:ntm() (setq strName (getstring"\n write something: ")) (setq keepgoing 1) (while ( (setq char1(substr strName 1 keepgoing)) (setq char1 (strcase char1)) (setq strname2(strcat char1 (substr strName(+ keepgoing 1)))) (setq keepgoing (+ keepgoing 1)) (princ (strcat"\n" strname2)) ) (princ"\n program completed") (princ) ) Quote
wizman Posted November 10, 2008 Posted November 10, 2008 you missed one parenthesis: (defun C:ntm() (setq strName (getstring"\n write something: ")) (setq keepgoing 1) (while ( (setq char1(substr strName 1 keepgoing)) (setq char1 (strcase char1)) (setq strname2(strcat char1 (substr strName(+ keepgoing 1)))) (setq keepgoing (+ keepgoing 1)) (princ (strcat"\n" strname2)) ) (princ"\n program completed") (princ) ) Quote
vinod Posted November 10, 2008 Posted November 10, 2008 you missed one parenthesis: (defun C:ntm() (setq strName (getstring"\n write something: ")) (setq keepgoing 1) (while ( (setq char1(substr strName 1 keepgoing)) (setq char1 (strcase char1)) (setq strname2(strcat char1 (substr strName(+ keepgoing 1)))) (setq keepgoing (+ keepgoing 1)) (princ (strcat"\n" strname2)) ) (princ"\n program completed") (princ) ) now its working. thank you very much Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.