最简单的Lisp程序

flowerrobot · 发表于 2022-7-6 17:12:30

对不起，伙计们，这是一个如此简单的代码，你看不到答案。

很简单，嗯，它能用吗，几乎，pause给/p&-按层着色，然后是文本。
而“无暂停”只是按层显示颜色，然后显示文本。

我只想点击多行文字，
另外，我如何使“@500，-500”相对于我的dimscale？
谢谢你，我确实搜索了，但没有结果，
还有，如何调试命令？
我知道他们是一个cad脚本编辑器，但我不知道如何让它显示代码，代码如何运行以及在哪里失败，通常我会一点一点地粘贴以找出失败的地方，但我通常不知道为什么，
任何帮助都会很好

CmdrDuh · 发表于 2022-7-6 17:31:40

500500是基于1或*5的dimscale？无论如何，（car pt）将为您提供拾取点的X值，（cadr pt）为您提供Y，因此您可以从此处向X或Y添加500或-500，并生成一个新点。

flowerrobot · 发表于 2022-7-6 17:35:17

你是这么说的吗？
尽管这不起作用。

copy


(defun C:5()
(setq pt(getpoint "\nStart point of text: "))
(Setq xc(car pt))
(setq yc(cadr pt))
(setq tdi (strcat (xc "," yc)))
(setq tsc (* 5 (getvar "dimscale")))
(command "-color" "red")
(command "_.mtext" pt "h" tsc tdi pause)
(command "-color" "bylayer")
)