简单Autolisp问题

dan_g8 · 发表于 2022-7-5 23:01:00

您好，我是lsp编程新手，有一个非常简单（我希望如此）的问题。

我想在一个有t的图形中添加一个引线，然后是一个数字，我希望每次用户添加引线时，这个数字都上升1。

我的代码如下。我得到一个“错误：坏函数：1”

提前感谢

（defun addtreelabel（）
（setq s（getstring“输入树编号：”））
（重复100000次
（命令“-layer“s”lm label”）
（命令“leader”PAUSE“@”PAUSE”“（strcat“T”s”“））
（命令“”）
（setq s（+（s）1））

);
)
结束游戏

Tharwat · 发表于 2022-7-5 23:30:12

这

copy

(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)
)

dan_g8 · 发表于 2022-7-5 23:48:37

传奇太棒了！

Tharwat · 发表于 2022-7-6 00:09:58

哇，听到这个我很高兴。

[编程交流] 简单Autolisp问题

发表回复

精选推荐