Question

CAD二次编程(截面).lsp

程序原意:在CAD中画一个封闭图形(面域),然后点击选择面域(计算该面域的面积),输入长度,最后在屏幕中选择一个点输出该面域的面积及输入长度的材料重量的计算结果(希望编程中的材料密度可以按使用都的要求自行更改 .
例:如下,不过下例有点问题,无法完成计算,仅供参考!
(defun c:zl()
; (setQ sblib(getvar"blipmode"))
; (setQ scmde(getvar"cmdecho"))
(setvar"blipmode"0)
(setvar"cmdecho"0)
(setQ mj (getvar"area"))
; (initget 7 ( + 1 2 4))
(setQ hd (getreal "long (mm)=?"))
; (setQ zz( * mj hd 0.00000272))
; (setvar"cmdecho"scmde)
; (prinl"kg/m=")
; (read"kg/m=")
; (prinl"kg/m=")
(setQ zz( * mj hd 0.00000272))
)

Answer 1

(defun c:zl()
; (setQ sblib(getvar"blipmode"))
; (setQ scmde(getvar"cmdecho"))
(setvar"blipmode"0)
(setvar"cmdecho"0)
(setQ mj (getvar"area"))
; (initget 7 ( + 1 2 4))
(setQ hd (getreal "long (mm)=?"))
; (setQ zz( * mj hd 0.00000272))
; (setvar"cmdecho"scmde)
; (prinl"kg/m=")
; (read"kg/m=")
; (prinl"kg/m=")
(setQ zz( * mj hd 0.00000272))
)