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

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

摘要： 本文介紹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繪制三維分形圖案】相關文章：

三維價值結構與三維簿記原理探析03-18

探析運動控制新技術03-20

酒店經營本錢控制策略探析02-27

探析企業法律風險的防范與控制03-19

探析企業銷售與收款的內部控制03-18

企業物流本錢控制措施探析11-14

探析工程清單之工程造價控制03-21

探析建筑工程中成本控制與管理03-21

探析鋼筋混凝土的質量控制03-20