请帮下忙

apple327 · 发表于 2003-4-16 15:10:00

(setq p1 (getpoint "\n基点:"))
(setq a (getreal "\n大径:"))
(cond ((

yvlcjdepo4e.gif

apple327 · 发表于 2003-4-16 15:31:00

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

apple327 · 发表于 2003-4-16 19:11:00

(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) (<= 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 · 发表于 2003-4-17 08:53:00

你在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)...)

请帮下忙

发表回复

精选推荐