怎样做一个带参数的螺纹孔图形的程序

晓雨

请教各位高手，怎样做一个带参数的螺纹孔程序，我是机械设计的，螺纹孔在机械图中用的很多，形状都相同，但大小不一样，我想编一个程序，只要输入参数就可以画出来，能教教我吗？

meflying

先建立一个Center层，然后运行命令：lw

meflying

程序：

2. (defun err(msg)
3.    (princ msg)
4.    (command "_.undo" "e")
5.    (command "u")
6.    (setq *error* errtmp)
7.    (setvar "osmode" os)
8.    (princ "请建立Center层!")
9.    (princ)
10. )(defun GetVal(fun msg key flag vla_tmp / val)
11.    (if (not (eval vla_tmp))
12.        (progn
13.            (initget key (if flag flag ""))
14.            (setq val (fun (strcat msg ":")))
15.        )
16.        (progn
17.            (initget key (if flag (1- flag) ""))
18.            (setq val (fun (strcat msg "<" (rtos (eval vla_tmp)) ">:")))
19.            (if (not val) (setq val (eval vla_tmp)))
20.        )
21.    )
22.    (set vla_tmp val)
23. )(defun c:lw( / d d2 pt lay)
24.    (setvar "cmdecho" 0)
25.    (command "_.undo" "be")
26.    (setq errtmp *error*)
27.    (setq *error* err)
28.    (setq ty_tmp d_tmp)
29.    (setq d (getval getreal "外螺纹,输入直径或[内螺纹(I)]" "I" 7 'ty_tmp))
30.    (if (= d "I")
31.        (progn
32.            (setq d (getval getreal "内螺纹,输入直径" "" 7 'd_tmp))
33.            (setq d2 (/ d 1.1))
34.        )
35.        (setq d2 (* d 1.1))
36.    )
37.    (initget 1)
38.    (setq pt (getpoint "输入中心:"))   
39.    (setq os (getvar "osmode"))
40.    (setvar "osmode" 0)
41.    (command "_.circle" pt (/ d 2.0))
42.    (command "_.arc" "c" pt (polar pt (/ pi 18.0) (/ d2 2.0)) (polar pt (+ (/ (* pi 3.0) 2.0) (/ pi 18.0)) (/ d2 2.0)))
43.    (setq lay (getvar "clayer"))
44.    (command "_.clayer" "Center")
45.    (command "_.line" (polar pt (/ pi 2.0) (* 5.0 (/ d 7.0))) (polar pt (/ (* pi 3.0) 2.0) (* 5.0 (/ d 7.0))) "")
46.    (command "_.line" (polar pt 0 (* 5.0 (/ d 7.0))) (polar pt pi (* 5.0 (/ d 7.0))) "")
47.    (command "_.clayer" lay)
48.    (command "_.undo" "e")
49.    (setq *error* errtmp)
50.    (setvar "osmode" os)
51.    (princ)
52. )

(defun err(msg)    (princ msg)    (command "_.undo" "e")    (command "u")    (setq *error* errtmp)    (setvar "osmode" os)    (princ "请建立Center层!")    (princ) )(defun GetVal(fun msg key flag vla_tmp / val)    (if (not (eval vla_tmp))        (progn            (initget key (if flag flag ""))            (setq val (fun (strcat msg ":")))        )        (progn            (initget key (if flag (1- flag) ""))            (setq val (fun (strcat msg "<" (rtos (eval vla_tmp)) ">:")))            (if (not val) (setq val (eval vla_tmp)))        )    )    (set vla_tmp val) )(defun c:lw( / d d2 pt lay)    (setvar "cmdecho" 0)    (command "_.undo" "be")    (setq errtmp *error*)    (setq *error* err)    (setq ty_tmp d_tmp)    (setq d (getval getreal "外螺纹,输入直径或[内螺纹(I)]" "I" 7 'ty_tmp))    (if (= d "I")        (progn            (setq d (getval getreal "内螺纹,输入直径" "" 7 'd_tmp))            (setq d2 (/ d 1.1))        )        (setq d2 (* d 1.1))    )    (initget 1)    (setq pt (getpoint "输入中心:"))       (setq os (getvar "osmode"))    (setvar "osmode" 0)    (command "_.circle" pt (/ d 2.0))    (command "_.arc" "c" pt (polar pt (/ pi 18.0) (/ d2 2.0)) (polar pt (+ (/ (* pi 3.0) 2.0) (/ pi 18.0)) (/ d2 2.0)))    (setq lay (getvar "clayer"))    (command "_.clayer" "Center")    (command "_.line" (polar pt (/ pi 2.0) (* 5.0 (/ d 7.0))) (polar pt (/ (* pi 3.0) 2.0) (* 5.0 (/ d 7.0))) "")    (command "_.line" (polar pt 0 (* 5.0 (/ d 7.0))) (polar pt pi (* 5.0 (/ d 7.0))) "")    (command "_.clayer" lay)    (command "_.undo" "e")    (setq *error* errtmp)    (setvar "osmode" os)    (princ) )

晓雨

很感谢你，我还有很多很多问题要请教你，谢谢