新手求助：大侠们帮忙看一下程序，多谢：）

fishnono

程序功能是这样的：选择平面图形，求出面积，然后键盘输入钢板厚度，程序自动算出构件的净重。

我编的程序老是出毛病，大虾们帮忙改一下，多谢了：）

(defun c:mj (/ plate wmj zuizh zhiliang tiji houdu ss1 nr en tot_area)
  (setq plate (ssget))

 
  (command "area"
    "o"
    plate
    )
  (setq wmj (getvar "area"))
  (if (setq ss1 (ssget  '((-4 . "<OR")
                         (0 . "POLYLINE")
                         (0 . "LWPOLYLINE")
                         (0 . "CIRCLE")
                         (0 . "ELLIPSE")
                         (0 . "SPLINE")
                         (0 . "REGION")
                         (-4 . "OR>")
                        )
                )
      )
    (progn
      (setq nr 0)
      (setq tot_area 0.0)
      (setq en (ssname ss1 nr))
      (while en
        (command "._area" "_O" en)
        (setq tot_area (+ tot_area (getvar "area")))
        (setq nr (1+ nr))
        (setq en (ssname ss1 nr))
      )
     
    )
  )
    (setq zuizh (- wmj tot_area))
 
    (setq houdu (getint"输入板的厚度"))
    (setq tiji (* zuizh houdu))
    (setq tiji (/ tiji 1000000000))
    (rtos tiji 2 2)
    (setq zhiliang (* 7850 tiji))
  
       
   
   
    (princ "单品净重为:")
    (princ zhiliang)

    )

ZZXXQQ

3. (defun c:mj (/ SS wmj zuizh zhiliang tiji houdu I en tot_area)
4. (SETVAR "CMDECHO" 0)
5. (PRINC "\nSelect first object :")
6. (IF (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,REGION,SPLINE,*POLYLINE")))) (PROGN
7.   (COMMAND "AREA" "O" (SSNAME SS 0))
8.   (SETQ WMJ (GETVAR "AREA"))
9.   (PRINC "\nSelect some object(s) to subtract :")
10.   (IF (SETQ SS (SSGET '((0 . "CIRCLE,ELLIPSE,REGION,SPLINE,*POLYLINE")))) (PROGN
11.    (SETQ I -1)
12.    (REPEAT (SSLENGTH SS)
13.     (SETQ EN (SSNAME SS (SETQ I (1+ I))) tot_area 0.0)
14.     (command "area" "o" EN)
15.     (setq tot_area (+ tot_area (getvar "area")))
16.    )
17.    (setq zuizh (- wmj tot_area))
18.   )
19.    (SETQ ZUIZH WMJ)
20.   )
21.   (SETQ houdu (GETDIST "\nInput thickness 输入板的厚度:"))
22.   (setq tiji (* zuizh houdu)
23.         zhiliang (* 7.85E-6 tiji))
24. ))
25. (PRINC "\nVolume is :") (PRINC (rtos tiji 2 3))
26. (princ " Mass is 钢板质量为:") (princ zhiliang)
27. (PRINC)
28. )

(defun c:mj (/ SS wmj zuizh zhiliang tiji houdu I en tot_area) (SETVAR "CMDECHO" 0) (PRINC "\nSelect first object :") (IF (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,REGION,SPLINE,*POLYLINE")))) (PROGN   (COMMAND "AREA" "O" (SSNAME SS 0))   (SETQ WMJ (GETVAR "AREA"))   (PRINC "\nSelect some object(s) to subtract :")   (IF (SETQ SS (SSGET '((0 . "CIRCLE,ELLIPSE,REGION,SPLINE,*POLYLINE")))) (PROGN    (SETQ I -1)    (REPEAT (SSLENGTH SS)     (SETQ EN (SSNAME SS (SETQ I (1+ I))) tot_area 0.0)     (command "area" "o" EN)     (setq tot_area (+ tot_area (getvar "area")))    )    (setq zuizh (- wmj tot_area))   )    (SETQ ZUIZH WMJ)   )   (SETQ houdu (GETDIST "\nInput thickness 输入板的厚度:"))   (setq tiji (* zuizh houdu)         zhiliang (* 7.85E-6 tiji)) )) (PRINC "\nVolume is :") (PRINC (rtos tiji 2 3)) (princ " Mass is 钢板质量为:") (princ zhiliang) (PRINC) )