简单Autolisp问题
您好，我是lsp编程新手，有一个非常简单（我希望如此）的问题。我想在一个有t的图形中添加一个引线，然后是一个数字，我希望每次用户添加引线时，这个数字都上升1。
我的代码如下。我得到一个“错误：坏函数：1”
提前感谢
（defun addtreelabel（）
（setq s（getstring“输入树编号：”））
（重复100000次
（命令“-layer“s”lm label”）
（命令“leader”PAUSE“@”PAUSE”“（strcat“T”s”“））
（命令“”）
（setq s（+（s）1））
);
)
结束游戏 这
(defun addtreelabel (/ s p)
(if (not (tblsearch "LAYER" "lm-label"))
(command "_.-layer" "_m" "lm-label" "" "")
)
(command "_.-layer" "s" "lm-label" "")
(if (and (/= "" (setq s (getstring "\n Enter tree number: "))) (numberp (read s)))
(while (setq p (getpoint "\n Specify leader start point:"))
(command "leader" "_non" p "_non" pause "" (strcat "T" s) "")
(setq s (itoa (1+ (atoi s))))
)
)
(princ)
) 传奇太棒了！
哇，听到这个我很高兴。
页:
[1]