VB控制AutoCAD繪制三維分形圖案
前言：本站為你精心整理了VB控制AutoCAD繪制三維分形圖案范文，希望能為你的創(chuàng)作提供參考價值，我們的客服老師可以幫助你提供個性化的參考范文，歡迎咨詢。
摘要：本文介紹autocad2000與vb以ActiveAutomation實現連接,實現可編程CAD設計在分形圖案設計領域的應用。
關鍵詞：AutoCAD2000；OLEAutomation；
1.引言
大量分形例子是由數學方法，特別是迭代和遞歸算法產生出來的圖形或圖象。不論是自然界中的個體分形形態(tài)，還是數學方法產生的分形圖案，都有無窮嵌套、細分再細分的自相似的幾何結構,并是個動態(tài)過程[1]。在AutoCAD里使用手工繪圖無法實現這種復雜、動態(tài)、多向、結合數學運算的設計。
在VB中利用ActiveAutomation技術可實現可編程設計，符合分形圖案的在三維空間的展現。AutoCAD有豐富的線，面，體的構筑功能，如B樣條曲線（在CAD里定為Spline），布爾運算，實體擠壓技術，在AutoCAD里可輕易實現，并突破傳統的二維空間分形，使分形圖案在三維世界里更加絢麗。
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”)
IfErrThen
MsgboxErr.description
ExitSub
EndIf
Endif
Endsub
在存儲及繪圖模板使用如下[3]：
acadDoc.activedocument.SaveAs(′d:\capp\fractal.dwg′)
’執(zhí)行ActiveDocument對象的SaveAs方法
exportFile:=′d:\capp\fractal′
將AutoCAD應用程序關閉使用Quit方法：acadApp.Quit.:SetacadApp=Nothing
3.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;8)AddWedge;9)AddRevolveSolid;
10)AddElliptcalCylinder;11)AddextrudeSolidAlongPath
樣條曲線實例：SubCreateSpline()
DimsplineObjAsAcadSpline
DimnoOfPointsAsInteger
DimstartTan(0To2)AsDouble
DimendTan(0To2)AsDouble
DimfitPoints(0To8)AsDouble
noOfPoints=3
startTan(0)=0.5:startTan(1)=0.5:startTan(2)=0
endTan(0)=0.5:endTan(1)=0.5:endTan(2)=0
fitPoints(0)=1:fitPoints(1)=1:fitPoints(2)=0
fitPoints(3)=5:fitPoints(4)=5:fitPoints(5)=0
fitPoints(6)=10:fitPoints(7)=0:fitPoints(8)=0
SetsplineObj=moSpace.AddSpline(fitPoints,startTan,endTan)
ZoomAll
EndSub
4．三維謝氏塔的自相似結構：
三棱錐型的創(chuàng)建法：1）生成三維線(Add3Dpolyline)；
2）產生區(qū)域(AddRegion)后通過擠壓(AddExtrudedSolid)
subCreatePyramid()
DimpolyObjAsAcad3Dpolyline
Dimpoints(0To11)AsDouble
Point(0)=0:Point(1)=0:Point(2)=0
Point(3)=255:Point(4)=0:Point(5)=0
Point(6)=128:Point(7)=221.7025:Point(8)=0
Point(9)=0:Point(10)=0:Point(11)=0
SetpolyObj=moSpace.Add3Dpolyline(poits)
DimregionObjAsVariant
SetRegionObj=moSpace.AddRegion(polyObj)
DimheightAsDouble
DimtaperAngleAsDouble
height=255:taperAngle=
DimsolidObjAsAcad3Dsoild
SetsolidObj=moSpace.AddExtrudeSolid(regionObj,height,taperAngle)
Endsub
布爾運算法語法為：solidObj1.BooleanacUnion,solidObj2(并運算)
solidObj1.BooleanacIntersection,solidObj2(交運算)
參考文獻
[1]劉華杰.分形藝術，湖南電子音像出版社1997年
[2]王玨.用VBA開發(fā)AutoCAD2000應用程序人民郵電出版社，1999
[3]劉艷斌等.OLEAutomation技術在CAD/CAPP基成中的應用.計算機應用2000.Vol.4
