如何统计计取曲面、面域、闭合多段线的面积和

angel121204567 · 发表于 2024-4-7 13:55:00

有无大神可以分享该程序

angel121204567 · 发表于 2024-4-7 17:14:14

这个功能我主要用来算梁板柱的模板量，觉得这个功能确实好，要是能有这个代码那就太好啦

angel121204567 · 发表于 2024-4-7 14:30:04

(defun c:qmmj ()
  (setq sel (ssget))
  (setq total_area 0)
  (foreach ent sel
(cond
   ((= (cdr (assoc 0 (entget ent))) "SURFACE") (setq area (area (car ent))) (setq total_area (+ total_area area)))
   ((= (cdr (assoc 0 (entget ent))) "REGION") (setq area (area (car ent))) (setq total_area (+ total_area area)))
   ((= (cdr (assoc 0 (entget ent))) "POLYLINE") (setq area (area (car ent))) (setq total_area (+ total_area area)))
)
  )
  (alert "各部分面积及总面积如下：\n 各部分面积：" total_area)
)

angel121204567 · 发表于 2024-4-7 14:32:23

angel121204567 发表于 2024-4-7 14:30
(defun c:qmmj ()
(setq sel (ssget))
(setq total_area 0)

AI写的，用不了哈

czb203 · 发表于 2024-4-7 15:36:23

这个三维图形不行吧，二维才行

angel121204567 · 发表于 2024-4-7 16:29:37

czb203 发表于 2024-4-7 15:36
这个三维图形不行吧，二维才行

可以，1楼的图就是我买的工具箱算出来的

love1030312 · 发表于 2024-4-7 17:12:59

angel121204567 发表于 2024-4-7 14:32
AI写的，用不了哈

AI 还会写代码用的什么有嗲好奇请教下

p-3-ianlcc · 发表于 2024-4-8 11:42:00

angel121204567 发表于 2024-4-7 16:29
可以，1楼的图就是我买的工具箱算出来的

那请问一下，你的工具箱是什麽
方便分享一下吗？

angel121204567 · 发表于 2024-4-8 16:20:53

p-3-ianlcc 发表于 2024-4-8 11:42
那请问一下，你的工具箱是什麽
方便分享一下吗？

不作宣传，价格近400，U盘加密，有点麻烦

angel121204567 · 发表于 2024-4-19 16:09:13

(command "measuregeom" "ar" "a" "o" )
如何突破点选限制，改为框选，有无巨佬

账号		自动登录	找回密码
密码			注册

如何统计计取曲面、面域、闭合多段线的面积和

本帖子中包含更多资源