寻找数学文本
在我之前的工程公司，我们有一套叫做SmartDraft的cad工具。有一件事我真的很怀念，那就是课文数学例程。它允许你选择一个函数，然后选择一个带有数字的文本实体，然后给你在屏幕上放置该文本或替换现有文本实体的选项。如果你正在读这篇文章，我希望你明白我想说的。
我只知道最基本的lisp。如果超过12行，我就会迷路。有没有人有类似于我所说的东西？
我知道很多读过这篇文章的人也在关注这件事。我也会把它贴在那里。
TIA 已经找到了解决方案！
http://www.theswamp.org/index.php?topic=39861.new#new 例如，基于text=rad的圆面积，您需要以某种方式选择参数ANS
(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)
然后你可以做你想做的事添加文本更改文本等
页:
[1]