[求助] 赐小生一条生路吧

kukucook

麻烦哪位大哥 帮我看一下

此程序在05版的AutoCAD中运行 每次运行的结果都会有差异

反复看了程序没有 问题  是不是 我的软件有问题 如果是 可有补丁程序?

谢谢^_^

zhoucheng2:dialog{
   label="绘制深沟球轴承";
  :popup_list{label="轴承型号";
              key="key_type";
              list="6200\n6201\n6202\n6203\n6204\n6205\n6206\n6207\n6208\n6209\n6210\n6211\n6212\n6213\n6214\n6215\n6216\n6217\n6218\n6219\n6220";
               }
   ok_cancel;
}

(defun c:zhoucheng2()
       (setq return_value (load_dialog "zhoucheng2"))
       (setq what_next 2)
       (while (>= what_next 2)
  (if (null (new_dialog "zhoucheng2" return_value)) (exit))
         (initial)
  (action_tile "accept" "(getdata) (done_dialog 1)")
  (setq what_next (start_dialog))
  (if (= what_next 1) (draw))
        )
       (unload_dialog return_value)
       (princ)
 )

(defun initial()
  (setq data_6200_list (list "10" "30" "9"))
  (setq data_6201_list (list "12" "32" "10"))
  (setq data_6202_list (list "15" "35" "11"))
  (setq data_6203_list (list "17" "40" "12"))
  (setq data_6204_list (list "20" "47" "14"))
  (setq data_6205_list (list "25" "52" "15"))
  (setq data_6206_list (list "30" "62" "16"))
  (setq data_6207_list (list "35" "72" "17"))
  (setq data_6208_list (list "40" "80" "18"))
  (setq data_6209_list (list "45" "85" "19"))
  (setq data_6210_list (list "50" "90" "20"))
  (setq data_6211_list (list "55" "100" "21"))
  (setq data_6212_list (list "60" "110" "22"))
  (setq data_6213_list (list "65" "120" "23"))
  (setq data_6214_list (list "70" "125" "24"))
  (setq data_6215_list (list "75" "130" "25"))
  (setq data_6216_list (list "80" "140" "26"))
  (setq data_6217_list (list "85" "150" "28"))
  (setq data_6218_list (list "90" "160" "30"))
  (setq data_6219_list (list "95" "170" "32"))
  (setq data_6220_list (list "100" "180" "34"))
 )

(defun getdata()
  (setq m_type (get_tile "key_type"))
  (setq m_type (atoi m_type))
  (setq data_list (eval (read (strcat "data_" (nth m_type (list "6200" "6201" "6202" "6203" "6204" "6205" "6206" "6207" "6208" "6209" "6210" "6211" "6212" "6213" "6214" "6215" "6216" "6217" "6218" "6219" "6220")) "_list"))))
  (setq nd (nth 0 data_list))
  (setq nd (atoi nd))
  (setq wd (nth 1 data_list))
  (setq wd (atoi wd))
  (setq b (nth 2 data_list))
  (setq b (atoi b))
 )

(defun draw()
  (command "layer" "m" "0" "ON" "0" "L" "continuous" "0" "")
  (setq r (/ (- wd nd) 8))
  (command "pline"
    (setq p1 (list 0 0))    
    (setq p2 (polar p1 0 b))
    (setq p3 (polar p2 (/ pi -2) (- (* 2 r) (/ r 2))))
    (setq p4 (polar p3 pi (/ (- b (* r (sqrt 3))) 2)))
     "a" "d" "120"
    (setq p5 (polar p4 pi (* r (sqrt 3))))
     "l"
    (setq p6 (polar p5 pi (/ (- b (* r (sqrt 3))) 2)))
     "c"  
    )
  (setq object (entlast))
  (command "hatch" "ansi31" "" "0" object "")
  (setq pt (polar p1 (/ pi -2) (* 2 r)))
  (setq pz11 (polar pt pi 1.5))
  (setq pz12 (polar pz11 0 (+ 3 b)))
  (setq ss (ssget "X" (list (cons 8 "0"))))
  (command "mirror" ss "" pz11 pz12 "")
  (setq cir (list (/ b 2) (* r -2 )))
  (command "circle" cir r)
  (setq pz21 (polar p1 (* pi -0.5) (/ wd 2)))
  (setq pz22 (polar p2 (* pi -0.5) (/ wd 2)))
  (command "line" p1 pz21 "")
  (command "line" p2 pz22 "")

  (setq ss (ssget "X" (list (cons 8 "0"))))
  (command "mirror" ss "" pz21 pz22 "")
  (princ)
)

sailorcwx

在进行polar运算的时候把捕捉关闭