[求助]我是新手，帮我看一下

xjjy · 发表于 2004-10-3 20:35:00

(defun C:test (/ pt1 screw luo luo1 pt2 pt3)
   (command "undo" "group")
;;;    (setq olderr *error*
;;; *error* clerr)
   (setvar "cmdecho" 0)
   (setq pt1 (getpoint "\n中心点: "))
   (setq screw (getint "\n输入螺丝公称尺寸[2/3/4/5/6/8/10/12/14/16/18/20/22/24/26/28/30/33/36]:"))
   (wai)
   (setq pt2 (polar pt1 (- (/ pi 2)) luo))
   (setq pt3 (polar pt1 pi luo))
   (setq luo1 (/ screw 2))
   (command "circle" pt1 luo1)
   (command "_arc" "_c" pt1 pt2 pt3)
   (setvar "cmdecho"1)
;;;    (setq *error* olderr)
   (command "undo" "end")
)
(defun wai ()
   (if (= screw 2)
   (setq luo 0.8)
   )
   (if (= screw 3)
   (setq luo 1.25)
   )
   (if (= screw 4)
   (setq luo 1.65)
   )
   (if (= screw 5)
   (setq luo 2.1)
   )
   (if (= screw 6)
   (setq luo 2.5)
   )
   (if (= screw 8)
   (setq luo 3.4)
   )
   (if (= screw 10)
   (setq luo 4.3)
   )
   (if (= screw 12)
   (setq luo 5.15)
   )
   (if (= screw 14)
   (setq luo 6)
   )
   (if (= screw 16)
   (setq luo 7)
   )
   (if (= screw 18)
   (setq luo 7.75)
   )
   (if (= screw 20)
   (setq luo 8.75)
   )
   (if (= screw 22)
   (setq luo 9.75)
   )
   (if (= screw 24)
   (setq luo 10.5)
   )
   (if (= screw 30)
   (setq luo 13.25)
   )
   (if (= screw 33)
   (setq luo 13.25)
   )
   (if (= screw 36)
   (setq luo 16)
   )
)

(princ)

alin · 发表于 2004-10-4 09:08:00

(defun C:test (/ pt1 screw luo luo1 pt2 pt3)
   (command "undo" "group")
;;;    (setq olderr *error*
;;; *error* clerr)
   (setq datalst '((2 . 0.8)(3 . 1.25)(4 . 1.65)(5 . 2.1)(6 . 2.5)(8 . 3.4)
   (10 . 4.3)(12 . 5.15)(14 . 6)(16 . 7)(18 . 7.75)(20 . 8.75)
   (22 . 9.75)(24 . 10.5)(30 . 13.25)(33 . 13.25)(36 . 16)))
   (setvar "cmdecho" 0)
   (setq pt1 (getpoint "\n中心点: "))
   (setq screw (getint "\n输入螺丝公称尺寸[2/3/4/5/6/8/10/12/14/16/18/20/22/24/26/28/30/33/36]:"))
   (setq luo (cdr (assoc screw datalst)))
   (setq pt2 (polar pt1 (- (/ pi 2)) luo))
   (setq pt3 (polar pt1 pi luo))
   (setq luo1 (/ screw 2.0))
   (command "circle" pt1 luo1)
   (command "_arc" "_c" pt1 pt2 pt3)
   (setvar "cmdecho" 1)
;;;    (setq *error* olderr)
   (command "undo" "end")
   (princ)
)