[编程交流] “如果”

(defun foo (n l)
 (eval
   (cons 'cond
  (append (mapcar '(lambda (x)
                     (list (cons '<= (list 200. n x)) [color="green"];(<= 200. n x) [/color]
                           (list 'princ (strcat "i am more than 200 and less than " (vl-princ-to-string x)))
                           ) 
                     ) 
                  l
                  ) 
          '((t
             (if
              (< n 200.)
              (princ "\nI am less than 200.")
              (princ "i am not any of the above..")
              )
             )
            )
          ) 
  ) 
   ) 
 ) 
([color="blue"]foo[/color] (setq dist1 (- dist1 40)) '(400 600 800 1000 1500 2000 2500 3000) )

(setq d (- dist1 40))
(or (vl-some '(lambda ( x ) (if (< d x) (princ (strcat "\nI am less than " (rtos x))))) '(200 400 600 800 1000))
   (princ "\nI am greater than 1000.")
)

 (or (and (setq p (vl-position t (mapcar '(lambda (x) (< (- dist1 40) x)) (setq l '(200 400 600 800 1000)))))
          (princ (strcat "\nI am less than " (itoa (nth p l))))
          )
     (princ "\nI am greater than 1000.")
     )

 (or (and (setq p (vl-position t (mapcar '(lambda (x) (< (- dist1 40) x)) (setq l '(200 400 600 800 1000)))))          (princ (strcat "\nI am less than " (itoa (nth p l))))          )     (princ "\nI am greater than 1000.")     )

'( ((nil 30) "I'm below or equal to thirty")  ((40 nil) "I'm above or equal to forty")  (nil "I'm something else, in this case between 30-40 (exclusive)"))

(defun c:ww (/ P1 P2 P3 P4 Ang1 Dist1 Dist2 hole1a hole1b Copies)    (savevartoold)     (setq P1 (getpoint "\n Select a Point  : "))     (setq P2 (getpoint P1 "\n Select a Point  : "))     (setq Dist1 (distance P1 P2))     (setq Dist2 (- Dist1 40.0))     (setq Ang1 (angle P1 P2))     (setq P3 (polar P1 (dtr 0) 20))     (setq P4 (polar P3 (dtr 0) Dist2))   (cond     ((and (> Dist2  1)      (< Dist2 200))  (setq Copies 1))      ((and (> Dist2  200)  (< Dist2 400))  (setq Copies 2))     ((and (> Dist2  200)  (< Dist2 600))  (setq Copies 3))     ((and (> Dist2  200)  (< Dist2 800))  (setq Copies 4))     ((and (> Dist2  200)  (< Dist2 1000)) (setq Copies 5))     ((and (> Dist2  200)  (< Dist2 1200)) (setq Copies 6))   )                     (setvar "osmode" 0)     (command "_.circle" (polar P1 (+ ang1 (dtr 0)) 20.0) "D" 3.2 "" )      (setq hole1a (entlast))     (command "copym" hole1a "" P3 "d" P4 Copies "")

(defun c:ww (/ P1 P2 P3 P4 Ang1 Dist1 Dist2 hole1a hole1b Copies)(savevartoold) (if (and (setq P1 (getpoint "\n Select a Point  : "))      (setq P2 (getpoint P1 "\n Select a Point  : "))      (setq Dist1  (distance P1 P2)   Dist2  (- Dist1 40.0)   Ang1          (angle P1 P2)   P3          (polar P1 [color="red"]0.0[/color] 20.)   P4          (polar P3 [color="red"]0.0[/color] Dist2)   [b]Copies[/b] [color="red"](if (< 0.0 Dist2 1200.)            (1+ (fix (/ Dist2 200.)))            ) [/color]   )       [color="red"](setq hole1a (entmakex (list '(0 . "CIRCLE") (cons 10 (polar P1 (+ ang1 0.) 20.0)) '(40 . 3.2))))[/color]      )[color="red"]          (vl-cmdf "-array" "_non" hole1a "" "r" 1 Copies (/ (distance p3 p4) Copies)) [/color][color="green"]; like this??[/color]      [color="green"];;;     (acet-copym-divide (ssadd hole1a) p3 p4 copies) ;express tool [/color] (alert [color="purple"]"\nLimits! 0 < x < 1200 !!"[/color]) ) (princ) )