区域lisp

Guite · 发表于 2022-7-6 12:36:54

谢谢你，胖子，慢慢来。如果有帮助，以下是我对您的代码的修改版本：
吉他

fixo · 发表于 2022-7-6 12:38:11

很高兴你解决了
谢谢你帮我节省了时间
快乐计算

~'J'~

Guite · 发表于 2022-7-6 12:44:29

富含脂肪的
不，还没有解决。引用我的第一篇帖子：
我上面发布的代码是我的修改版本，它不适用于我测试文件的图（1）和图（2）。（请注意，我发布的测试文件不是我正在使用的文件，它的大小为1mb，但显然是相同的内容）。
有趣的是，您编辑的版本适用于图形（1），但不适用于图形（2）。因此，如果您的工作在（1）和（2）上，而我的工作在（1）和（2）上都不工作，那么我对代码所做的一些更改是否有责任，例如，文本插入和对齐的行？

干杯
吉特

fixo · 发表于 2022-7-6 12:48:11

私人向我发送测试消息，
那我把我的地址给你
发送您的文件
我想看看哪里有问题

~'J'~

Guite · 发表于 2022-7-6 12:48:49

哎呀，那得等到星期一，因为文件在我办公室的电脑里。

fixo · 发表于 2022-7-6 12:53:45

好的，还在等

~'J'~

Butch · 发表于 2022-7-6 12:55:44

嘿，Fixo你好吗
你能用lisp把面积值除以100吗。
因此，文本将显示12.45，而不是1245.00。
这能做到吗？
我的朋友！

fixo · 发表于 2022-7-6 12:59:38

你好
尝试更改这些行：

copy

(setq txt1 (strcat "Area= " (rtos ar 2 2)))
(setq txt2 (strcat "Perimeter= " (rtos per 2 2)))

在…上

copy

HTH公司

~'J'~

[编程交流] 区域lisp

发表回复

精选推荐