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

時間：2024-07-22 01:14:22 計算機畢業論文我要投稿

相關推薦

摘要：本文介紹AutoCAD2000與VB以Active Automation實現連接,實現可編程CAD設計在分形圖案設計領域的應用。

關鍵詞： AutoCAD2000；OLE Automation；

1. 引言
大量分形例子是由數學方法，特別是迭代和遞歸算法產生出來的圖形或圖象。不論是自然界中的個體分形形態，還是數學方法產生的分形圖案，都有無窮嵌套、細分再細分的自相似的幾何結構,并是個動態過程[1]。在AutoCAD里使用手工繪圖無法實現這種復雜、動態、多向、結合數學運算的設計。
在VB中利用Active Automation技術可實現可編程設計，符合分形圖案的在三維空間的展現。AutoCAD有豐富的線，面，體的構筑功能，如B樣條曲線（在CAD里定為Spline），布爾運算，實體擠壓技術，在AutoCAD里可輕易實現，并突破傳統的二維空間分形，使分形圖案在三維世界里更加絢麗。

2. AutoCAD與VB的ActiveX Automation 連接技術
為使用AutoCAD的Auotomation對象，必須首先在Visual Basic 6.0中引用該對象類型庫acad.tlb ,并連接如下[1]：
sub Main()
Public acadApp As Object ‘AutoCAD 的application對象
Public acadDoc As Object ‘AutoCAD document對象
Public moSpace As Object ‘Modelspace 模型空間對象集合
Public paSpace As Object ‘PaperSace 圖紙空間對象集合
On Error Resume Next
Set acadApp = GetObject(,” AutoCAD.Application”)
If Err Then
Err.Clear
Set acadApp = CreateObject(“AutoCAD.Application”)
If Err Then
Msgbox Err.description
Exit Sub
End If
End if
End sub
在存儲及繪圖模板使用如下[3]：
acadDoc.activedocument.SaveAs(′d:\capp\fractal.dwg′)
’執行ActiveDocument對象的SaveAs方法
exportFile := ′d:\capp\fractal′
將AutoCAD應用程序關閉使用Quit方法：acadApp.Quit. :Set acadApp =Nothing

3. AutoCAD中圖形的創建
各類線創建：1）AddLine；2）AddLightweightPolyline；3）AddMLine；4）AddPolyline；
5） AddArc；6） AddCircle；7） AddEllipse；
8）AddSpline：二，三次 NURBS (nonuniform rational B-spline) 曲線.
各類面創建：1)Add3Dface;2)AddPolyfaceMesh;3)AddPolygonMesh;4)AddSolid
各類體創建：1)AddBox; 2) AddCone;3)AddCylinder;4)AddEllipticalCone;5)AddSphere;
6)AddTorus7) AddExtrudesolid;8)AddWedge;9)AddRevolveSolid;
10)AddElliptcalCylinder;11)AddextrudeSolidAlongPath樣條曲線實例：Sub CreateSpline()
Dim splineObj As AcadSpline
Dim noOfPoints As Integer
Dim startTan(0 To 2) As Double
Dim endTan(0 To 2

【探析VB控制AutoCAD繪制三維分形圖案】相關文章：