寻找数学文本

econnerly · 发表于 2022-7-6 08:45:20

在我之前的工程公司，我们有一套叫做SmartDraft的cad工具。有一件事我真的很怀念，那就是课文数学例程。

它允许你选择一个函数，然后选择一个带有数字的文本实体，然后给你在屏幕上放置该文本或替换现有文本实体的选项。如果你正在读这篇文章，我希望你明白我想说的。

我只知道最基本的lisp。如果超过12行，我就会迷路。有没有人有类似于我所说的东西？

我知道很多读过这篇文章的人也在关注这件事。我也会把它贴在那里。

TIA

econnerly · 发表于 2022-7-6 09:21:18

已经找到了解决方案！

http://www.theswamp.org/index.php?topic=39861.new#new

BIGAL · 发表于 2022-7-6 10:12:23

例如，基于text=rad的圆面积，您需要以某种方式选择参数ANS

copy


(if (= ans "circarea")
(progn
(setq tp1 (entsel "\nSelect text : "))
(setq tpp1 (entget (car tp1)))
(setq rad (atof (cdr (assoc 1 tpp1))))
(setq area (* 3.1415936 rad))
)
)
(princ area)

然后你可以做你想做的事添加文本更改文本等

[编程交流] 寻找数学文本

发表回复

精选推荐