LSP重量计算

163l2UGS

(DEFUN C:SZL(/ OLDOS PT STA QAREA)
  (while (setq d (getreal "\n-->选取面积图形： "))
( G0 ~6 P) m9 O" z# n+ R/ k  (setq l (getreal "\n-->输入厚度： "))
1 Z, t9 j( |3 d) O( R& ^" Q  
& r8 I6 u- W  h, B' b# b  (setq olderr *error*)
+ ^4 D3 H/ n$ ?3 g. v" ?8 C, x' n0 h  (setq *error* myerr)
  (SETQ OLDOS (GETVAR "OSMODE"))
! `% M% W* w$ v& Q* X& ~! }  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))
  (COMMAND "AREA" "E" STA)
  (SETQ QAREA (RTOS (GETVAR "AREA") 2 2))
$ [' _$ Q  _8 |9 f! [3 d* G   
' n4 T6 R  A. s3 w# j+ P" n8 [0 O    (princ "\n计算过程：(")
; i; s) x! y* V. Q7 n1 ~( S    (princ AREA)
& i! C/ o$ {( i1 P& H4 @; Z, \- t' r    (princ "×")
    (princ 1)
* Z" W$ K7 t! O/ L+ w    (princ "×")
' a3 Z5 W; n) O! _    (princ "×0.000007856＝")
    (princ " 完成")
    (princ)
    ) ;_ 结束defun
  
% a+ p' ^7 i2 e% d4 D- w! @  (SETQ PT (GETPOINT"\n-->重量的写入位置:"))
  (COMMAND "TEXT" PT "" "" QAREA)
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
9 i& C+ j9 Z% R9 ~6 s* Z4 |7 I  (setq *error* olderr)
     (PRINC "\n重量计算完成")(PRINC))
6 [( a  ~6 n4 L
: b: b$ ?( |7 C2 ?/ j; y6 N一个计算钢板重量的程序，大家帮我看看错在哪里
8 P& y6 k* ]) [
& }/ ^: K5 D3 p" d选取图形，输入厚度，求取图形面积，计算，写重量

2 w$ z7 q0 t3 M3 X- b2 T: M

zlg521314