网上找不到cad生成长宽的明细表的插件就自己研究个做个用了，想改一个计算面积的lsp cad插件编译一下
发布网友
发布时间：2022-05-01 12:35
共3个回答
热心网友
时间：2023-10-12 13:33
(defun c:tes ( / ent mj obj)
(vl-load-com)
(if (setq ent (entsel "\n请选择封闭线"))
(progn
(setq ent (car ent));取得对象
(setq obj (vlax-ename->vla-object ent));转换为VLA对象
(princ (setq mj (vla-get-Area obj)));提取面积;命令行显示
)
)
(princ)
)
热心网友
时间：2023-10-12 13:34
热心网友
时间：2023-10-12 13:34
热心网友
时间：2023-10-12 13:33
(defun c:tes ( / ent mj obj)
(vl-load-com)
(if (setq ent (entsel "\n请选择封闭线"))
(progn
(setq ent (car ent));取得对象
(setq obj (vlax-ename->vla-object ent));转换为VLA对象
(princ (setq mj (vla-get-Area obj)));提取面积;命令行显示
)
)
(princ)
)
热心网友
时间：2023-10-12 13:34
热心网友
时间：2023-10-12 13:34
