大神能帮开发一下型材、板材重量计算代码吗？（已经解决）

tanxindong

这是我根据2楼的xtjd大神自行通过AI帮助设计的插件。包含完整的：“开孔板重量 命令 TFW,异形状型材重量命令XCW”，
为了回收些币，每个售价1明经币，2个插件一共2个明经币







大神请帮忙设计这三个重量计算的代码
祝新年快乐，身体健康，万事如意，阖家幸福，2025行大运，实现一个小目标，挣它1个亿
普通型材
我的思路是：
1.输入的材料密度 ，默认7.85
2.选取已经画好的型材剖面图形，
3.程序根据输入的图形计算出线密度
4.选取已经画好图中1根或多根采用这个型材规格的线段（可以是line pl,arc等）
4.程序计算出选中的1根或多根线对应的剖面型材重量，
5.写计算结果“线密度，总长度，型材重量”到图中指定位置（用当前字体图层什么的）
6.TEXT
********--------------------------****************

复杂型材


工程上用的型材比如钢管（圆形及多边形钢管）或含有减轻孔的异形型材。能否升级为型材重量计算代码。
我的思路是：
1.输入的材料密度 ，默认7.85
2.选取已经画好的型材剖面图形，它是用2到多个封闭图元组成的截面
a.操作时第一次选取主体封闭图元(最外围的曲线)，并计算面积值a
b.选内围的封闭图元（可以点选、框选，这是需要扣减的面积），并计算总面积值b
c.用 值a-值b = 值c
（当然也可以一次一框选所有截面图形，让程序自已找出最大的面积值c，
  然后将去除最大面积值的各个面积值进行相加得到值b,再用值a-值b 得到 值c）
3.程序根据 值c，材料密度， 计算出图形的线密度
4.选取已经画好图中1根或多根采用这个型材规格的线段（可以是line pl,arc等）
5.程序计算出选中的1根或多根的这根线对应的剖面型材重量，
6.写计算结果“线密度，总长度，型材重量”到图中指定位置（用当前字体图层什么的）
7.TEXT

*********************---------------------********************

开孔异形板材重量

已经切割下好料的钢板上面会有不确定定数量的开孔（开孔有方形圆形，椭圆形多种可以是line pl,arc，ellipse等）


我的思路是：
1.输入的材料密度 ，默认7.85
2.选取已经画好的板材剖面图形，它是用2到多个封闭图元组成
a.操作时第一次选取主体封闭图元(最外围的曲线)，并计算面积值a
b.选内围的封闭图元（可以点选、框选，这是需要扣减的面积），并计算总面积值b
c.用 值a-值b = 值c
（当然也可以一次一框选所有封闭曲线图元，让程序自已找出最大的面积值c，
  然后将去除最大面积值的各个面积值进行相加得到值b,再用值a-值b 得到 值c）
3.输入板材的厚度，
4.程序根据 密度 ，值c ，厚度 计算出板材重量
5.写计算结果“密度，厚度，板材重量”到图中指定位置（用当前字体图层什么的）
6.TEXT

xtjd

(defun c:T1()
  (setq
    ss(ssget)
    r1(getreal "\n请输入密度:")
    r2(getdist "\n请输入厚度:")
    os(mapcar 'vlax-ename->vla-object(vl-remove-if 'listp(mapcar 'cadr(ssnamex ss))))
    o1(mapcar 'vla-get-Area os)
    o2(vl-sort o1 '>)
    o3(-(car o2)(apply '+(cdr o2)))
    r3(* o3 r1 r2)
    pt(getpoint "\n指定文字插入点:")
  )
  (entmakex(list '(0 . "TEXT")'(40 . 10)(cons 10 pt)(cons 1(strcat "重量:"(rtos r3)))))
)

嘉伟钢结构

楼主：快捷键是什么？

tanxindong

二楼的码是   T1
我写的代码板材是 tfw  型材是 xcw