Question

如何用autolisp语言编程计算长方形房屋的面积（根据边长）

急

Answer 1

请问你在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)
)

看你的选择了……

Answer 2

(defun mj()
(setq l (getreal "请输入长方形的长（l）:"))
(setq w (getreal "请输入长方形的宽（w）:"))
（setq s (* l w)）
(textscr) ;;;切换到文本画面
(princ (strcat "s=" (rtos s)))
(princ)
)