请帮下忙

apple327

(setq p1 (getpoint "\n基点:"))
  (setq a  (getreal "\n大径:"))
  (cond  ((<= a 3) (setq h 5.0) (setq d 5.0) (setq l 12.0) (setq c 0.4))
         ((<= a 2) (setq h 4.0) (setq d 3.0) (setq l 10.0) (setq c 0.2))
         ((< a 1) (exit))
             )
  (setq p2 (polar p1 (* pi 2) (- (/ d 2) 0.5))
        p3 (polar p2 (* pi 0.25) 0.707107)
        p4 (polar p3 (* pi 0.5) (- l h 0.5))
        p5 (polar p4  pi  (/ (- d a) 2))
        p6 (polar p5 (* pi 0.5) (- h c))
        p7 (polar p6 (* pi 0.583333) (* 1.035276 c))
        p8 (polar p1 (* pi 0.5) l)
        p14(polar p1 pi (- (/ d 2) 0.5))
        p13 (polar p14  (* pi 0.75) 0.707107)
        p12 (polar p13 (* pi 0.5) (- l h 0.5))
        p11 (polar p12 (* pi 2) (/ (- d a) 2))
        p10 (polar p11 (* pi 0.5) (- h c))
        p9  (polar p10 (* pi 0.416667) (* 1.035276 c))
        p15 (polar p5  (* pi 2) 0.5)
        p16 (polar p5 (* pi 0.5) 0.5)
        p17 (polar p11  pi 0.5)
        p18 (polar p11 (* pi 0.5) 0.5)
        p19 (polar p1 (* pi 1.5) 1)
        p20 (polar p8 (* pi 0.5) 1)
        )

           (sub_chk_layer)
            (str)
                (command "line" p2 p3 p4 p12 p13 p14  "c")
         (command  "arc"  p17  "en" p18  "a"  90  "")
         (command  "arc" p16 "en" p15 "a" 90 "")
         (command "line" p16 p6 p7 p9 p10 p18 "")
         (command "line" p6 p10 "")        
         (command "line" p3 p13 "")
            (cen)
         (command "line" p20 p19 "")
                (setvar "cmdecho" oce)
         (setvar "osmode" 1)
      
  )
程序如上，可是不管a=3还是等于1或者2，d 总是为5，请帮忙看一下！！！

meflying

apple327

a有两段值：1到2，>2到3

meflying

apple327

apple327

(defun C:dwx4 ()
  (setvar "osmode" 0)
  (graphscr)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)

  (defun sub_chk_layer()
   (setq chklay (tblsearch "layer" "str"))
   (if (= chklay nil)
       (command "layer" "n" "str" "c" "4" "str" "")
   )
   (setq chklay (tblsearch "layer" "txt"))
   (if (= chklay nil)
       (command "layer" "n" "txt" "c" "3" "txt" "")
   )
   (setq chklay (tblsearch "layer" "dim"))
   (if (= chklay nil)
       (command "layer" "n" "dim" "c" "5" "dim" "")
   )
   (setq chklay (tblsearch "layer" "hat"))
   (if (= chklay nil)
       (command "layer" "n" "hat" "c" "6" "hat" "")
   )
   (setq chklay (tblsearch "layer" "cen"))
   (if (= chklay nil)
       (command "layer" "n" "cen" "c" "1" "cen" "lt" "center" "cen" "")
   )
   (setq chklay (tblsearch "layer" "hid"))
   (if (= chklay nil)
       (command "layer" "n" "hid" "c" "2" "hid" "lt" "hidden" "hid" "")
   )
  )
  (defun cen()
    (command "layer" "s" "cen" ""))
  (defun hid()
    (command "layer" "s" "hid" ""))
  (defun str()
    (command "layer" "s" "str" ""))
  (defun txt()
    (command "layer" "s" "txt" ""))
  (defun dim()
    (command "layer" "s" "dim" ""))
  (defun hat()
    (command "layer" "s" "hat" ""))

  (setq p1 (getpoint "\n基点:"))
  (setq a  (getreal "\n大径:"))
  (cond ((and (>= a 1) (<= a 2)) ( (setq h 4.0) (setq d 3.0) (setq l 10.0) (setq c 0.2)))       
        ((and (> a 2) (<= a 3)) ( (setq h 5.0) (setq d 5.0) (setq l 12.0) (setq c 0.4)))
        ( princ "\n没有此值")
           )
  (setq p2 (polar p1 (* pi 2) (- (/ d 2) 0.5))
        p3 (polar p2 (* pi 0.25) 0.707107)
        p4 (polar p3 (* pi 0.5) (- l h 0.5))
        p5 (polar p4  pi  (/ (- d a) 2))
        p6 (polar p5 (* pi 0.5) (- h c))
        p7 (polar p6 (* pi 0.583333) (* 1.035276 c))
        p8 (polar p1 (* pi 0.5) l)
        p14(polar p1 pi (- (/ d 2) 0.5))
        p13 (polar p14  (* pi 0.75) 0.707107)
        p12 (polar p13 (* pi 0.5) (- l h 0.5))
        p11 (polar p12 (* pi 2) (/ (- d a) 2))
        p10 (polar p11 (* pi 0.5) (- h c))
        p9  (polar p10 (* pi 0.416667) (* 1.035276 c))
        p15 (polar p5  (* pi 2) 0.5)
        p16 (polar p5 (* pi 0.5) 0.5)
        p17 (polar p11  pi 0.5)
        p18 (polar p11 (* pi 0.5) 0.5)
        p19 (polar p1 (* pi 1.5) 1)
        p20 (polar p8 (* pi 0.5) 1)
        )

           (sub_chk_layer)
            (str)
                (command "line" p2 p3 p4 p12 p13 p14  "c")
         (command  "arc"  p17  "en" p18  "a"  90  "")
         (command  "arc" p16 "en" p15 "a" 90 "")
         (command "line" p16 p6 p7 p9 p10 p18 "")
         (command "line" p6 p10 "")        
         (command "line" p3 p13 "")
            (cen)
         (command "line" p20 p19 "")
                (setvar "cmdecho" oce)
         (setvar "osmode" 1)
      
  )

meflying

你在COND判断后( (setq h 4.0) (setq d 3.0) (setq l 10.0) (setq c 0.2))酸什么意思？，列表？函数？
在LISP中，没有用括号将一大堆表达式括起来的写法，如果想将它们当一个表达式处理，要用(progn (setq h 4.0) (setq d 3.0)...)

meflying