如何計算用 AutoLisp 語言程式設計的矩形房屋的面積（基於邊的長度）

您是根據房屋的長度和寬度還是直接選擇矩形來計算 CAD 中的面積???

如果根據輸入長度計算：

defun c:area2()

setq dist1(getdist"請輸入矩形長度："))setq dist2(getdist"請輸入矩形的寬度："))setq area(* dist1 dist2))princ area)

如果基於 CAD 繪圖中矩形的選擇：

defun c:area1()

setq en(car(entsel)))command "area" "o" en )setq area (getvar "area"))princ area)

這取決於您的選擇......

defun mj()

setq l (getreal "請輸入矩形的長度 （l）"))setq w (getreal "請輸入矩形的寬度（w）"))setq s (*l w)）

textscr) ;切換到文字螢幕。

princ (strcat "s=" (rtos s)))princ)

將牆線的長度乘以地板的高度，得到完整的牆面積。

然後計算梁線，並扣除梁在牆上的梁口面積。 線的長度可以從梁底部的面積和梁的側板面積得到。

由梁線和牆線組成的封閉範圍為板面積，可以得到板面積的長度，長度乘以厚度可以從梁塵仿和牆板厚度中扣除。

只需按照上述想法進行程式設計即可。

牆線不能重複，如果重複，就會計算錯誤。 該程式從牆線中刪除重複的線，並獲得閉合的牆線。

用autolisp計算光束有點複雜，首先要識別光束數，如：kl1（2） 200x400; 2 in （） 表示芯根梁是這個尺寸，需要連續計算。 不影響其他光束。

板面積，使用autolisp程式，點選得到板封口的折線。

所有數量都以文字的形式寫在圖紙上，autolisp 對其進行計數以獲得模板區域。

只要按照這些思路寫就好了。 由於你自己寫，你會在不同的圖紙中遇到缺陷，這需要你不斷修補和改進程式。