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

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

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

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

PublicacadAppAsObject‘AutoCAD的application對象

PublicacadDocAsObject‘AutoCADdocument對象

PublicmoSpaceAsObject‘Modelspace模型空間對象集合

PublicpaSpaceAsObject

‘PaperSace圖紙空間對象集合

OnErrorResumeNext

SetacadApp=GetObject(，”AutoCAD.Application”)

IfErrThen

Err.Clear

SetacadApp=CreateObject(“AutoCAD.Application”)

IfErrThenMsgboxErr.descriptionExitSub

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

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