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" )
如何突破点选限制，改为框选，有无巨佬
页: [1]
查看完整版本: 如何统计计取曲面、面域、闭合多段线的面积和