在Autolisp中使用Area命令

RONITMADDY · 发表于 2022-7-5 17:08:26

我试图使用area命令获取面积，并通过将其乘以用户给定的输入来打印输出。

我不擅长编程，所以使用了本论坛中给出的一些代码。

我已经尝试了以下代码来完成工作。。。但它打印出了一些错误。。。。你能帮我做这件事吗。


(defun c:Test (/ val)
 (command "_.area")
   (while (< 0 (getvar 'cmdactive))
   (progn (princ "\nSpecify point: ")
          (command PAUSE)
   )
 )
 (setq SupPercent (getreal "\n Enter Super Built Percentage : "))
 (setq supArea (* (getvar 'AREA) (/ SupPercent 100)) )
 (princ (strcat "\n" (rtos (getvar 'AREA)) " m²") )
 (princ (strcat (rtos SupPercent) "% Sup Area = " (rtos supArea)) " m²") )
)

还有一件事，是否可以使用Autocad Area命令通过（1）选择点（如上述代码所示）和（2）通过对象选择（如闭合多边形）来获取面积。实际上，我希望代码能够通过两种方式获得面积。

提前感谢

SLW210 · 发表于 2022-7-5 17:23:08

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

[NOPARSE]

copy

Your Code Here

[/NOPARSE]=

copy

Your Code Here

RONITMADDY · 发表于 2022-7-5 17:38:40

编辑完成。。。。。。

BKT · 发表于 2022-7-5 17:56:11

删除“while”行上的额外括号：

copy


(while (< 0 (getvar 'cmdactive)[color=red])[/color]

BIGAL · 发表于 2022-7-5 18:03:46

最简单的问题是，在开始时你要问哪种方法，唯一可能的一个选择是当你选择第一个点时，它是一个普林线物体还是圆，我可以看到这一点，问题是一个点在同一点上有直线等。使用vla get area对象可能是最简单的，所以使用点生成一个新的pline get area，然后最后擦除。

copy


; create pline by picking points press enter when finished
(command "_pline")
(while (= (getvar "cmdactive") 1 ) (command pause)
)
(alert (strcat "Area is " (rtos (vla-get-area (vlax-ename->vla-object (entlast))) 2 3 )))
(command "erase" "Last" "" )

BIGAL · 发表于 2022-7-5 18:13:48

试试这个

copy


(defun c:test ( / obj)
(setq obj (vlax-ename->vla-object (car (entsel "Pick object"))))
(if (= (vlax-get obj 'ObjectName) "AcDbPolyline")
(alert (strcat "Area is " (rtos (vla-get-area obj) 2 3 )))
(progn
(alert "Pick all points including start") ; avoids finding start point of picked object
(command "_pline")
(while (= (getvar "cmdactive") 1 ) (command pause)
) ; while
(setq obj (vlax-ename->vla-object (entlast)))
(alert (strcat "Area is " (rtos (vla-get-area obj) 2 3 )))
(command "erase" "last" "")
) ; progn
) ; if
) ; defun
(c:test)

[编程交流] 在Autolisp中使用Area命令

发表回复

精选推荐