大家帮我看看这个程序
(defun c:kg()(setq abc (entsel))
(setq e1 (car abc))
(entget e1)
(setq e11 (vlax-ename->vla-object e1))
(setq Area1 (vlax-get-property e11 'Area))
(setq bh (getreal "板厚") a "1钢 2粉末钢 3铜 5不锈钢 9铝")
(prompt a)
(setq bb (list 0 7.85 8.25 8.70 7.93 2.70))
(setq b (getint "选择") kk (nth b bb) k (/ kk 1000000))
(setq ss (* (* bh Area1) k))
(prompt (strcat "面积:" (rtos Area1 2 4)))
(terpri)
(prompt (strcat "重量:" (rtos ss 2 4)"kg"))
(princ)
)
一个求重量的程序，想求教各位几个问题。。
1： "板厚"输入也想像材质密度那样设几个选项 ，不知道怎么弄
2：计算部分也想加多个乘法计算，如 x 1.2或 x 1.5，这个数值想透过人工输入
3：想将计算结果面积:。。。
重量。。。kg
用text写出来
页:
[1]