社区 › Auto Lisp › Lisp程序

sw987 发表于 2022-7-6 17:11:50

口齿不清

我是这个论坛的新手。。n lisp新手；-）
有人能帮我纠正这个习惯吗？
 
 
（定义C:ntm（）
（setq strName（getstring“\n write something:”））
（setq keepgoing 1）
（虽然(
（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程序已完成”）
（普林斯）
)

wizman 发表于 2022-7-6 17:45:43

您错过了一个括号：
 
（定义C:ntm（）
（setq strName（getstring“\n write something:”））
（setq keepgoing 1）
（虽然(
（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程序已完成”）
（普林斯）
)

vinod 发表于 2022-7-6 18:21:55

 
现在它工作了。非常感谢你

查看完整版本: Lisp程序