亚洲国产日韩欧美在线a乱码,国产精品路线1路线2路线,亚洲视频一区,精品国产自,www狠狠,国产情侣激情在线视频免费看,亚洲成年网站在线观看

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

時(shí)間:2024-07-22 01:14:22 計(jì)算機(jī)畢業(yè)論文 我要投稿
  • 相關(guān)推薦

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

摘要: 本文介紹AutoCAD2000與VB以Active Automation實(shí)現(xiàn)連接,實(shí)現(xiàn)可編程CAD設(shè)計(jì)在分形圖案設(shè)計(jì)領(lǐng)域的應(yīng)用。

關(guān)鍵詞: AutoCAD2000;OLE Automation;

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




2. AutoCAD與VB的ActiveX Automation 連接技術(shù)
為使用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′)
’執(zhí)行ActiveDocument對象的SaveAs方法
exportFile := ′d:\capp\fractal′
將AutoCAD應(yīng)用程序關(guān)閉使用Quit方法:acadApp.Quit. :Set acadApp =Nothing

3. AutoCAD中圖形的創(chuàng)建
各類線創(chuàng)建:1)AddLine;2)AddLightweightPolyline;3)AddMLine;4)AddPolyline;
5) AddArc;6) AddCircle;7) AddEllipse;
8)AddSpline:二,三次 NURBS (nonuniform rational B-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樣條曲線實(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à)值結(jié)構(gòu)與三維簿記原理探析03-18

探析運(yùn)動控制新技術(shù)03-20

酒店經(jīng)營本錢控制策略探析02-27

探析企業(yè)法律風(fēng)險(xiǎn)的防范與控制03-19

探析企業(yè)銷售與收款的內(nèi)部控制03-18

企業(yè)物流本錢控制措施探析11-14

探析工程清單之工程造價(jià)控制03-21

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

探析鋼筋混凝土的質(zhì)量控制03-20