Lisp例程帮助

djames · 发表于 2022-7-6 08:43:20

刚接触该网站，需要我编写的lisp例程的一些帮助。我不知道如何将结果四舍五入，使其仅显示两位小数，以及如何在不重复text命令的情况下将文本结果打印在一行上，其中包含注释和变量。
我的日常生活


(defun C:MH ()
(setq pnt (getpoint "\n Pick Structure :"))
(setq el (caddr pnt))
(setq in1 (getreal " \n Enter Inv. in: " ))
(setq out1 (getreal " \n Enter Inv. out: " ))
(setq in (- el in1))
(setq out (- el out1))
(command "TEXT" (getpoint) "0" "TOP = ")
(command "TEXT" "" el)
(command "TEXT" "" "In =")
(command "TEXT" "" in )
(command "TEXT" "" "Out =")
(command "TEXT" "" out)

pBe · 发表于 2022-7-6 08:54:40

（rtos变量2）
（strcat“string”“string”）
（setvar'cmdecho 0）（原理/打印）
（setvar“dimzin 3）

欢迎来到Djames论坛

SLW210 · 发表于 2022-7-6 09:02:25

欢迎djames！

请阅读代码发布指南并编辑您的帖子。

非常感谢。

Lee Mac · 发表于 2022-7-6 09:16:50

欢迎来到CADTutor djames，希望你喜欢这里。

首先，关于邮寄代码，请阅读一下。

我稍微修改了你的代码，并添加了一些注释来解释我的推理；如果你对我的修改有任何问题，尽管问。

程序中仍有许多部分有待改进；例如，可以添加一个错误处理程序，以在出现例程错误时重置环境。（请参阅我的错误处理教程）。

此外，您可以包括trans函数，以允许UCS中的更改；但我们先从基础开始。

我希望这有帮助！

李