简单（我认为）lisp例程
你好lisp guru的我想知道你是否可以帮忙，谁能演示一下如何创建一个lips例程，一旦调用，要求选择一个3d对象，一旦选择了项目，例程就会收集质量体积数，然后执行以下公式；
（质量数字/100000000）x 2.5，然后将其显示在屏幕上的一个小框中，以供记录？
这听起来很简单，但我没有得到一个线索，因为我已经超过15年没有接触到Lisp程序，所以我忘记了一切。
任何帮助都将不胜感激。
非常感谢
拉吉 为什么你不能使用“将分析写入文件？”选项并自己进行计算？ 我只是想增加一点自动化来加速这个过程。你看到的标题栏上的一个盒子里有信息 如果它能自动将信息输入到一个文本框中，该文本框可以放置在所需的标题栏区域内，那将很好，但这将是希望lol 像Remark一样，当你做Massprop时，选项是写入一个文件，然后你只需重新读取该文件并拉出你想要的值，然后选择一个点来写入答案，或者更简单地使用质心值。这是几年前使用lisp为混凝土倾斜面板所做的。我只是为某个人做的，所以我必须从头开始。
超简单使用VL体积是一个变量。
(defun c:mprop ( / obj vol cenpt)
(setq obj (vlax-ename->vla-object(car(entsel "pick solid"))))
(setq vol (rtos (vla-get-volume obj) 2 1))
(setq cenpt (vla-get-centroid obj))
(setq mspace (vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object))))
(vla-addtext mspace vol cenpt 2.5)
)
干杯，艾尔会成功的
页:
[1]