1.程序軟件

本軟件的功能：①可以設(shè)計(jì)標(biāo)準(zhǔn)剃前滾刀、非標(biāo)剃前滾刀、標(biāo)準(zhǔn)漸開線花鍵滾刀、矩形花鍵滾刀、三角花鍵滾刀和鏈輪滾刀。②可以通過摸擬的方式完成一些非標(biāo)刀具的設(shè)計(jì)。③可以實(shí)現(xiàn)工件摸擬滾刀、工件摸擬內(nèi)外插齒刀、滾刀摸擬工件和內(nèi)外插刀摸擬工件等。

以非標(biāo)剃前滾刀設(shè)計(jì)為例介紹軟件功能。工件參數(shù)：m2 z26 α30°，大徑54.5mm，小徑48.45～48.6mm，K=4W=21.35～21.4mm，修緣0.2mm。設(shè)計(jì)一把φ70mm×80mm，內(nèi)孔27mm的修緣滾刀。

這都不可取，媽媽們一定要耐心給寶寶講明白，讓寶寶懂得尿床雖不是光彩的事情，但是媽媽理解寶寶不是故意的，并且會(huì)和寶寶共同努力，幫助寶寶改掉這個(gè)壞習(xí)慣。這樣既沒有傷害寶寶的自尊心，也建立了一個(gè)良好的溝通環(huán)境。

（1）輸入?yún)?shù)。如圖1所示，單擊滾刀，再單擊剃前滾刀，到圖2所示下一界面輸入工件的參數(shù)。

（2）輸入?yún)?shù)后點(diǎn)擊計(jì)算，計(jì)算結(jié)果會(huì)傳輸至CAD中，自動(dòng)畫出滾刀齒形圖，如圖3所示。

（3）驗(yàn)證滾刀齒形。用滾刀齒形圖摸擬工件的形狀，看看倒角是否合理。如圖4所示依次單擊滾刀摸擬、已知滾刀摸擬工件，或者單擊主界面的mini按鍵。摸擬結(jié)果如圖5所示，驗(yàn)證結(jié)果顯示滾刀齒形合格。

比如，周末爸爸媽媽花一天時(shí)間陪你去戶外或者去游樂場玩，你也可以花半天陪爸爸媽媽去逛逛街。逛街對(duì)孩子來說是極其無聊，不管是跟媽媽去逛衣服，還是跟爸爸去逛數(shù)碼產(chǎn)品，但是，爸爸媽媽也不那么喜歡游樂場啊，為了你也照樣去了，你同樣也需要學(xué)習(xí)為了別人去做一些自己不喜歡的事。

圖 1

圖 2

（4）驗(yàn)證滾刀外形。單擊滾刀外形，在圖6所示界面輸入?yún)?shù)，單擊Command1，后自動(dòng)畫出滾刀外形圖如圖7所示。

經(jīng)驗(yàn)證合格，可以加工。如果不需要修改變量，重新生成，一把修緣漸開線花鍵滾刀就設(shè)計(jì)完成。

圖3 滾刀圖樣

圖 4

圖5 滾刀摸擬工件結(jié)果

2.部分程序代碼

（1）畫滾刀外形圖程序：

Private Sub Command1_Click()

De = Val(Combo1.Text)

re = Val(Text1.Text)

h = Val(Text2.Text)

R = Val(Text3.Text)

θ = Val(Text4.Text)

kong = Val(Combo2.Text)

大棚韭菜套種模式：為了提高單位面積在一定時(shí)間內(nèi)光、熱、水、氣等自然資源的利用率，許多農(nóng)戶在韭菜生長間歇季節(jié)和價(jià)格低迷期套種甘藍(lán)、花椰菜、秋蘿卜等蔬菜作物。做到了韭菜與套種蔬菜的空間互補(bǔ)，增加復(fù)種指數(shù)，提高了單位面積產(chǎn)量和效益[2]。

z = Val(Text5.Text)

s1 = h * Tan(radians(re))

S2 = R / Tan(radians((90 - re) / 2))

xr = S2 - s1

習(xí)作訓(xùn)練是語文教學(xué)活動(dòng)中一個(gè)重要的環(huán)節(jié)，是學(xué)生認(rèn)識(shí)世界，認(rèn)識(shí)自我，進(jìn)行創(chuàng)造性表達(dá)的過程。教師可以將環(huán)保教育有機(jī)融入寫作教學(xué)，引導(dǎo)學(xué)生關(guān)注現(xiàn)實(shí)，表達(dá)真情實(shí)感，不斷提高學(xué)生的環(huán)保意識(shí)，并自覺付諸行動(dòng)。

yr = De / 2 - h + R '圓心坐標(biāo)為xR,yR

xa = xr - R * Cos(radians(re))

ya = yr + R * Sin(radians(re))

xb = xr + R * Cos(radians(re + θ))

yb = yr - R * Sin(radians(re + θ))

ψ = radians(90 - re - θ)

K = Tan(ψ)

b = yb - xb / Tan(pi / 2 - ψ)

hc = De / 2 - yb

xc = (-2 * K * b + ((2 * K * b) ^ 2- 4 * (K ^ 2 + 1) * (b ^ 2 - (De / 2) ^ 2)) ^0.5) / 2 / (K ^ 2 + 1)

yc = K * xc + b

'yc = DE / 2

'xc = xb + HC / Tan(radians(90 - re -θ))

Call Ch2_addcir(0, 0, De / 2)

從較低含量廢液中回收硫酸，可采用溶劑萃取法、離子交換法、電滲析法、擴(kuò)散滲析法等技術(shù)［8-9］，但綜合考慮回收后所產(chǎn)硫酸濃度、回收過程生產(chǎn)成本、生產(chǎn)作業(yè)控制系統(tǒng)等，其較為可行的技術(shù)為均相陰膜擴(kuò)散滲析技術(shù)。初步試驗(yàn)表明，與傳統(tǒng)工藝相比，擴(kuò)散滲析從銅冶煉廢酸中回收硫酸具有能耗低、酸回收率高、酸產(chǎn)品濃度高的特點(diǎn)，且其硫酸直收率達(dá)90%以上，可有效截留廢酸中主要雜質(zhì)。

Call Ch2_addcir(0, 0, kong / 2)

'A B C三點(diǎn)坐標(biāo)

' Call Ch2_addline(0, DE / 2, XA,YA)

'Call Ch2_addline(xB, yB, Xc, Yc)

'Call Ch2_addarc(xR, yR, R, pi - re* pi / 180, (90 - re - θ) * pi / 180 + pi - re* pi / 180 + (90 + re) * pi / 180)

Dim AcadDoc As AcadDocument '定義CAD文件

Set AcadDoc = Acadapp.ActiveDocument

Dim lin1 As AcadLine '定義CAD線

Dim lin2 As AcadLine

Dim arc1 As AcadArc

Dim cPoint(0 To 2) As Double '定義起點(diǎn)

Dim EndPoint(0 To 2) As Double '定義終點(diǎn)

Dim cPoint1(0 To 2) As Double '定義起點(diǎn)

Dim EndPoint1(0 To 2) As Double '定義終點(diǎn)

Dim cPoint2(0 To 2) As Double '定義起點(diǎn)

Dim cPoint3(0 To 2) As Double '定義起點(diǎn)

cPoint(0) = 0

cPoint(1) = De / 2

作者以優(yōu)美的語言描述了自己童年和小朋友們玩耍的情景，回憶了童年玩過的游戲，運(yùn)用了大量的動(dòng)作描寫，這使得文章非常生動(dòng)，讀起來很有畫面感。

cPoint(2) = 0

EndPoint(0) = xa

當(dāng)室內(nèi)環(huán)境溫度低于設(shè)定溫度時(shí)，開啟電加熱制熱；當(dāng)室內(nèi)環(huán)境溫度達(dá)到設(shè)定溫度時(shí)，電加熱關(guān)閉。電加熱采用分級(jí)控制的方式，電加熱匹配量為制冷量的60%。

EndPoint(1) = ya

'-----------------------

cPoint1(0) = xb

cPoint1(1) = yb

在分析實(shí)際觸發(fā)角時(shí)，由于交流側(cè)電壓三次諧波疊加在基頻分量的基礎(chǔ)上，會(huì)使實(shí)際的換相線電壓過零點(diǎn)發(fā)生變化，導(dǎo)致實(shí)際觸發(fā)角發(fā)生變化，下面對(duì)其進(jìn)行詳細(xì)分析。圖2為6脈沖換流器的結(jié)構(gòu)。

圖2所示機(jī)器是美國AerWay公司生產(chǎn)的松土機(jī)械，用來改善草地土壤的透氣透水性。圖2所示的機(jī)器由拖拉機(jī)牽引，使用橡膠輪控制耕深。機(jī)架上安裝2根刀軸，每個(gè)刀軸上安裝6組齒盤，刀盤間距約17mm，每個(gè)齒盤上安裝4個(gè)松土齒；松土齒依靠重力入土，在草地上形成不連續(xù)矩形孔，最大耕深約為20mm；刀軸可以在0°～15°(垂直于行進(jìn)方向)范圍內(nèi)扭轉(zhuǎn)以調(diào)整對(duì)土壤的擾動(dòng)程度，每次扭轉(zhuǎn)幅度為2.5°。這種機(jī)器既可以用于改良板結(jié)性退化的草地，也可以作為農(nóng)田垂直松土機(jī)械使用[14-15]。

cPoint1(2) = 0

EndPoint1(0) = xc

EndPoint1(1) = yc

Zhao課題組設(shè)計(jì)合成了一種以香豆素為母體的汞離子熒光探針(見圖3)。在探針分子的溶液中，當(dāng)加入汞離子的濃度是探針濃度的0.3當(dāng)量以下時(shí)，探針分子與汞離子發(fā)生配位，溶液在495 nm處具有微弱的熒光。當(dāng)加入汞離子的濃度是探針濃度的0.3當(dāng)量以上時(shí)，由于硫的親汞性，使氨基硫脲形成強(qiáng)吸電子的噁二唑酮類化合物，使溶液在495 nm處的熒光大大增強(qiáng)。探針分子在pH=6.5～9.0范圍內(nèi)，對(duì)汞離子具有很好的響應(yīng)，響應(yīng)時(shí)間短，在乙醇∶水=1∶1的溶液中對(duì)汞離子具有很好的選擇性和靈敏度。

'--------------------------------------

cPoint2(0) = xr

cPoint2(1) = yr

cPoint2(2) = 0

如圖1所示，取直徑為170 mm，直徑偏差范圍為0～0.8 mm的帶輪進(jìn)行實(shí)驗(yàn)。對(duì)帶輪邊緣輪廓進(jìn)行測量，通過雙目視覺圓弧輪廓特征提取和匹配之后，得出邊緣外輪廓點(diǎn)的空間三維坐標(biāo)。圖2所示為求得的帶輪邊緣外輪廓點(diǎn)云圖及空間圓弧擬合圖，共獲得266個(gè)邊緣外輪廓點(diǎn)的三維坐標(biāo)。利用本文擬合優(yōu)化方法，對(duì)上述點(diǎn)云進(jìn)行8次擬合，平均迭代數(shù)為6 895次。擬合結(jié)果如表1所示。

'---------------------

cPoint3(0) = 0

cPoint3(1) = 0

cPoint3(2) = 0

DGIWG發(fā)布的成果分為文獻(xiàn)和注冊(cè)資料2種。文獻(xiàn)包括地理空間信息類標(biāo)準(zhǔn)與專用實(shí)施標(biāo)準(zhǔn)、技術(shù)報(bào)告、產(chǎn)品規(guī)范、手冊(cè)與指南、標(biāo)準(zhǔn)工作路線圖（road map）和早期文獻(xiàn)，其中，地理空間信息類標(biāo)準(zhǔn)與專用實(shí)施標(biāo)準(zhǔn)規(guī)定了軍方地理空間信息的構(gòu)成，技術(shù)報(bào)告是推進(jìn)戰(zhàn)略實(shí)施的一種申報(bào)機(jī)制，產(chǎn)品規(guī)范由各成員國根據(jù)DGIWG標(biāo)準(zhǔn)在多邊合作協(xié)議下制定，手冊(cè)與指南規(guī)定了標(biāo)準(zhǔn)與產(chǎn)品規(guī)范的實(shí)施方法，標(biāo)準(zhǔn)工作路線圖規(guī)定了未來的標(biāo)準(zhǔn)化工作計(jì)劃及相關(guān)的工作計(jì)劃，早期文獻(xiàn)即DGIWG不再維護(hù)的文獻(xiàn)。DGIWG現(xiàn)行的測繪地理信息類標(biāo)準(zhǔn)、規(guī)范和指南見表1。

Dim linq As Variant

Dim linq2 As Variant

Dim linq3 As Variant

Set lin1 = AcadDoc.ModelSpace.AddLine(cPoint, EndPoint) 'CAD畫線

Set lin2 = AcadDoc.ModelSpace.AddLine(cPoint1, EndPoint1) 'CAD畫線

Set arc1 = AcadDoc.ModelSpace.AddArc(cPoint2, R, pi - re * pi / 180, (90 -re - θ) * pi / 180 + pi - re * pi / 180 + (90+ re) * pi / 180) 'CAD畫線

linq = lin1.ArrayPolar(z + 1, pi * 2,cPoint3)

PBL教學(xué)法不是一個(gè)固化的模式，它的形式靈活多樣，可以在不同的背景下以不同的形式適用于多種學(xué)科、多個(gè)專業(yè)中。自20世紀(jì)60年代由麥克馬斯特大學(xué)將PBL引入醫(yī)學(xué)教育以來，其適應(yīng)范圍早已超越醫(yī)學(xué)和工程教育，而被延伸到教育學(xué)、管理學(xué)、法學(xué)、文學(xué)等多個(gè)學(xué)科領(lǐng)域[6]。

linq2 = lin2.ArrayPolar(z + 1, pi * 2,cPoint3)

linq3 = arc1.ArrayPolar(z + 1, pi * 2,cPoint3)

End Sub

（2）塊的引用子程序：

Sub Ch2_addblock(a, b, c As String)'設(shè)定自定義函數(shù)

'畫線(相對(duì)坐標(biāo))a為X坐標(biāo),b為Y坐標(biāo),c,d為相對(duì)坐標(biāo)

Dim AcadDoc As AcadDocument '定義CAD文件

Set AcadDoc = Acadapp.ActiveDocument

Dim blo As AcadBlock '定義CAD線

Dim cPoint(0 To 2) As Double '定義起點(diǎn)

Dim blockrefobj As AcadBlockReference

cPoint(0) = a

cPoint(1) = b

cPoint(2) = 0

Set blockrefobj = AcadDoc.ModelSpace.InsertBlock(cPoint, c, 1#, 1#,1#, 0)

End Sub '結(jié)束子程序

圖 6

圖7 滾刀外形

3.結(jié)語

本文將VB與CAD結(jié)合，開發(fā)了滾刀設(shè)計(jì)軟件，人機(jī)交互界面友好，大大縮短設(shè)計(jì)周期，提高滾刀設(shè)計(jì)效率，具有一定的實(shí)際意義。軟件還在不斷地更新中，隨著生產(chǎn)的需要，需要添加和補(bǔ)充，也請(qǐng)專業(yè)人士指教。

參考文獻(xiàn)：

[1] 袁哲俊, 劉華明. 刀具設(shè)計(jì)手冊(cè)[M]. 北京：機(jī)械工業(yè)出版社,1999.

[2] 袁哲俊. 齒輪刀具設(shè)計(jì)[M]. 北京：國防工業(yè)出版社, 2014.

[3] 劉杰華. 刀具精確設(shè)計(jì)理論與實(shí)踐[M]. 北京：國防工業(yè)出版社,2005.

[4] 四川省機(jī)械工業(yè)局. 復(fù)雜刀具設(shè)計(jì)手冊(cè)[M]. 北京：機(jī)械工業(yè)出版社, 1979.

[5] 陳永輝. 在AutoCAD環(huán)境下批量拼圖的實(shí)現(xiàn)[J]. 機(jī)械設(shè)計(jì)與制造,2010(9)：69-71.

[6] 張晉西. Visual Basic與AutoCAD二次開發(fā)[M]. 北京：清華大學(xué)出版社, 2002.