在中组合区域命令

mrthra · 发表于 2022-7-6 10:55:33

早晨

很简单，我有一张画有房子和花园的平面图。

我正在编写一个例程，它将拾取并提取门牌号文本，然后拾取花园的周围区域，并将两者写入文本文件。

我的问题是在Autolisp中运行区域命令。如下图所示，我启动“面积”命令并添加一个暂停，以便可以在花园的周围拾取。这好像不管用？！！有什么线索吗？？

（命令“区域”暂停）
（setq aa（getvar“区域”）

我使用旧的skool lisp，所以VBA在我的头上！

当做

MSasu · 发表于 2022-7-6 11:25:38

尝试以编程方式列出区域，而不是使用命令：

copy

(vl-load-com)
(setq MyEntity (vlax-ename->vla-object MyEntity))
(if (vlax-property-available-p MyEntity "area")
(vlax-get (vlax-ename->vla-object (entlast)) "area")
0.0
)

当做