CAD 如何标注面域的面积？
4个回答
展开全部
面积的单位一般是平方米，在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 0.000001));面积转换为平方米，不需要转换就删除这句话
(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】
已赞过
已踩过<
你对这个回答的评价是？
展开全部
无需做成面域，只需要一个封闭的多段线图形即可自动计算并标注其实际面积或周长，并随图形的变化而变化：
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在网上找一下“源泉建筑”这个插件吧，他里面的功能很强大，可以一次性标出很多面域的单个面积和总面积，前提是得把这个面域用多线段闭合起来！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
命令建list直接出面积周长等信息
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
