在bl方程中使用面积
我使用建筑物不同楼层的面积来确定混凝土浇筑的附属工程量。我使用以下公式计算：（（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文件可能会导致问题。（最简单就是最好）
如果有更好的方法，请告诉我。非常感谢你！！！ 这可能应该移到lisp部分 你在找一个lisp，你可以在该地区键入，它做的数学？你到底想做什么？ 欢迎致电cadtutor。
这是一个使用动态尺寸和字段的图形，只需更改红色尺寸并键入命令“regen”
我并不是百分之百支持你的公式，但这应该能让你开始。
动态区域。图纸 我想有一个lisp或宏，获得选定对象的面积。我正在计算具有不规则轮廓的板中网格的支撑。
如何将其移动到lisp部分？
别担心，一个mod很快就会过来移动它。如果您需要lisp，下次从该部分开始。 不确定你对这些数据的计划是什么，但这是数学
(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))))
) 谢谢你Commandobill！我将用它来计算用于在不规则板和墙上放置钢筋的配件。 我可以将数据打印到您的命令行或作为多行文字。只要告诉我，我会帮你完成代码。 你们可以在多行文字上附加一个字段，这是我花了大约1分钟做的面积，包括比例因子，你们的转换因子。很确定李·麦克有Lisp程序的毛病。如果改变形状，只需重新生成以更新。唯一的挫折是它没有考虑到你的4英尺长条。不确定是否可以将其添加到两点之间的字段计算距离。动态块不能用于表示不规则形状。
页:
[1]