- 相關(guān)推薦
探析VB控制AutoCAD繪制三維分形圖案
摘要： 本文介紹AutoCAD2000與VB以Active Automation實(shí)現連接,實(shí)現可編程CAD設計在分形圖案設計領(lǐng)域的應用。關(guān)鍵詞： AutoCAD2000；OLE Automation；
1. 引言
大量分形例子是由數學(xué)方法，特別是迭代和遞歸算法產(chǎn)生出來(lái)的圖形或圖象。不論是自然界中的個(gè)體分形形態(tài)，還是數學(xué)方法產(chǎn)生的分形圖案，都有無(wú)窮嵌套、細分再細分的自相似的幾何結構,并是個(gè)動(dòng)態(tài)過(guò)程[1]。在A(yíng)utoCAD里使用手工繪圖無(wú)法實(shí)現這種復雜、動(dòng)態(tài)、多向、結合數學(xué)運算的設計。
在VB中利用Active Automation技術(shù)可實(shí)現可編程設計，符合分形圖案的在三維空間的展現。AutoCAD有豐富的線(xiàn)，面，體的構筑功能，如B樣條曲線(xiàn)（在CAD里定為Spline），布爾運算，實(shí)體擠壓技術(shù)，在A(yíng)utoCAD里可輕易實(shí)現，并突破傳統的二維空間分形，使分形圖案在三維世界里更加絢麗。
2. AutoCAD與VB的ActiveX Automation 連接技術(shù)
為使用AutoCAD的Auotomation對象，必須首先在Visual Basic 6.0中引用該對象類(lèi)型庫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應用程序關(guān)閉使用Quit方法：acadApp.Quit. :Set acadApp =Nothing
3. AutoCAD中圖形的創(chuàng )建
各類(lèi)線(xiàn)創(chuàng )建：1）AddLine；2）AddLightweightPolyline；3）AddMLine；4）AddPolyline；
5） AddArc；6） AddCircle；7） AddEllipse；
8）AddSpline：二，三次 NURBS (nonuniform rational B-spline) 曲線(xiàn).
各類(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;8)AddWedge;9)AddRevolveSolid;
10)AddElliptcalCylinder;11)AddextrudeSolidAlongPath樣條曲線(xiàn)實(shí)例：Sub CreateSpline()
Dim splineObj As AcadSpline
Dim noOfPoints As Integer
Dim startTan(0 To 2) As Double
Dim endTan(0 To 2
【探析VB控制AutoCAD繪制三維分形圖案】相關(guān)文章：
三維價(jià)值結構與三維簿記原理探析03-18
探析運動(dòng)控制新技術(shù)03-20
酒店經(jīng)營(yíng)本錢(qián)控制策略探析02-27
探析工程清單之工程造價(jià)控制03-21
探析建筑工程中成本控制與管理03-21
探析鋼筋混凝土的質(zhì)量控制03-20