LSP重量计算

163l2UGS

(DEFUN C:SZL(/ OLDOS PT STA QAREA)
& y4 B7 O! Q4 ]) R- E! P  (while (setq d (getreal "\n-->选取面积图形： "))
  (setq l (getreal "\n-->输入厚度： "))
, W  e+ j) \7 T/ d: a  
  (setq olderr *error*)
& }: \8 g# V: m  (setq *error* myerr)
  (SETQ OLDOS (GETVAR "OSMODE"))
6 U' O1 G$ R! I  F5 o4 w  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))
  (COMMAND "AREA" "E" STA)
) n. t  C/ e3 X% m, g8 _0 P  D  (SETQ QAREA (RTOS (GETVAR "AREA") 2 2))
# P( K! ?) R1 E; }) P   
    (princ "\n计算过程：(")
! i( v  e- w+ Z1 x# m) D6 F. B5 ^    (princ AREA)
3 T9 _# D. n0 Z0 i3 C3 ^    (princ "×")
0 e: n4 a% p% Q3 e8 I    (princ 1)
5 x0 V8 R2 V; o( V( A    (princ "×")
/ R) u8 b  q- O; S* W- r* v    (princ "×0.000007856＝")
    (princ " 完成")
* D- E4 F5 s2 m- d/ o5 d5 b    (princ)
# r8 J8 w- F3 i4 D9 G1 W    ) ;_ 结束defun
( ?5 y) o# w* ]  w) [7 E$ ]4 a  
  (SETQ PT (GETPOINT"\n-->重量的写入位置:"))
  (COMMAND "TEXT" PT "" "" QAREA)
5 i6 a7 x9 u) S1 J  |  @0 n  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
4 l4 \* ?% E' |3 c) f  (setq *error* olderr)
# [. ^/ O! p# n  g9 m     (PRINC "\n重量计算完成")(PRINC))
/ z: k- T6 D& _$ s# J
一个计算钢板重量的程序，大家帮我看看错在哪里
9 c+ h" ]" _0 i" O. J
, ~! H8 @4 G# e/ G. t) ]选取图形，输入厚度，求取图形面积，计算，写重量

zlg521314