[编程交流] 我的代码有问题吗？第

(defun c:sbb(/a b)
 ((setq a 10 b 5)
   (if (> a b)
     (progn (princ a)
(setq a (+ a 5) b (+ b 6))
   ((princ a)(princ))
   ((princ b)(princ))
)
   )
 )
 )

Your Code Here

Your Code Here

(defun c:sbb ( / a b )
  ;( this isn't required
   (setq a 10 b 5)
   (if (> a b)
       (progn 
           (princ a)
           (setq a (+ a 5) b (+ b 6))
          ;( this isn't required
           (princ a)
          ;(princ) This can be replaced by one final (princ)
           this isn't required
          ;( this isn't required
           (princ b)
          ;(princ) This can be replaced by one final (princ)
           this isn't required
       ) ;; end progn
   ) ;; end if
   (princ) ;; This can replace the earlier (princ) expressions
   this isn't required
) ;; end defun

(defun c:sbb (/ a b)
   (if (> a b)
       (progn 
           (princ a)
           (setq a (+ a 5) b (+ b 6))
       ) 
   )
) 

(setq a 10 b 5)
(sbb a b)

(defun sbb ( a b )
   (if (> a b)
       (progn
           (princ a)
           (setq a (+ a 5) b (+ b 6))
       )
   )
)