CAD 如何标注面域的面积

面积的单位一般是平方米，在AutoCAD里面，可以用文字的方式写面积到面域里面，可以写一个程序来解决问题，程序如下：

(defun C:tes ( / &dis1 &k1 &kw1 m2 obj pt)
 (setq &dis1 (getdist (strcat "\n请文字高度默认高度:<" "50" ">")))
 (if (or (= &dis1 0) (= &dis1 nil)) (setq &dis1 50) (setq &dis1 (abs &dis1)) )
 (if (setq &kw1 (ssget '((0  "REGION"))));如果有选择了面域
  (progn
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq obj (vlax-ename->vla-object &k1));转换为vlax对象
    (setq pt (vlax-safearray->list (vlax-variant-value (vla-get-centroid obj))));取得面域的质心点
    (setq m2 (vla-get-area obj));取得面域面积
    (setq m2 ( m2 0000001));面积转换为平方米，不需要转换就删除这句话
    (setq m2 (rtos m2 2 5));保留小数点后5位
    (entmake (list '(0  "TEXT") (cons 1 m2) (cons 40 &dis1) (cons 10 pt) '(72  4) (cons 11 pt)));文字写在质心点位置
   )
  )
 )
 (prin1)
);复制到记事本,以【lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】

以上就是关于CAD 如何标注面域的面积全部的内容，包括:CAD 如何标注面域的面积、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！