淺析VB控制AutoCAD繪制三維分形圖案

淺析VB控制AutoCAD繪制三維分形圖案

摘要：本文介紹AutoCAD2000與VB以ActiveAutomation實(shí)現(xiàn)連接，實(shí)現(xiàn)可編程CAD設(shè)計(jì)在分形圖案設(shè)計(jì)領(lǐng)域的應(yīng)用。關(guān)鍵詞：AutoCAD2000；OLEAutomation；1.引言大量分形例子是由數(shù)學(xué)方法，特別是迭代和遞歸算法產(chǎn)生出來(lái)的圖形或圖象。不論是自然界中的個(gè)體分形形態(tài)，還是數(shù)學(xué)方法產(chǎn)生的分形圖案，都有無(wú)窮嵌套、細(xì)分再細(xì)分的自相似的幾何結(jié)構(gòu)，并是個(gè)動(dòng)態(tài)過(guò)程[1]。在AutoCAD里使用手工繪圖無(wú)法實(shí)現(xiàn)這種復(fù)雜、動(dòng)態(tài)、多向、結(jié)合數(shù)學(xué)運(yùn)算的設(shè)計(jì)。在VB中利用ActiveAutomation技術(shù)可實(shí)現(xiàn)可編程設(shè)計(jì)，符合分形圖案的在三維空間的展現(xiàn)。AutoCAD有豐富的線，面，體的構(gòu)筑功能，如B樣條曲線（在CAD里定為Spline），布爾運(yùn)算，實(shí)體擠壓技術(shù)，在AutoCAD里可輕易實(shí)現(xiàn)，并突破傳統(tǒng)的二維空間分形，使分形圖案在三維世界里更加絢麗。2.

AutoCAD與VB的ActiveXAutomation連接技術(shù)為使用AutoCAD的Auotomation對(duì)象，必須首先在VisualBasic6.0中引用該對(duì)象類(lèi)型庫(kù)acad.tlb，并連接如下[1]：subMain()

PublicacadAppAsObject‘AutoCAD的application對(duì)象

PublicacadDocAsObject‘AutoCADdocument對(duì)象

PublicmoSpaceAsObject‘Modelspace模型空間對(duì)象集合

PublicpaSpaceAsObject

‘PaperSace圖紙空間對(duì)象集合

OnErrorResumeNext

SetacadApp=GetObject(，”AutoCAD.Application”)

IfErrThen

Err.Clear

SetacadApp=CreateObject(“AutoCAD.Application”)

IfErrThenMsgboxErr.descriptionExitSub

EndIfEndifEndsub在存儲(chǔ)及繪圖模板使用如下[3]：acadDoc.activedocument.SaveAs(′d:\capp\fractal.dwg′)’執(zhí)行ActiveDocument對(duì)象的SaveAs方法exportFile:=′d:\capp\fractal′將AutoCAD應(yīng)用程序關(guān)閉使用Quit方法：acadApp.Quit.:SetacadApp=Nothing3.

AutoCAD中圖形的創(chuàng)建各類(lèi)線創(chuàng)建：1）AddLine；2）AddLightweightPolyline；3）AddMLine；4）AddPolyline；5）AddArc；6）AddCircle；7）AddEllipse；8）AddSpline：二，三次NURBS(nonuniformrationalB-spline)曲線.各類(lèi)面創(chuàng)建：1)Add3Dface;2)AddPolyfaceMesh;3)AddPolygonMesh;4)AddSolid各類(lèi)體創(chuàng)建：1)AddBox;2)AddCone;3)AddCylinder;4)AddEllipticalCone;5)AddSphere;6)AddTorus7)AddExtrudesolid;