在bl方程中使用面积

Scott B · 发表于 2022-7-5 18:48:22

我使用建筑物不同楼层的面积来确定混凝土浇筑的附属工程量。我使用以下公式计算：（（sqrt（面积））-4’）/4’*sqrt（面积）。这让我知道材料的线性英尺，间距为（正方形）房间全长的4英尺。我对不同的配件使用了类似的公式。我想要一个工具，可以获得尽可能少的点击信息。

我用一个可以工作的桌子做实验。。。好啊
A1-标签
A2-字段=获取面积（平方英寸）
A3-转换为英尺=A2/144
A4-=sqrt（A3）（qet正方形一侧的长度）
A5-=（A4-4）/4（将长度除以4’的间距）
A6-=A4*A5（4’处的总运行长度）

这将作为一个块工作，只需分解并更新它所使用的每个区域的面积字段。

我的IT将不得不评估任何lisp，因为我们的AutoCad 2012由RebarCAD承载，lisp文件可能会导致问题。（最简单就是最好）
如果有更好的方法，请告诉我。非常感谢你！！！

Commandobill · 发表于 2022-7-5 18:59:41

这可能应该移到lisp部分

Commandobill · 发表于 2022-7-5 19:08:07

你在找一个lisp，你可以在该地区键入，它做的数学？你到底想做什么？

zaphod · 发表于 2022-7-5 19:12:54

欢迎致电cadtutor。

这是一个使用动态尺寸和字段的图形，只需更改红色尺寸并键入命令“regen”
我并不是百分之百支持你的公式，但这应该能让你开始。
动态区域。图纸

Scott B · 发表于 2022-7-5 19:15:34

我想有一个lisp或宏，获得选定对象的面积。我正在计算具有不规则轮廓的板中网格的支撑。

如何将其移动到lisp部分？

Commandobill · 发表于 2022-7-5 19:24:12

别担心，一个mod很快就会过来移动它。如果您需要lisp，下次从该部分开始。

Commandobill · 发表于 2022-7-5 19:31:30

不确定你对这些数据的计划是什么，但这是数学

copy

(defun c:areaequation ( / ONEWALL ROOMAREA ROOMENT ROOMSS SPACINGBY4FEET TOTALLENGTHAT4FEET)
 (if (setq roomSS (ssget "_+.:E:S" (list (cons 0 "LWPOLYLINE"))))
   (progn
     (setq roomEnt (vlax-ename->vla-object (cadar (ssnamex roomSS))))
     (setq roomArea (/ (vla-get-area roomEnt) 144))
     (setq oneWall (sqrt roomArea))
     (setq spacingBy4Feet (/ (- oneWall 4) 4))
     (setq totalLengthat4Feet (* oneWall spacingBy4Feet))))    
     
     
 )