这个出了什么问题

DREAMERc

(defun c:SS(/ zhouchang mianji mm a name)
  (setq zhouchang 0)
  (setq mianji 0)
  (setq mm 0)
  (setq a nil)
(if (setq a (ssget))
    (setq name (ssname a 0))   
      (progn
        (command "area" "o" name)
        (setq mianji (getvar "area"))       
        (setq zhouchang (getvar "perimeter"))       
      )
)     
(setq mm (+ (* zhouchang 500) mianji))
  (print (list "mm=" mm))
  (princ)
)

xinrstar

1. (defun c:SS (/ zhouchang mianji mm a name)
   
2.   (setq zhouchang 0)
   
3.   (setq mianji 0)
   
4.   (setq mm 0)
   
5.   (setq a nil)
   
6.   (if (setq a (ssget))
   
7.     (progn
   
8.       (setq name (ssname a 0))
   
9.       (command "area" "o" name)
   
10.       (setq mianji (getvar "area"))
    
11.       (setq zhouchang (getvar "perimeter"))
    
12.       (setq mm (+ (* zhouchang 500) mianji))
    
13.       (print (list "mm=" mm))
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:SS (/ zhouchang mianji mm a name)<br />   (setq zhouchang 0)<br />   (setq mianji 0)<br />   (setq mm 0)<br />   (setq a nil)<br />   (if (setq a (ssget))<br />     (progn<br />       (setq name (ssname a 0))<br />       (command "area" "o" name)<br />       (setq mianji (getvar "area"))<br />       (setq zhouchang (getvar "perimeter"))<br />       (setq mm (+ (* zhouchang 500) mianji))<br />       (print (list "mm=" mm))<br />     )<br />   )<br />   (princ)<br /> )