0 引 言

毛坯尺寸是零件的基本屬性之一，為模具、工裝和機(jī)加產(chǎn)品等的結(jié)構(gòu)設(shè)計(jì)、干涉分析、材料準(zhǔn)備、成本分析、確定加工周期等方面提供了重要的參考作用。目前主流的三維設(shè)計(jì)軟件均提供測(cè)量零件包絡(luò)體的功能，主要有2種測(cè)量模式

，一種為軸對(duì)齊包圍盒AABB（axis-aligned bounding box），另一種為最小包圍盒MBB（minimum bounding box），如圖1所示。最小包圍盒MBB尺寸加上適當(dāng)?shù)募庸び嗔浚C(jī)加零件一般為10 mm），即可得到零件的毛坯尺寸。

對(duì)于最小包圍盒MBB的算法，不少學(xué)者和專(zhuān)家對(duì)其進(jìn)行了大量研究工作。G BAREQUET等

提出利用三維點(diǎn)集來(lái)近似求解最小包圍盒的算法，首先對(duì)實(shí)體模型進(jìn)行離散化，但想要獲得較高精度的計(jì)算結(jié)果，必須使得離散化程度更高，從而降低了運(yùn)行效率；陳柏松等

提出一種基于非線性主成分分析的最小包圍盒計(jì)算方法，首先計(jì)算頂點(diǎn)區(qū)域面積，然后用每個(gè)頂點(diǎn)區(qū)域面積對(duì)頂點(diǎn)進(jìn)行調(diào)制，再使用傳統(tǒng)主成分分析得到目標(biāo)正交坐標(biāo)系，從而得到最小包圍盒，該方法計(jì)算穩(wěn)定，但處理較多頂點(diǎn)時(shí)速度較慢，且無(wú)法處理設(shè)有連接關(guān)系的點(diǎn)集數(shù)據(jù)；陳華等

提出一種確定任意形狀物體最小包圍盒的方法，利用實(shí)體模型分別繞3個(gè)坐標(biāo)軸旋轉(zhuǎn)一定角度時(shí)計(jì)算一次方向包圍盒OBB（oriented bound?ing box），最后找出體積最小的OBB作為最小包圍盒，但該方法計(jì)算速度慢、效率低；孔垂品等

提出一種零件的最小包圍盒生成算法，根據(jù)旋轉(zhuǎn)投影的外輪廓確定最小包圍盒，采用逐步細(xì)分法，通過(guò)2輪旋轉(zhuǎn)來(lái)提高計(jì)算效率，但處理單個(gè)復(fù)雜零件耗時(shí)已超過(guò)100 s，不適合一次性處理較多零件。

對(duì)于一般機(jī)加工產(chǎn)品，目前測(cè)量最小包圍盒的方法為：利用三維設(shè)計(jì)軟件，采用手動(dòng)方式逐個(gè)對(duì)零件進(jìn)行測(cè)量，再將測(cè)量結(jié)果逐一手動(dòng)記錄。但對(duì)于大型的模具、工裝和機(jī)加工產(chǎn)品，零件數(shù)量可能成百上千，如果再采用手動(dòng)測(cè)量和記錄的方式，工作量巨大且容易出錯(cuò)，影響工作效率。王孟等

基于CATIA/CAA對(duì)三維型材的毛坯模型生成技術(shù)進(jìn)行了研究，龍軍等

將UG二次開(kāi)發(fā)技術(shù)用于鑄件毛坯三維實(shí)體自動(dòng)生成，該方法主要用于識(shí)別孔、凹槽、倒角等加工特征，并將零件模型恢復(fù)到機(jī)加工前狀態(tài)，無(wú)法準(zhǔn)確用于測(cè)量零件的最小包圍盒。針對(duì)該問(wèn)題，需要編制一套高效可靠的程序，快速自動(dòng)測(cè)量和輸出最小包圍盒尺寸，并最終獲得零件的毛坯尺寸，提高工作效率。

1 開(kāi)發(fā)工具

CATIA是一款CAD/CAE/CAM一體化軟件

，廣泛應(yīng)用于機(jī)械設(shè)計(jì)、航空航天、汽車(chē)制造、造船、電子電器等行業(yè)。為了滿足用戶個(gè)性化和專(zhuān)業(yè)化需求，CATIA為用戶提供了多種二次開(kāi)發(fā)接口

，其中包括基于構(gòu)件的應(yīng)用編程接口（CAA）

和自動(dòng)化對(duì)象編程接口（VBA）

。CAA是CATIA已有組件的定制開(kāi)發(fā)，主要為Visual C++和Java語(yǔ)言，并要具備連接端口等方面的知識(shí)，入門(mén)相對(duì)困難；VBA是交互式的定制開(kāi)發(fā)，主要為Visual Basic語(yǔ)言

，雖在功能上不及CAA強(qiáng)大，但簡(jiǎn)單實(shí)用，可以滿足一般專(zhuān)業(yè)化需求?，F(xiàn)主要介紹在CATIA中采用VBA二次開(kāi)發(fā)接口，使用VB語(yǔ)言進(jìn)行編程，實(shí)現(xiàn)自動(dòng)批量導(dǎo)出零件毛坯尺寸的功能。

2 程序設(shè)計(jì)方法

2.1 設(shè)計(jì)思路和原理

程序設(shè)計(jì)應(yīng)簡(jiǎn)單實(shí)用、穩(wěn)定運(yùn)行和計(jì)算正確，主要從以下2個(gè)方面進(jìn)行考慮。

此時(shí)，曾先生也失去了理智，他把背包扔到地上，然后向前撲倒在地上號(hào)叫。曾先生表示，當(dāng)時(shí)沒(méi)有考慮這種方式是否妥當(dāng)，只是想控訴警方的作為，并向路人求助。

海南陵水海洋經(jīng)濟(jì)發(fā)展示范區(qū)的主要任務(wù)是開(kāi)展海洋旅游業(yè)國(guó)際化高端化發(fā)展示范，探索“海洋旅游+”產(chǎn)業(yè)融合發(fā)展模式創(chuàng)新。

（2）裝配狀態(tài)包含零件、子裝配、部件等多個(gè)對(duì)象，測(cè)量最小包圍盒時(shí)容易出錯(cuò)，最好單獨(dú)打開(kāi)零件進(jìn)行測(cè)量。

2.2 功能實(shí)現(xiàn)

2.2.1 查找零件

查找某文件夾及其子文件夾中的所有CATIA零件（*.CATPart），并將相關(guān)文件信息輸出到Ex?cel表。

查找零件的子程序代碼如下。

三是 IT技術(shù)與電氣自動(dòng)化相融合。當(dāng)前，傳統(tǒng)自動(dòng)化技術(shù)與 IT技術(shù)的融合明顯加快 [4]。IT技術(shù)對(duì)電氣自動(dòng)化的影響主要有：通過(guò)數(shù)據(jù)處理系統(tǒng)影響管理層，幫助管理人員高效管理；影響自動(dòng)化設(shè)備和系統(tǒng)，確保系統(tǒng)各部分相互通信，提高系統(tǒng)集成度[5]。

Public n_File As Double'文件數(shù)量

Public FileName(1 To 65536)As String'文件名稱(chēng)

FilePath(n_File)=Left(file.Path,InStrRev(file.Path,""))

Next

For Each file In CreateObject("Scripting.FileSystemOb?ject").GetFolder(Path1).Files

本屆展會(huì)以“科學(xué)發(fā)展·低碳節(jié)能”為主題，以科技創(chuàng)新、清潔高效、節(jié)能減排為主要內(nèi)容，來(lái)自中國(guó)及其他近10個(gè)國(guó)家的煤炭企業(yè)、煤炭洗選設(shè)備制造企業(yè)、煤礦節(jié)能及環(huán)保設(shè)備企業(yè)、煤化工及石化企業(yè)和相關(guān)科研院所的200多家單位參加了展覽，展覽面積超過(guò)1.3萬(wàn)m2，集中展示了煤炭洗選加工、資源綜合利用、發(fā)展循環(huán)經(jīng)濟(jì)、礦區(qū)生態(tài)環(huán)境保護(hù)和煤化工及石油化工等領(lǐng)域的新技術(shù)、新工藝、新產(chǎn)品和新成果，充分體現(xiàn)了綠色、低碳、環(huán)保的理念。人民日?qǐng)?bào)等20多家新聞媒體對(duì)展覽會(huì)進(jìn)行了采訪報(bào)道。

If InStr(file.Name,".CATPart")<>0 Then'判斷是否為零件類(lèi)文件

n_File=n_File+1

女兒的病情剛穩(wěn)定，夫妻倆就決定讓母親到醫(yī)院照顧女兒，重新返回工作崗位，雖然心中有諸多不舍，但工作的責(zé)任感和對(duì)社會(huì)感恩的心，讓她不愿懈怠。她說(shuō)：“是組織的關(guān)懷和愛(ài)心人士的幫助，幫我們一家人渡過(guò)了難關(guān)，我唯有更努力的工作，才能無(wú)愧于心?！?/p>

Next

Public FilePath(1 To 65536)As String'文件路徑

End if

我喜歡他，因?yàn)樗膽n郁和沉默。很奇怪，他沒(méi)錢(qián)沒(méi)房子，我居然也會(huì)喜歡他，面對(duì)他，總有一種臉紅心跳的感覺(jué)。但我并不知道他是否喜歡我，雖然那時(shí)候，小店里已經(jīng)時(shí)常有客人夸我長(zhǎng)得漂亮，當(dāng)他們得知我叫關(guān)之林的時(shí)候，總是哈哈大笑，說(shuō)，小林，你一點(diǎn)也不像關(guān)之林，倒是與張曼玉有些神似，總能輕易勾人魂魄。

Public Sub SerachFile(ByVal Path1 As String)

If CreateObject("Scripting.FileSystemObject").GetFold?er(Path1).SubFolders.Count>0 Then

For Each Folder In CreateObject("Scripting.FileSystem?Object").GetFolder(Path1).SubFolders'子文件夾中遞歸調(diào)用

SerachFile Folder.Path

FileName(n_File)=file.Name

該方案也是目前的主流控制方式，具體的實(shí)際案例非常多，如?？冖瘢?×600 t/d）、株洲（2×500t/d）、哈爾濱（2×600t/d）、?？冖?（2×600t/d）、珠海 （2×600 t/d）、蕪湖 （2×600 t/d）、石家莊（1×825 t/d）、寧波（3×750 t/d） 等項(xiàng)目。以上項(xiàng)目均已長(zhǎng)期投入運(yùn)行。

End If

End Sub

將文件信息輸出到Excel表的代碼如下。

Dim EXCEL1 As Workbook

Next

EXCEL1.Application.Visible=True

Dim sheets1 As Worksheet

（1）可對(duì)某文件夾中的所有零件進(jìn)行自動(dòng)批量處理，并將結(jié)果輸出到Excel表中，方便后續(xù)操作。采用遞歸算法遍歷某文件夾及其子文件夾中的全部零件，程序執(zhí)行的主要流程如圖2所示。

Set sheets1=EXCEL1.Worksheets(1)

C_FileName="A"'文件名稱(chēng)所在列

C_FilePath="B"'文件路徑所在列

For Each file In fils

n_File=n_File+1

sheets1.Range(C_FileName&n_File+1).Value=CStr(file.Name)

sheets1.Range(C_FilePath&n_File+1).Value=File?Path1

Next

余琳[7]選取精細(xì)膠粉與PP/EPDM型聚烯烴類(lèi)熱塑性硫化膠(TPV)通過(guò)直接混煉法制備性能保持良好的膠粉/TPV共混材料，同時(shí)采用添加增容劑、活化劑與增容劑并用兩種方法，進(jìn)一步改進(jìn)共混體系的兩相界面相容性，提高了共混材料的綜合性能。

2.2.2 讀取零件

讀取Excel表中的文件信息，并使用CATIA軟件依次打開(kāi)零件模型，代碼如下。

For i=1 to n_File

盡管現(xiàn)實(shí)中經(jīng)?？梢月?tīng)到“教無(wú)定法”這樣的論述，但這又是中國(guó)數(shù)學(xué)教師十分明顯的一個(gè)特點(diǎn)，即是對(duì)于教學(xué)方法的高度重視，特別是，能否積極從事教學(xué)方法的改革常常就被看成相關(guān)教師是否具有較強(qiáng)的改革意識(shí)的直接標(biāo)志．對(duì)此例如由以下論述就可清楚地看出，“動(dòng)手實(shí)踐、自主探索與合作交流是學(xué)生學(xué)習(xí)數(shù)學(xué)的重要方式”[11]，又“與現(xiàn)行教材中主要采取的‘定義、公理—定理、公式—例題—習(xí)題’的形式不同，《標(biāo)準(zhǔn)》提倡以‘問(wèn)題情境—建立模型—解釋、應(yīng)用與拓展（反思）’的基本模式展開(kāi)內(nèi)容”[12]．

Set Model1=CATIA.Documents.Open(FilePath(i)&“”&FileName(i))

Set EXCEL1=Excel.Workbooks.Add'新建 Excel表

2.2.3 測(cè)量零件

CATIA軟件未直接提供測(cè)量零件最小包圍盒MBB的函數(shù)，但可以通過(guò)以下2種方法獲得MBB尺寸。

（1）慣性主軸法。先使用GetPrincipalAxes函數(shù)獲得零件實(shí)體的慣性主軸，然后使用AddNewExtre?mumPolar函數(shù)創(chuàng)建沿3個(gè)坐標(biāo)軸方向的極點(diǎn)，極點(diǎn)沿坐標(biāo)軸方向的跨度即組成了最小包圍盒尺寸。但是該方法在創(chuàng)建極點(diǎn)時(shí)相當(dāng)于對(duì)零件模型進(jìn)行了更改，容易引起存儲(chǔ)錯(cuò)誤和文件關(guān)閉時(shí)彈出提示問(wèn)題，不利于程序的穩(wěn)定運(yùn)行和模型安全，降低了運(yùn)行效率，不適合批量處理多個(gè)零件。

（2）測(cè)量慣量法。利用CATIA軟件的測(cè)量慣量功能（自定義中需勾選“主軸”），對(duì)零件實(shí)體進(jìn)行測(cè)量，此時(shí)結(jié)構(gòu)樹(shù)上會(huì)出現(xiàn)測(cè)量參數(shù)，如圖3所示。其中“BBLx”、“BBLy”、“BBLz”即為最小包圍盒尺寸。該方法測(cè)量速度快、精度高，且未對(duì)零件模式進(jìn)行更改，主要代碼如下。

Set sel=Model1.Selection

在加熱爐內(nèi)通氫氣保護(hù)之前，首先要充入氮?dú)?20 kPa)進(jìn)行爐腔內(nèi)空氣的置換，通過(guò)合理調(diào)節(jié)氮?dú)饬髁康拇笮。驙t腔內(nèi)充氮?dú)膺M(jìn)行置換，時(shí)間根據(jù)爐膛的尺寸和氮?dú)饬髁恳约皦毫Φ拇笮【唧w確定。氮?dú)庵脫Q結(jié)束后，充入氫氣(20 kPa)置換爐腔中的氮?dú)?，結(jié)束后要在爐底的取樣口和水封排氣口出分別取樣做鳴爆實(shí)驗(yàn)，實(shí)驗(yàn)合格后方可進(jìn)行水封排氣點(diǎn)火。

個(gè)性化服務(wù)是一種主動(dòng)、互動(dòng)性的服務(wù)，學(xué)科館員基于用戶的信息執(zhí)行和修改服務(wù)內(nèi)容，最大限度地減少用戶因“信息過(guò)載”和“資源迷向”問(wèn)題而導(dǎo)致時(shí)間和精力的浪費(fèi)。依據(jù)各院系個(gè)性化定制服務(wù)需求進(jìn)行服務(wù)內(nèi)容的定制、服務(wù)方式選擇和信息資源的實(shí)時(shí)推送，是圖書(shū)館有效擺脫單一的服務(wù)模式、提升大數(shù)據(jù)閱讀服務(wù)內(nèi)容的個(gè)性化定制比例、增強(qiáng)讀者知識(shí)獲取效率和價(jià)值量的重要途徑。

sel.Clear

Preliminary Study on Different Sowing Depth of Rhizoma Atractylodis___________________________________LIU Li,GAO Che,CHEN Wang Xiang 73

Set part1=Model1.Part

社會(huì)學(xué)解釋。隨著日常工作和社會(huì)環(huán)境的不斷作用下，高校基層行政管理人員對(duì)自身職業(yè)認(rèn)同的不斷調(diào)整和變化，有了新的認(rèn)識(shí)和態(tài)度。在建立職業(yè)認(rèn)同感的過(guò)程中，有些行政人員對(duì)自身的職業(yè)產(chǎn)生了一系列疑惑。有學(xué)者認(rèn)為能夠從角色角度作為出發(fā)點(diǎn)研究職業(yè)倦怠現(xiàn)象，并認(rèn)為角色間沖突、角色內(nèi)部沖突和角色模糊是導(dǎo)致職業(yè)倦怠的主要原因。

sel.Add part1.MainBody'選定零件實(shí)體

CATIA.StartCommand'調(diào)用測(cè)量慣量命令

C_RoughSize="C"'毛坯尺寸所在列

sheets1.Range(C_RoughSize&i).Value=Round(part1.Parameters.GetItem("BBLx").Value+10,1)&"*"&Round(part1.Parameters.GetItem("BBLy").Value+10,1)&"*"&Round(part1.Parameters.GetItem("BBLz").Value+10,1)'+10表示加工余量為10mm

2.3 實(shí)例驗(yàn)證

為驗(yàn)證該方法的使用效果，先對(duì)圖1所示的單個(gè)標(biāo)準(zhǔn)零件GB/T 70.1 M10x50（內(nèi)六角圓柱頭螺釘）進(jìn)行測(cè)試，在處理器2.4 GHz、內(nèi)存8 GB的電腦上處理時(shí)間約4 s，測(cè)試結(jié)果如圖4所示。然后對(duì)某復(fù)合材料產(chǎn)品的模壓模具組件進(jìn)行測(cè)試，如圖5所示，處理12個(gè)零件用時(shí)約38 s，測(cè)試結(jié)果如圖6所示。經(jīng)過(guò)手動(dòng)測(cè)試復(fù)核，表明了測(cè)試結(jié)果準(zhǔn)確無(wú)誤。

3 結(jié)束語(yǔ)

采用CATIA二次開(kāi)發(fā)技術(shù)，通過(guò)其自帶的VBA編輯器進(jìn)行編程，可以實(shí)現(xiàn)快速、自動(dòng)、批量、準(zhǔn)確地導(dǎo)出零件毛坯尺寸的功能，減少了重復(fù)性勞動(dòng)，縮短了工作時(shí)間，提高了工作效率。且該方法計(jì)算速度快，程序運(yùn)行穩(wěn)定，結(jié)果準(zhǔn)確無(wú)誤，適合處理大型模具、工裝、機(jī)械等產(chǎn)品，具有推廣價(jià)值。

[1]孔垂品,牛 強(qiáng),柳 偉,等.模具零件的最小包圍盒生成算法[J].模具工業(yè),2014,40(4):15-18.

[2]BAREQUET G,S H.Efficiently approximating the mini?mum-volume bounding box of a point set in three dimen?sions[J].Journal of Algorithms,2001,38(1):91-109.

[3]陳柏松,葉雪梅,安 利.基于非線性主成分分析的最小包圍盒計(jì)算方法[J].計(jì)算機(jī)集成制造系統(tǒng),2010,16(11):2375-2378.

[4]陳 華,葉雪梅,安 利.確定任意形狀物體最小包圍盒的一種方法[J].工程圖學(xué)學(xué)報(bào),2010(2):49-53.

[5]王 孟,趙 罡.基于CATIA∕CAA的三維型材毛坯模型生成技術(shù)的研究[J].工程圖學(xué)學(xué)報(bào),2010(5):39-42.

[6]龍 軍,張世富,朱朝寬,等.UG二次開(kāi)發(fā)技術(shù)在鑄件毛坯三維實(shí)體自動(dòng)生成中的應(yīng)用[J].鑄造,2017,56(2):155-157.

[7]高長(zhǎng)銀.CATIA V5R21基礎(chǔ)教程[M].北京:化學(xué)工業(yè)出版社,2018:2-6.

[8]周桂生,陸文龍.CATIA二次開(kāi)發(fā)技術(shù)研究與應(yīng)用[J].機(jī)械設(shè)計(jì)與制造,2010(1):81-83.

[9]胡 挺,吳立軍.CATIA二次開(kāi)發(fā)技術(shù)基礎(chǔ)[M].北京:電子工業(yè)出版社,2006:7-13.

[10]林卓然.VB語(yǔ)言程序設(shè)計(jì)[M].北京:電子工業(yè)出版社,2020:1-15.