简单（我认为）lisp例程

raj banerjee · 发表于 2022-7-5 18:53:43

你好lisp guru的

我想知道你是否可以帮忙，谁能演示一下如何创建一个lips例程，一旦调用，要求选择一个3d对象，一旦选择了项目，例程就会收集质量体积数，然后执行以下公式；
（质量数字/100000000）x 2.5，然后将其显示在屏幕上的一个小框中，以供记录？

这听起来很简单，但我没有得到一个线索，因为我已经超过15年没有接触到Lisp程序，所以我忘记了一切。

任何帮助都将不胜感激。

非常感谢

拉吉

ReMark · 发表于 2022-7-5 19:17:00

为什么你不能使用“将分析写入文件？”选项并自己进行计算？

raj banerjee · 发表于 2022-7-5 19:27:38

我只是想增加一点自动化来加速这个过程。你看到的标题栏上的一个盒子里有信息

raj banerjee · 发表于 2022-7-5 19:39:52

如果它能自动将信息输入到一个文本框中，该文本框可以放置在所需的标题栏区域内，那将很好，但这将是希望lol

BIGAL · 发表于 2022-7-5 19:51:08

像Remark一样，当你做Massprop时，选项是写入一个文件，然后你只需重新读取该文件并拉出你想要的值，然后选择一个点来写入答案，或者更简单地使用质心值。这是几年前使用lisp为混凝土倾斜面板所做的。我只是为某个人做的，所以我必须从头开始。

超简单使用VL体积是一个变量。

copy

(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) 
)

raj banerjee · 发表于 2022-7-5 19:55:07

干杯，艾尔会成功的

[编程交流] 简单（我认为）lisp例程

发表回复

精选推荐