畢業(yè)論文-autocad螺紋聯(lián)結(jié)相關(guān)圖形快速繪制的二次開發(fā)

1、<p><b>　　編號： 　　　</b></p><p>　　本科畢業(yè)設(shè)計（論文）</p><p>　　題目:(中文)螺紋聯(lián)結(jié)相關(guān)圖形快速繪制的二次開發(fā)</p><p>　　(英文) Threaded coupling associated graphics rendering of redevelopment</p>

2、<p>　　分 院 </p><p><b>　　專 業(yè) </b></p><p>　　班 級 </p><p>　　學(xué) 號 </p><p>　　姓　名

3、 </p><p>　　指導(dǎo)教師 職稱　　　 </p><p>　　完成日期 </p><p><b>　　目錄</b></p><p><b>　　目錄２</b></p><p

4、><b>　　摘　要３</b></p><p>　　Abstract３</p><p>　　1開發(fā)工具的介紹1</p><p>　　1.1AutoCAD開發(fā)環(huán)境的發(fā)展1</p><p>　　1.2Autolisp簡介1</p><p>　　1.3Visual lisp簡介

5、1</p><p>　　2螺紋聯(lián)結(jié)相關(guān)圖形的國家標(biāo)準(zhǔn)2</p><p>　　2.1螺孔螺紋的各項參數(shù)的國家標(biāo)準(zhǔn)2</p><p>　　2.2沉孔國家標(biāo)準(zhǔn)5</p><p>　　2.3螺釘裝配形式的設(shè)置6</p><p>　　3程序設(shè)計思想及主要程序列表7</p><p>　　

6、3.1螺孔程序的設(shè)計7</p><p>　　3.2螺孔俯視圖程序設(shè)計9</p><p>　　3.3沉孔俯視圖程序設(shè)計（正面和反面）10</p><p>　　3.4沉孔主視圖程序設(shè)計11</p><p>　　3.5第一種螺釘裝配形式的程序設(shè)計22</p><p>　　3.6第二種螺釘裝配形式程序2

7、6</p><p>　　4對話框程序設(shè)計30</p><p>　　4.1對話框程序簡介30</p><p>　　4.2對話框程序的定義30</p><p>　　4.3幻燈片文件嵌入對話框程序33</p><p>　　5程序使用說明36</p><p>　　5.1程序加載3

8、6</p><p>　　5.2程序運行37</p><p>　　5.3程序編寫中的注意事項38</p><p>　　5.3.1養(yǎng)成良好的書寫習(xí)慣38</p><p>　　5.3.2程序檢查39</p><p><b>　　參考文獻40</b></p><p&g

9、t;<b>　　致謝41</b></p><p><b>　　附錄42</b></p><p><b>　　摘　要</b></p><p>　　用戶通過對AutoCAD系統(tǒng)的定制開發(fā)，可以結(jié)合自己的專業(yè)特點，開發(fā)屬于自己的專用型CAD系統(tǒng)。目前，國內(nèi)開發(fā)的工程制圖軟件大多采用AutoCAD作為其軟

10、件支撐平臺，進行二次開發(fā)而成，為工程設(shè)計和制圖行業(yè)創(chuàng)造了巨大的經(jīng)濟效益和社會效益。螺紋聯(lián)結(jié)是機械設(shè)計中一種很常見的聯(lián)結(jié)方式，對螺紋聯(lián)結(jié)的繪制進行二次開發(fā)有助于提高CAD繪圖的速度，精度以及準(zhǔn)確性。本文所用的二次開發(fā)的工具為Autolisp，開發(fā)的目的為在AUTOCAD軟件上開發(fā)出界面友好、形象直觀的螺紋聯(lián)結(jié)相關(guān)圖形快速繪制功能模塊。</p><p>　　【關(guān)鍵詞】螺紋聯(lián)結(jié)；AutoCAD；Autolisp；二次開

11、發(fā)。</p><p>　　Threaded coupling associated graphics rendering of redevelopment</p><p><b>　　Abstract</b></p><p>　　The customer passes to make to

12、60;order the development to the system of AutoCAD, joining together own profession characteristics, exploring CAD system belongs to

13、0;ourselves. At present, the engineering graphics software of the domestic development adopts mostly the AutoCAD is used as its

14、60;software props up the terrace, proceeding to second development, designing for the engineering to create with the graphics prof

15、ession enormous and economic performance with social performance.Easy to see,Threaded c</p><p>　　【KEYWORDS】threadedandcoupledT&C；AutoCAD；Autolisp；redevelop<

16、;/p><p><b>　　開發(fā)工具的介紹</b></p><p>　　AutoCAD開發(fā)環(huán)境的發(fā)展</p><p>　　AutoCAD是世界上最流行的通用CAD平臺。在國內(nèi)更是用戶眾多，影響深遠(yuǎn)，尤其是在建筑行業(yè)和機械行業(yè)擁有 數(shù)十萬的應(yīng)用隊伍，堪稱CAD的標(biāo)準(zhǔn)平臺。自1982年Autodesk公司推出AutoCAD1.0，到今年推出的AutoC

17、ADR14，AutoCAD經(jīng)歷了15年的發(fā)展。AutoCAD于1986年v2.18版時提供了Autolisp程序設(shè)計的支持，從此開始了可以在一個通用的CAD平臺上添加自己所需的特殊功能的能力。1987年AutoCADv2.6版推出，Autolisp得到一些改善，這也正是國內(nèi)流行AutoCAD及AutoCAD環(huán)境下開發(fā)編程的開始。1988年推出的AutoCADR10開始使得Autolisp程序可以在擴展內(nèi)存中允許，這對于編寫稍大一點規(guī)模的

18、應(yīng)用程序提供了可能。AutoCAD第一代開發(fā)工具開發(fā)出的第一代應(yīng)用軟件開始在國內(nèi)流行。1990年推出的AutoCADR11第一次在PC版的AutoCAD上提供了C語言開發(fā)環(huán)境（ADS）的支持，這使得在AutoCAD的上開發(fā)大規(guī)模的綜合性的應(yīng)用程序成了可能，AutoCAD下的應(yīng)用程序可以利用標(biāo)準(zhǔn)C語言提供的能力，編制出第一代工具無法</p><p>　　Autolisp簡介</p><p>

19、　　Lisp的英文全稱為List Processing Language，Autolisp是嵌套于AutoCAD內(nèi)部，將LISP與AutoCAD有機結(jié)合，是AutoCAD開發(fā)的重要工具，Autolisp的功能強大，其主要的功能為（1）可直接調(diào)用AutoCAD的幾乎全部命令（2）具備一般高級語言的結(jié)構(gòu)和功能，（3）具備一般高級語言所沒有的強大的圖形處理功能[1]。Autolisp程序語言特點鮮明，使用方便，總結(jié)其特點為（1）語法簡單，不用

20、特殊的變量定義，非常富有彈性，比起其他程序語言，Autolisp程序語言全部內(nèi)容均以函數(shù)形式給出，沒有語句的概念，也沒有其他語法結(jié)構(gòu)，執(zhí)行程序就是執(zhí)行一系列的函數(shù)調(diào)用，也稱“函數(shù)語言。（2）功能函數(shù)強大，除一般性的功能函數(shù)外，又擁有不少控制配合AutoCAD的特殊函數(shù)，加上Autolisp可直接調(diào)用執(zhí)行所有AutoCAD的命令，以及掌握運用所有的AutoCAD系統(tǒng)變量。（3）編寫的環(huán)境要求低，只要是一般的窗口文本編輯軟件都可以用來編寫A

21、utolisp，如：記事本、word等。（4）直譯式的程序，Autolisp語言編好的程序不用再做編譯，“即寫即測、即測即用</p><p>　　Visual lisp簡介</p><p>　　Visual LISP簡稱VLISP,是為加速Autolisp程序開發(fā)而設(shè)計的軟件工具，它提供了一個完整的集成開發(fā)環(huán)境，包括編譯器、調(diào)試器和其他工具，它可以顯著地提高自定義AutoCAD的效率[2]

22、。</p><p>　　VLISP提供的主要工具有：文本編輯器、格式編排器、語法檢查器、源代碼調(diào)試器、檢驗和監(jiān)視工具、文件編譯器、工程管理系統(tǒng)、上下文相關(guān)幫助與自動匹配功能和智能化控制臺等。</p><p>　　Visual LISP有其獨立的控制臺窗口，特點鮮明：（1）可以在新的一行上輸入上一行沒有完成的Autolisp表達(dá)式。（2）可在前輸入多個表達(dá)式，并在Visual LISP給控制

23、臺返回一個值之前將為每一個表達(dá)式求值。（3）光標(biāo)在任意位置均可用移至提示符所在行上，如果選中的有文本，則同時移至提示符所在行（此功能可以復(fù)制）。（4）使用Tab鍵可獲得以前輸入的文本，每按一次即可將上一次的文本顯示，循環(huán)執(zhí)行。Shift+Tab與Tab類似，只是方向相反，方便快捷。（5）Esc鍵清除提示符下的所有字符，shift+Esc則離開當(dāng)前行上的文本，并在新的提示符下準(zhǔn)備接受用戶的輸入。</p><p>　

24、　Visual LISP的文本編輯器主要功能及其實現(xiàn)：（1）文件的編輯、操作，保存等，該操作與windows下的word軟件的編輯方法基本一致，不做贅述。（2）代碼分色器，和在控制臺窗口中相同，一旦在文本編輯器中輸入文本后，Visual LISP會判斷所輸入的文本是否是一個AutoLISP內(nèi)部函數(shù)、數(shù)字、字符串或者其它的已知元素，并用每一種元素自己的顏色顯示這些文本[3]。默認(rèn)的Autolisp配色方案如下表格：</p>

25、<p><b>　　表1</b></p><p>　?。?）文本格式化，設(shè)置AutoLISP代碼格式的對話框和AutoLISP代碼格式的總體式樣。（4）語法檢查，1、括號匹配：括號在Autolisp中使用時很廣泛而且也是很細(xì)致的，括號不匹配直接導(dǎo)致程序不能運行，人工手工檢查括號匹配的工作量不但大，而且容易產(chǎn)生錯誤。括號匹配功能不但可以檢查出括號正確與否，而且可以檢測出選定括號的匹配

26、括號。括號匹配分為向前匹配和向后匹配。2、檢查語法錯誤，主要的檢查的語法錯誤為：函數(shù)的參數(shù)數(shù)目不正確，函數(shù)的參數(shù)類型不正確，某些函數(shù)的語法不正確。（5）程序調(diào)試，VLISP提供的調(diào)試程序工具有：1、監(jiān)視窗口：在程序執(zhí)行過程中查看變量的值。2、檢驗窗口：在“檢驗”對話框中顯示指定對象的詳細(xì)信息。3、斷點循環(huán)模式：在程序內(nèi)部設(shè)置斷點，中斷程序的執(zhí)行，并允許用戶在中斷時查看和修改對象值[4]。</p><p>　　螺紋

27、聯(lián)結(jié)相關(guān)圖形的國家標(biāo)準(zhǔn)</p><p>　　螺孔螺紋的各項參數(shù)的國家標(biāo)準(zhǔn)</p><p>　　本文所做的二次開發(fā)的螺紋式屬于緊固螺紋中的普通螺紋，根據(jù)GB 192-81和GB 196-81的規(guī)定，其標(biāo)準(zhǔn)如表2：</p><p><b>　　表2</b></p><p>　　基于設(shè)計的精度要求和圖紙顯示的要求，本文所做的二

28、次開發(fā)的尺寸精度給予一定的限制，統(tǒng)一國家標(biāo)準(zhǔn)，本文將螺孔公稱直徑D設(shè)為3個階段，當(dāng)D小于等于10時，齒高H設(shè)為0.5，當(dāng)D大于10小于等于14的時候，齒高設(shè)為0.7，當(dāng)D大于14的時候，齒高設(shè)為0.8。</p><p>　　螺孔俯視圖的圖形為：圖1，</p><p>　　螺孔的主視圖圖形為：圖2</p><p><b>　　沉孔國家標(biāo)準(zhǔn)</b>

29、</p><p>　　根據(jù)GB—T152.2-1988的規(guī)定，規(guī)定了沉頭螺釘、半沉頭螺釘、半沉頭自攻螺釘、沉頭木螺釘、半沉頭木螺釘用的沉頭沉孔尺寸如下表</p><p>　　上表適用于沉頭螺釘和半沉頭螺釘，其表中數(shù)據(jù)表示為下圖所示：圖3。</p><p><b>　　螺釘裝配形式的設(shè)置</b></p><p>　　基于本

30、次二次開發(fā)的目的，所以筆者設(shè)計了兩種螺釘?shù)难b配形式。</p><p>　　第一種是錐形螺釘與螺孔配合，裝配形式如右圖：圖4</p><p>　　第二種是方頭螺釘與螺孔配合，裝配形式如右圖： 圖5</p><p>　　兩種螺釘?shù)难b配形式可以滿足使用者不同的需求，簡化了螺釘裝配的畫法，達(dá)到了二次開發(fā)節(jié)省人力成本，提高制圖精度的目的。</p><p

31、>　　程序設(shè)計思想及主要程序列表</p><p><b>　　螺孔程序的設(shè)計</b></p><p>　　螺孔的圖有比較簡單，如圖5，由于本次二次開發(fā)的目的是使操作者使用本程序時，只需要輸入關(guān)鍵的參數(shù)，就能繪制出所需要的圖形，所以設(shè)計時我的基本設(shè)計思想就是先限定所有必須的基本點。然后將各個點用直線相連，在程序中插入改變線型和顏色的程序段，螺孔主視圖的定義點的程序

32、如下：</p><p>　　(defun c:ldk_1 ()</p><p>　　(setq hy "y")</p><p>　　(while (= hy "y")</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))</p><

33、p>　　(if p0；用戶取點之后程序繼續(xù)</p><p><b>　　(progn</b></p><p>　　(setq r1 (/ dd 2.0))</p><p>　　(setq r2 (- r1 0.5))</p><p>　　(setq x0 (car p0))</p><p>

34、　　(setq y0 (cadr p0))</p><p>　　(setq x1 (- x0 r2))</p><p>　　(setq y1 y0)</p><p>　　(setq x2 x1)</p><p>　　(setq y2 (- y0 h))</p><p>　　(setq x3 x0)</p>

35、<p>　　(setq y3 (- y2 (* r2 (/ (sin (/ pi 6)) (cos (/ pi 6))))))</p><p>　　(setq x4 (+ x0 r2))</p><p>　　(setq y4 y2)</p><p>　　(setq x5 (+ x0 r2))</p><p>　　(setq y5

36、y0)</p><p>　　(setq x6 (+ x0 r1))</p><p>　　(setq y6 y0)</p><p>　　(setq x7 x6)</p><p>　　(setq y7 (- y0 hh))</p><p>　　(setq x8 (- x0 r1))</p><p>

37、　　(setq y8 y7)</p><p>　　(setq x9 x8)</p><p>　　(setq y9 y0)</p><p>　　(setq xc1 x0)</p><p>　　(setq yc1 (+ y0 2.0))</p><p>　　(setq xc2 x0)</p><p>

38、;　　(setq yc2 (- y3 2.0))</p><p>　　(setq xa1 (+ x6 2.0))</p><p>　　(setq ya1 y0)</p><p>　　(setq xa2 (- x9 2.0))</p><p>　　(setq ya2 y0)</p><p><b>　　(c:p

39、u_lk)</b></p><p><b>　　)</b></p><p>　　(setq hy "n")</p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>

40、　　(princ)</b></p><p><b>　　) </b></p><p>　　螺孔繪圖程序程序段如下：</p><p>　　(setq p1 (list x1 y1))</p><p>　　(setq p2 (list x2 y2))</p><p>　　(setq p3

41、 (list x3 y3))</p><p>　　(setq p4 (list x4 y4))</p><p>　　(setq p5 (list x5 y5))</p><p>　　(setq p6 (list x6 y6))</p><p>　　(setq p7 (list x7 y7))</p><p>　　(se

42、tq p8 (list x8 y8))</p><p>　　(setq p9 (list x9 y9))</p><p>　　(setq pc1 (list xc1 yc1))</p><p>　　(setq pc2 (list xc2 yc2))</p><p>　　(setq pa1 (list xa1 ya1))</p>

43、<p>　　(setq pa2 (list xa2 ya2))</p><p>　　(command "osnap" "")</p><p>　　(command "line" p1 p2 p3 p4 p5 "")</p><p>　　(command "line&q

44、uot; p2 p4 "")</p><p>　　(command "line" p7 p8 "")</p><p>　　(command "line" pa1 pa2 "")</p><p>　　(command "line" p6 p7 &qu

45、ot;")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p" "c" "3" "")；改變上一程序繪制直線的顏色為綠色。</p><

46、p>　　(command "line" p8 p9 "")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p" "c" "3" "

47、;")</p><p>　　(command "line" pc1 pc2 "")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p" "c

48、" "2" "")；改變上一程序繪制的直線的顏色為黃色</p><p>　　(command "change" en "" "p" "lt" "center" "")；改變上一程序繪制直線的線型為中心線</p><p>　

49、　(setvar "osmode" osn)</p><p><b>　　(princ)</b></p><p><b>　　)</b></p><p><b>　　螺孔俯視圖程序設(shè)計</b></p><p>　　螺孔俯視圖較為簡單，繪制一個圓，然后再圓外面

50、繪制一個四分之三圓，再過圓心繪制兩條中心線。圖形如圖1，用circle命令繪制圓，用arc命令繪制四分之三圓。程序段如下：</p><p>　　(defun c:ldf ()</p><p>　　(setq osn (getvar "osmode"))</p><p>　　(initget (+ 1 2 4))</p><p&

51、gt;　　(setq dd (getint "\n請輸入螺孔直徑!"))</p><p>　　(if (<= dd 10.0) (setq s 0.5))</p><p>　　(if (and (> dd 10.0) (<= dd 14.0)) (setq s 0.7))</p><p>　　(if (> dd 14.0)

52、 (setq s 0.8)) </p><p>　　(setq hy "y")</p><p>　　(while (= hy "y")</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))</p><p><b>　　(if p0<

53、;/b></p><p><b>　　(progn</b></p><p>　　(setq r1 (/ dd 2.0))</p><p>　　(setq r2 (- r1 s))</p><p>　　(setq x0 (car p0))</p><p>　　(setq y0 (cadr p0

54、))</p><p>　　(setq x1 x0)</p><p>　　(setq y1 (- y0 r1))</p><p>　　(setq x2 (- x0 r1))</p><p>　　(setq y2 y0)</p><p>　　(setq xc1 (+ (+ x0 r1) 1.0))</p>&

55、lt;p>　　(setq yc1 y0)</p><p>　　(setq xc2 (- (- x0 r1) 1.0))</p><p>　　(setq yc2 y0)</p><p>　　(setq xc3 x0)</p><p>　　(setq yc3 (+ (+ y0 r1) 1.0))</p><p>　　

56、(setq xc4 x0)</p><p>　　(setq yc4 (- (- y0 r1) 1.0))</p><p>　　(setq p1 (list x1 y1))</p><p>　　(setq p2 (list x2 y2))</p><p>　　(setq pc1 (list xc1 yc1))</p><p&

57、gt;　　(setq pc2 (list xc2 yc2))</p><p>　　(setq pc3 (list xc3 yc3))</p><p>　　(setq pc4 (list xc4 yc4))</p><p>　　(command "osnap" "")</p><p>　　(command

58、 "circle" p0 r2 )</p><p>　　(command "arc" p1 "c" p0 p2 )</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en ""

59、"p" "c" "3" "")</p><p>　　(command "line" pc1 pc2 "")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "cha

60、nge" en "" "p" "c" "2" "")</p><p>　　(command "change" en "" "p" "lt" "center" "")</p>

61、<p>　　(command "line" pc3 pc4 "")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p" "c" "2"

62、; "")</p><p>　　(command "change" en "" "p" "lt" "center" "")</p><p>　　(setvar "osmode" osn)</p><p>&l

63、t;b>　　)</b></p><p>　　(setq hy "n")</p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　(princ)</b></p><p&g

64、t;<b>　　) </b></p><p>　　沉孔俯視圖程序設(shè)計（正面和反面）</p><p>　　沉孔的俯視圖就是兩個同心圓，兩圓的直徑關(guān)系由國標(biāo)給定。由于精度和實踐原因，本次二次開發(fā)程序只涉及了一部分尺寸的沉孔，其尺寸為由小徑d為4到20為止，大徑D的尺寸隨著同一系列的小徑d變化。正面俯視圖的外圓與內(nèi)院都為實線，而反面俯視圖的外圓線為虛線，所以這兩個程序基本

65、相似，只是在反面俯視圖的繪制外圓的程序后面加上一個改變線型的程序段。</p><p>　　沉孔俯視圖程序如下：</p><p>　　(defun c:ldca ()</p><p>　　(setq osn (getvar "osmode"))</p><p>　　(initget (+ 1 2 4))</p>

66、<p>　　(setq d (getint "\n請輸入螺釘直徑!"))</p><p><b>　　(if d</b></p><p><b>　　(progn</b></p><p>　　(if (= d 4) (setq dd 7.0))</p><p>　　(

67、if (= d 5) (setq dd 8.5))</p><p>　　(if (= d 6) (setq dd 10.0))</p><p>　　(if (= d 8) (setq dd 12.5))</p><p>　　(if (= d 10) (setq dd 15.0))</p><p>　　(if (= d 12) (setq dd

68、 18.0))</p><p>　　(if (= d 14) (setq dd 21.0))</p><p>　　(if (= d 16) (setq dd 24.0))</p><p>　　(if (= d 18) (setq dd 27.0))</p><p>　　(if (= d 20) (setq dd 30.0))</p>

69、;<p><b>　　)</b></p><p><b>　　)</b></p><p>　　(setq d0 (+ 1.0 d))</p><p>　　(setq dd0 (+ 1.0 dd))</p><p>　　(setq hy "y")</p>

70、<p>　　(while (= hy "y")</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))</p><p><b>　　(if p0</b></p><p><b>　　(progn</b></p><p>

71、;　　(setq r1 (/ d0 2.0))</p><p>　　(setq r2 (/ dd0 2.0))</p><p>　　(setq x0 (car p0))</p><p>　　(setq y0 (cadr p0))</p><p>　　(setq xc1 (+ (+ x0 r2) 1.5))</p><p&g

72、t;　　(setq yc1 y0)</p><p>　　(setq xc2 (- (- x0 r2) 1.5))</p><p>　　(setq yc2 y0)</p><p>　　(setq xc3 x0)</p><p>　　(setq yc3 (+ (+ y0 r2) 1.5))</p><p>　　(setq

73、xc4 x0)</p><p>　　(setq yc4 (- (- y0 r2) 1.5))</p><p>　　(setq pc1 (list xc1 yc1))</p><p>　　(setq pc2 (list xc2 yc2))</p><p>　　(setq pc3 (list xc3 yc3))</p><p&

74、gt;　　(setq pc4 (list xc4 yc4))</p><p>　　(command "osnap" "")</p><p>　　(command "circle" p0 r1 )</p><p>　　(command "circle" p0 r2 )；如果是反面的沉孔俯視

75、圖，在這段程序段后面加上變線型程序段。</p><p>　　(command "line" pc1 pc2 "")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p&qu

76、ot; "c" "2" "")</p><p>　　(command "change" en "" "p" "lt" "center" "")</p><p>　　(command "line"

77、; pc3 pc4 "")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p" "c" "2" "")</p><p>

78、　　(command "change" en "" "p" "lt" "center" "")</p><p>　　(setvar "osmode" osn)</p><p><b>　　)</b></p><

79、p>　　(setq hy "n")</p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　(princ)</b></p><p><b>　　) </b></p>

80、<p><b>　　沉孔主視圖程序設(shè)計</b></p><p>　　沉孔繪制主程序難度不大，還是先定義點，然后將點連接起來。具體程序語言如下：</p><p>　　(defun c:pu_lck ()</p><p>　　(setq p1 (list x1 y1))</p><p>　　(setq p2 (

81、list x2 y2))</p><p>　　(setq p3 (list x3 y3))</p><p>　　(setq p4 (list x4 y4))</p><p>　　(setq p5 (list x5 y5))</p><p>　　(setq p6 (list x6 y6))</p><p>　　(setq

82、 p7 (list x7 y7))</p><p>　　(setq p8 (list x8 y8))</p><p>　　(setq pc1 (list xc1 yc1))</p><p>　　(setq pc2 (list xc2 yc2))</p><p>　　(setq pa1 (list xa1 ya1))</p>&l

83、t;p>　　(setq pa2 (list xa2 ya2))</p><p>　　(command "osnap" "")</p><p>　　(command "line" p1 p2 p3 p4 "")</p><p>　　(command "line"

84、p5 p6 "")</p><p>　　(command "line" p7 p8 "")</p><p>　　(command "line" pa1 pa2 "")</p><p>　　(command "line" pc1 pc2 "

85、")</p><p>　　(setq en (ssget "l"))</p><p>　　(command "change" en "" "p" "c" "2" "")</p><p>　　(command "

86、;change" en "" "p" "lt" "center" "")</p><p>　　(setvar "osmode" osn)</p><p><b>　　(princ)</b></p><p><b

87、>　　)</b></p><p>　　(defun c:ldck_1 ()</p><p>　　(setq hy "y")</p><p>　　(while (= hy "y")</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))&

88、lt;/p><p><b>　　(if p0</b></p><p><b>　　(progn</b></p><p>　　(setq x0 (car p0))</p><p>　　(setq y0 (cadr p0))</p><p>　　(setq x1 (- x0 r2))

89、</p><p>　　(setq y1 y0)</p><p>　　(setq x2 x1)</p><p>　　(setq y2 (- y0 hh0))</p><p>　　(setq x3 (+ x0 r2))</p><p>　　(setq y3 y2)</p><p>　　(setq x

90、4 x3)</p><p>　　(setq y4 y1)</p><p>　　(setq x5 (- x0 r1))</p><p>　　(setq y5 y2)</p><p>　　(setq x6 x5)</p><p>　　(setq y6 (- y5 8.0))</p><p>　　(s

91、etq x7 (+ x0 r1))</p><p>　　(setq y7 y5)</p><p>　　(setq x8 x7)</p><p>　　(setq y8 y6)</p><p>　　(setq xc1 x0)</p><p>　　(setq yc1 (+ y0 2.0))</p><p&

92、gt;　　(setq xc2 x0)</p><p>　　(setq yc2 (- y6 2.0))</p><p>　　(setq xa1 (- x1 2.0))</p><p>　　(setq ya1 y0)</p><p>　　(setq xa2 (+ x4 2.0))</p><p>　　(setq ya2 y

93、0)</p><p>　　(c:pu_lck)</p><p><b>　　)</b></p><p>　　(setq hy "n")</p><p><b>　　)</b></p><p><b>　　)</b></p>

94、<p><b>　　(princ)</b></p><p><b>　　) </b></p><p>　　(defun c:ldck_2 ()</p><p>　　(setq hy "y")</p><p>　　(while (= hy "y")

95、</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))</p><p><b>　　(if p0</b></p><p><b>　　(progn</b></p><p>　　(setq x0 (car p0))</p><p&

96、gt;　　(setq y0 (cadr p0))</p><p>　　(setq x1 (+ x0 r2))</p><p>　　(setq y1 y0)</p><p>　　(setq x2 x1)</p><p>　　(setq y2 (+ y0 hh0))</p><p>　　(setq x3 (- x0 r2)

97、)</p><p>　　(setq y3 y2)</p><p>　　(setq x4 x3)</p><p>　　(setq y4 y1)</p><p>　　(setq x5 (+ x0 r1))</p><p>　　(setq y5 y2)</p><p>　　(setq x6 x5)&l

98、t;/p><p>　　(setq y6 (+ y5 8.0))</p><p>　　(setq x7 (- x0 r1))</p><p>　　(setq y7 y5)</p><p>　　(setq x8 x7)</p><p>　　(setq y8 y6)</p><p>　　(setq xc1

99、 x0)</p><p>　　(setq yc1 (- y0 2.0))</p><p>　　(setq xc2 x0)</p><p>　　(setq yc2 (+ y6 2.0))</p><p>　　(setq xa1 (- x4 2.0))</p><p>　　(setq ya1 y0)</p>

100、<p>　　(setq xa2 (+ x1 2.0))</p><p>　　(setq ya2 y0)</p><p>　　(c:pu_lck)</p><p><b>　　)</b></p><p>　　(setq hy "n")</p><p><b>

101、　　)</b></p><p><b>　　)</b></p><p><b>　　(princ)</b></p><p><b>　　) </b></p><p>　　(defun c:ldck_3 ()</p><p>　　(setq

102、 hy "y")</p><p>　　(while (= hy "y")</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))</p><p><b>　　(if p0</b></p><p><b>　　(progn&

103、lt;/b></p><p>　　(setq x0 (car p0))</p><p>　　(setq y0 (cadr p0))</p><p>　　(setq x1 x0)</p><p>　　(setq y1 (- y0 r2))</p><p>　　(setq x2 (+ x1 hh0))</p&g

104、t;<p>　　(setq y2 y1)</p><p>　　(setq x3 x2)</p><p>　　(setq y3 (+ y0 r2))</p><p>　　(setq x4 x1)</p><p>　　(setq y4 y3)</p><p>　　(setq x5 x2)</p>

105、<p>　　(setq y5 (- y0 r1))</p><p>　　(setq x6 (+ x5 8.0))</p><p>　　(setq y6 y5)</p><p>　　(setq x7 x5)</p><p>　　(setq y7 (+ y0 r1))</p><p>　　(setq x8 x6

106、)</p><p>　　(setq y8 y7)</p><p>　　(setq xc1 (- x0 2.0))</p><p>　　(setq yc1 y0)</p><p>　　(setq xc2 (+ x6 2.0))</p><p>　　(setq yc2 y0)</p><p>　　(

107、setq xa1 x0)</p><p>　　(setq ya1 (- y1 2.0))</p><p>　　(setq xa2 x0)</p><p>　　(setq ya2 (+ y4 2.0))</p><p>　　(c:pu_lck) </p><p><b>　　)</b&g

108、t;</p><p>　　(setq hy "n")</p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　(princ)</b></p><p><b>　　) &l

109、t;/b></p><p>　　(defun c:ldck_4 ()</p><p>　　(setq hy "y")</p><p>　　(while (= hy "y")</p><p>　　(setq p0 (getpoint "\n請點取放置點!"))</p>

110、<p><b>　　(if p0</b></p><p><b>　　(progn</b></p><p>　　(setq x0 (car p0))</p><p>　　(setq y0 (cadr p0))</p><p>　　(setq x1 x0)</p><

111、p>　　(setq y1 (+ y0 r2))</p><p>　　(setq x2 (- x1 hh0))</p><p>　　(setq y2 y1)</p><p>　　(setq x3 x2)</p><p>　　(setq y3 (- y0 r2))</p><p>　　(setq x4 x1)<

112、/p><p>　　(setq y4 y3)</p><p>　　(setq x5 x2)</p><p>　　(setq y5 (+ y0 r1))</p><p>　　(setq x6 (- x5 8.0))</p><p>　　(setq y6 y5)</p><p>　　(setq x7 x5

113、)</p><p>　　(setq y7 (- y0 r1))</p><p>　　(setq x8 x6)</p><p>　　(setq y8 y7)</p><p>　　(setq xc1 (+ x0 2.0))</p><p>　　(setq yc1 y0)</p><p>　　(set

114、q xc2 (- x6 2.0))</p><p>　　(setq yc2 y0)</p><p>　　(setq xa1 x0)</p><p>　　(setq ya1 (+ y1 2.0))</p><p>　　(setq xa2 x0)</p><p>　　(setq ya2 (- y4 2.0))</p&

115、gt;<p>　　(c:pu_lck) </p><p><b>　　)</b></p><p>　　(setq hy "n")</p><p><b>　　)</b></p><p><b>　　)</b></p>

116、;<p><b>　　(princ)</b></p><p><b>　　) </b></p><p>　　(defun c:ldcc (/ dcl_id )</p><p>　　(setvar "cmdecho" 0)</p><p>　　(command &q

117、uot;ucs" "")</p><p>　　(setq osn (getvar "osmode"))</p><p>　　; (setq tmlj (getvar "cdate"))</p><p>　　; (if (> tmlj 19991231.0) (command &quo

118、t;end" ""))</p><p>　　(initget (+ 1 2 4))；輸入的數(shù)值不許為0，不許為負(fù)數(shù)，不能enter來響應(yīng)輸入。</p><p>　　(setq d (getint "\n請輸入螺釘直徑!"))</p><p><b>　　(if d</b></p>

119、<p><b>　　(progn</b></p><p>　　(if (= d 4)</p><p><b>　　(progn</b></p><p>　　(setq dd 7.0)</p><p>　　(setq hh 4.0)</p><p><b>

120、　　)</b></p><p><b>　　)</b></p><p>　　(if (= d 5)</p><p><b>　　(progn</b></p><p>　　(setq dd 8.5)</p><p>　　(setq hh 5)</p>

121、<p><b>　　)</b></p><p><b>　　)</b></p><p>　　(if (= d 6)</p><p><b>　　(progn</b></p><p>　　(setq dd 10.0)</p><p>　　(set

122、q hh 6)</p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　(if (= d 8)</p><p><b>　　(progn</b></p><p>　　(setq dd 12.5)</p&g

123、t;<p>　　(setq hh 8)</p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　(if (= d 10)</p><p><b>　　(progn</b></p><p>　　(s

124、etq dd 15.0)</p><p>　　(setq hh 10.0)</p><p><b>　　)</b></p><p><b>　　) </b></p><p>　　(if (= d 12)</p><p><b>　　(progn</b>&

125、lt;/p><p>　　(setq dd 18.0)</p><p>　　(setq hh 12.0)</p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　(if (= d 14)</p><p><b

126、>　　(progn</b></p><p>　　(setq dd 21.0)</p><p>　　(setq hh 14.0)</p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　(if (= d 16)<

127、;/p><p><b>　　(progn</b></p><p>　　(setq dd 24.0)</p><p>　　(setq hh 16.0)</p><p><b>　　)</b></p><p><b>　　)</b></p><

128、;p>　　(if (= d 18)</p><p><b>　　(progn</b></p><p>　　(setq dd 27.0)</p><p>　　(setq hh 18.0)</p><p><b>　　) </b></p><p><b>　　)

129、</b></p><p>　　(if (= d 20)</p><p><b>　　(progn</b></p><p>　　(setq dd 30.0)</p><p>　　(setq hh 20.0)</p><p><b>　　)</b></p>

130、<p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　(setq d0 (+ 1.0 d))</p><p>　　(setq dd0 (+ 1.0 dd))</p><

131、;p>　　(setq hh0 (+ 1.0 hh))</p><p>　　(setq r1 (/ d0 2.0))</p><p>　　(setq r2 (/ dd0 2.0))</p><p>　　(setq dcl_id (load_dialog "screw\\h_ck.dcl"))</p><p>　　(if

132、 (not (new_dialog "h_ck" dcl_id))</p><p><b>　　(exit)) </b></p><p>　　(setq x1 (dimx_tile "l_ck1")</p><p>　　y1 (dimy_tile "l_ck1"))</p>

133、<p>　　(start_image "l_ck1")</p><p>　　(slide_image 0 0 x1 y1 "screw\\lck1")</p><p>　　(end_image)</p><p>　　(setq x2 (dimx_tile "l_ck2")</p>

134、<p>　　y2 (dimy_tile "l_ck2"))</p><p>　　(start_image "l_ck2")</p><p>　　(slide_image 0 0 x2 y2 "screw\\lck2")</p><p>　　(end_image)</p><p

135、>　　(setq x3 (dimx_tile "l_ck3")</p><p>　　y3 (dimy_tile "l_ck3"))</p><p>　　(start_image "l_ck3")</p><p>　　(slide_image 0 0 x3 y3 "screw\\lck3&qu

136、ot;)</p><p>　　(end_image)</p><p>　　(setq x4 (dimx_tile "l_ck4")</p><p>　　y4 (dimy_tile "l_ck4"))</p><p>　　(start_image "l_ck4")</p>

137、<p>　　(slide_image 0 0 x4 y4 "screw\\lck4")</p><p>　　(end_image)</p><p>　　(action_tile "l_ck1" "(setq a \"1\")")</p><p>　　(action_tile

138、"l_ck2" "(setq a \"2\")")</p><p>　　(action_tile "l_ck3" "(setq a \"3\")")</p><p>　　(action_tile "l_ck4" "(setq a \"

139、;4\")")</p><p>　　(start_dialog)</p><p>　　(action_tile</p><p><b>　　"accept"</b></p><p>　　"(done_dialog)")</p><p>　

140、　(unload_dialog dcl_id)</p><p>　　(if (= a "1") (c:ldck_1))</p><p>　　(if (= a "2") (c:ldck_2))</p><p>　　(if (= a "3") (c:ldck_3))</p><p>　　

141、(if (= a "4") (c:ldck_4)) </p><p><b>　　(princ)</b></p><p><b>　　)</b></p><p>　　第一種螺釘裝配形式的程序設(shè)計</p><p>　　本程序設(shè)計了螺釘?shù)难b配形式(如圖4中所示),但程序較長,語言

142、篇幅重復(fù)內(nèi)容較多,多以筆者介紹該段程序時只截取了其中的一段,分別功能為(1)定義點,(2)繪圖和改變線型顏色,(3)設(shè)定點與點之間的關(guān)系。</p><p>　　(defun c:g_yy ()</p><p>　　(setq p1 (list x1 y1))</p><p>　　(setq p2 (list x2 y2))</p><p>