LSP重量计算

163l2UGS

(DEFUN C:SZL(/ OLDOS PT STA QAREA)
  (while (setq d (getreal "\n-->选取面积图形： "))
0 e& m- [5 \( x6 a- D" [5 ^  (setq l (getreal "\n-->输入厚度： "))
. r" D% S) S: ~. D. {  
% ]( M$ _: D/ y, w& D9 O  (setq olderr *error*)
* R+ r: {  F  x2 W6 ?  (setq *error* myerr)
6 R+ D8 }( O6 Z4 f' C4 m8 L  (SETQ OLDOS (GETVAR "OSMODE"))
# k- g  A2 d' c( e( s) g6 x  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))
  (COMMAND "AREA" "E" STA)
  (SETQ QAREA (RTOS (GETVAR "AREA") 2 2))
   
# z8 G& V2 p6 |! A2 d- }+ ]' K9 E    (princ "\n计算过程：(")
* |5 N( ^" W8 b4 F) A# p$ c  o    (princ AREA)
    (princ "×")
8 }' t3 d4 H8 k# [8 m+ j    (princ 1)
3 A' M4 _( J0 U% _' O    (princ "×")
    (princ "×0.000007856＝")
    (princ " 完成")
    (princ)
    ) ;_ 结束defun
  
: w: @6 z+ @3 j- D3 Q) `$ M/ c( o  (SETQ PT (GETPOINT"\n-->重量的写入位置:"))
  (COMMAND "TEXT" PT "" "" QAREA)
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
* K+ v6 `: B( G  (setq *error* olderr)
     (PRINC "\n重量计算完成")(PRINC))

  }4 Q) T' S; L" `1 R. u0 _! h一个计算钢板重量的程序，大家帮我看看错在哪里

选取图形，输入厚度，求取图形面积，计算，写重量
5 A$ `$ c9 `  x; K) F! y9 m/ u

zlg521314