如何快速查询CAD多个封闭图形的面积，可以标注面积吗不是用AA命令！！！有小程序吗

依次选中封闭图形，用命令：list查询

网上有面积标注插件，可以下载

或者将下面的lisp代码复制到记事本里，保存为：面积标注lsp

在cad里加载后，用car运行插件

(defun c:car ( / o1 ipt opp parea)

(setq clyer(getvar"clayer"))

(command "layer" "m" "范围线" "")

(command "layer" "c" "2" "范围线" "")

(command "color" "bylayer")

(setq ipt (getpoint "\n 选择内部点: "))

(command "-Boundary" ipt"" "")

(setq o1 (entlast))

(redraw o1 3)

(command "area" "O" "L")

(setq opp (getvar "area"))

(initget 1)

(setq parea(getpoint"\n 选择面积标注位置"))

(command "layer" "m" "area text" "")

(command "layer" "c" "81" "area text" "")

(command "color" "bylayer")

(initget 1)

(command "text" parea "1"0 (rtos opp 2 3)) "这个三是位数"

(setq elast(entlast))

(command "scale" elast"" parea)

(setvar"clayer"clyer)

)

原因是 *** 作系统的dao350dll文件注册不成功造成的。

手动注册此文件即可解决此问题，点击开始、运行，在d出的输入框中键入以下命令regsvr 32 ' c ： \ Program Files \ Common Files \ Microsoft Shared \ Dao \ Dao 360 dll '然后按回车键。请注意必须添加引号。如果提示429错误，您可以再次手动注册。

修改图元为当前图层：

CAD *** 作方法

autolisp程序内容（注意是英文打字）：

;修改图元为当前图层,命令为：XG

(defun C:XG ( / &k1 &kw1 &ob1 &ss1 &tc1)

(setvar "cmdecho" 0)

(setvar "blipmode" 0)

(if (null vlax-dump-object) (vl-load-com) )

(setq &tc1 (getvar "clayer"))

(if (setq &kw1 (ssget))

(progn

 (while (setq &k1 (ssname &kw1 0))

  (setq &kw1 (ssdel &k1 &kw1))

  (setq &ob1 (vlax-ename->vla-object &k1))

  (vla-put-layer &ob1 &tc1)

 );while

)

)

(princ)

)

1、打开CAD，然后在CAD最上面一排找到“绘图”，再在其中找到“表格”，设置表格尺寸为10mx10m点击输入。

2、插入设置好的10mx10m网格，然后在CAD中找到命令栏输入：x，点击回车，选

以上就是关于如何快速查询CAD多个封闭图形的面积，可以标注面积吗不是用AA命令！！！有小程序吗全部的内容，包括:如何快速查询CAD多个封闭图形的面积，可以标注面积吗不是用AA命令！！！有小程序吗、cad图纸合并小程序出现429错误、求在CAD中快速的将已知图元变更为 当前图层的图元的AUtoLISP小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！