Autolisp編程的螺栓代碼

1、Autolisp編程的螺栓代碼2011-06-02 20:36(defun d:cc (  (setq oce (getvar "cmdecho"        ；設(shè)置對象捕捉  (setvar "cmdecho" 0  (graphscr         顯示AutoCAD圖形屏幕;創(chuàng)建如果與你所用圖層不符，可自行修改  (setq clay (getvar "clayer"      

2、;          取得圖層信息;創(chuàng)建中心線層center顏色紅  (if (null (tblsearch "layer" "center"    (command "_layer" "_m" "center" "_c" 5 "" "_lt" "center" ""      

3、60;""  ;創(chuàng)建細(xì)實線層continuous顏色青  (if (null (tblsearch "layer" "continuous"    (command "_layer"        "_m"           "continuous"              

4、   "_c"            5               ""           "_lt"      "continuous"             ""     

5、0;          ""                 (command ".layer" "s" "0" ""   (setq o (getpoint "n 輸入插入點:"  (if (not d    (setq b "默認(rèn)"    (se

6、tq b " 上次輸入"    (if (not d    (setq d 10    (setq a d  (princ    "n 輸入螺栓規(guī)格m5/6/8/10/12/16/20/24/30/36/42/48/56<"    (princ b  (princ d  (princ ">:"   (setq d (getint       &#

7、160;                "n 輸入螺栓規(guī)格m5/6/8/10/12/16/20/24/30/36/42/48/56<默認(rèn)" d ">:"   (if (not d                                ；if單分支函數(shù)    (

8、setq d a    (if (not l    (setq b "默認(rèn)"    (setq b " 上次輸入"    (setq en t  (while en    (setq en nil    (cond (= d 5                             &#

9、160;  ；cond多分支函數(shù)           (setq e 8.63           (setq k 3.5           (setq l1 20.0           (setq l2 16                   

10、; (= d 6           (setq e 11.0           (setq k 4.0           (setq l1 23.0           (setq l2 18                    (= d 8 

11、;          (setq e 14.4           (setq k 5.3           (setq l1 28.25           (setq l2 22                    (= d 10    &#

12、160;      (setq e 17.8           (setq k 6.4           (setq l1 33.5           (setq l2 26                    (= d 12       

13、   (setq e 20.0           (setq k 7.5           (setq l1 38.75           (setq l2 30                    (= d 16          

14、0;(setq e 26.8           (setq k 10.0           (setq l1 48.0           (setq l2 38                    (= d 20           (setq e 3

15、3.0           (setq k 12.5           (setq l1 58.5           (setq l2 46                    (= d 24           (setq e 39.6  &

16、#160;        (setq k 15.0           (setq l1 69.0           (setq l2 54                    (= d 30           (setq e 50.9     

17、;      (setq k 18.7           (setq l1 83.5           (setq l2 66                    (= d 36           (setq e 60.8        &#

18、160;  (setq k 22.5           (setq l1 95.5           (setq l2 78                    (= d 42           (setq e 72           (s

19、etq k 26           (setq l1 113.5           (setq l2 96                    (= d 48           (setq e 82.6           (setq k 30

20、0;          (setq l1 121.5           (setq l2 108                    (= d 56           (setq e 93.6           (setq k 35    &

21、#160;      (setq l1 137.5           (setq l2 124                    (= d 64           (setq e 104.9           (setq k 40      

22、0;    (setq l1 153.5           (setq l2 140                    (t           (progn                        非上述口徑時則令 

23、            (setq d (getint "沒有這個直徑的螺栓,請重新輸入螺栓規(guī)格,m=:"             (setq en t                令en為真,產(chǎn)生循環(huán)                       

24、                    結(jié)束prong                                         結(jié)束t                   

25、                          結(jié)束cond                                         結(jié)束while  (if (not l    (setq l 50  &#

26、160; (setq a l  (princ "n 輸入螺栓長度<"  (princ b  (princ l  (princ ">:"   (setq l (getdist  (if (not l    (setq l a    (setq ang1 (getangle o "n 輸入旋轉(zhuǎn)角度<默認(rèn)0>:"  (if (not ang1    (setq ang1 0

27、60;   (setq zx (getstring "n 是否要中心線(no :"   (if (= zx ""    (setq zx "y"    (setq os (getvar "osmode"  (setq ang (/ (* 180 ang1 pi  (command "osmode" 0    (setq ls (- l l1  (setq l3 (getdist

28、 "n輸入螺紋長度"                    ；輸入螺紋長度  (setq lg (- l l3                                                   

29、0;長度減螺紋長度  (if (> l3              l    (setq lg 0                                                        &#

30、160;                     螺紋長度過小時變成全螺紋  (setq k1 (sqrt (- (* 2.25 (* d d (/ (* e e 16    ； 給K1賦值  (setq h (- (* 1.5 d k1                             &#

31、160;          ； 給h賦值                (setq r1 (+ (* h h (/ (* e e 64                          ； 給r1賦值  (setq r (/ (/ r1 2 h         

32、0;                                    ； 給r賦值  (setq p1 (list 0 (/ e 2                                     

33、0;   ;p1的坐標(biāo)位置  (setq p2 (list 0 (- 0 (/ e 2                                 p2的坐標(biāo)位置  (command "ucs" "o" o  (command "ucs" "z" ang  (command "line

34、" p1 p2 ""                                ；直線連接p1 p2兩點  (setq p3 (list (- (* 1.5 d (+ k k1 (/ e 4           p3的坐標(biāo)位置  (setq p4 (list (- (* 1.5 d (+ k k1 (- 0 (/

35、e 4    p4的坐標(biāo)位置  (setq c1 (list (- (* 1.5 d k 0                             圓心c1的坐標(biāo)位置  (command "arc" p3 "c" c1 p4                     &

36、#160;       ；圓弧連接p3 c1 p4，c是圓心  (setq p5 (list 0 (/ e 4                                     p5的坐標(biāo)位置  (setq p6 (list 0 (- 0 (/ e 4          

37、                 p6的坐標(biāo)位置  (command "line" p3 p5 ""                                ；直線連接p3 p5兩點  (command "line" p4 p6 ""

38、                              ；直線連接p4 p6兩點  (setq p7 (list (- (* 1.5 d (+ k k1 (/ e 2     p7的坐標(biāo)位置  (setq c2 (list (- r k (* 0.375 e                  

39、 圓心c2的坐標(biāo)位置  (command "arc" p7 "c" c2 p3                       ；圓弧連接p7 c2 p3，c是圓心  (setq p8 (list (- (* 1.5 d (+ k k1 (- 0 (/ e 2  p8的坐標(biāo)位置  (setq c3 (list (- r k (- 0 (* 0.375 e       &#

40、160;       圓心c3的坐標(biāo)位置  (command "arc" p4 "c" c3 p8                     ；圓弧連接p4 c3 p8，c是圓心  (command "line" p7 p1 ""               &

41、#160;  ；直線連接p1 p7兩點  (command "line" p8 p2 ""                            ；直線連接p8 p2兩點  (setq p9 (list (- 0 k (* 0.375 e                 

42、0; p9的坐標(biāo)位置  (setq p10 (list (- 0 k (- 0 (* 0.375 e           p10的坐標(biāo)位置  (command "line" p9 p10 ""                             ；直線連接p9  p10兩點  (set

43、q p11 (list 0 (/ d 2.0                          p11的坐標(biāo)位置  (setq p12 (list (- l (* 0.075 d (/ d 2.0   p12的坐標(biāo)位置                               

44、         ;如果除數(shù)為2,則m=5時就變成了m4,會出錯.                                          (command "line" p11 p12 ""               

45、; ；直線連接p11 p12兩點  (setq p13 (list 0 (- 0 (/ d 2.0          p13的坐標(biāo)位置  (setq p14 (list (- l (* 0.075 d (- 0 (/ d 2.0  p14的坐標(biāo)位置  (command "line" p13 p14 ""                    ；直線

46、連接p13 p14兩點  (setq p19 (list lg (/ d 2.0       p19的坐標(biāo)位置  (setq p20 (list lg (- 0 (/ d 2.0   p20的坐標(biāo)位置  (command "line" p19 p20 ""                螺紋終止線  (setq p15 (list lg (* 0.425 d   &#

47、160;p15的坐標(biāo)位置  (setq p16 (list l (* 0.425 d    p16的坐標(biāo)位置  (setq p17 (list lg (- 0 (* 0.425 d   p17的坐標(biāo)位置  (setq p18 (list l (- 0 (* 0.425 d   p18的坐標(biāo)位置  (setq p21 (list ls (/ d 2        p21的坐標(biāo)位置  (setq p22 (list ls (- 0 (/ d 2   p22的坐標(biāo)位置  (command "