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

Lisp例程帮助

刚接触该网站，需要我编写的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中的更改；但我们先从基础开始。
 
我希望这有帮助！
 
李

djames 发表于 2022-7-6 09:17:50

谢谢你的帮助。试图编辑帖子。但没有英镑登录编辑器，不会再次发生。

Jeff H 发表于 2022-7-6 09:34:12

很好的解释李！

Lee Mac 发表于 2022-7-6 09:38:12

谢谢杰夫！

SLW210 发表于 2022-7-6 09:44:36

 
单击编辑帖子后的Go Advanced以添加代码标记。
 
这次我会帮你买的，至少你试过了。
页: [1]
查看完整版本: Lisp例程帮助