<ruby id="26blz"></ruby>
    1. <pre id="26blz"></pre>
    2. 久久夜色精品国产网站,丁香五月网久久综合,国产特色一区二区三区视频,无码一区二区三区视频,国产成人精品无缓存在线播放,视频区 国产 图片区 小说区,精品一区二区三区日韩版,国模雨珍浓密毛大尺度150p
      首頁 > 文章中心 > 正文

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

      前言:本站為你精心整理了VB控制AutoCAD繪制三維分形圖案范文,希望能為你的創作提供參考價值,我們的客服老師可以幫助你提供個性化的參考范文,歡迎咨詢。

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

      摘要:本文介紹autocad2000與vb以ActiveAutomation實現連接,實現可編程CAD設計在分形圖案設計領域的應用。

      關鍵詞:AutoCAD2000;OLEAutomation;

      1.引言

      大量分形例子是由數學方法,特別是迭代和遞歸算法產生出來的圖形或圖象。不論是自然界中的個體分形形態,還是數學方法產生的分形圖案,都有無窮嵌套、細分再細分的自相似的幾何結構,并是個動態過程[1]。在AutoCAD里使用手工繪圖無法實現這種復雜、動態、多向、結合數學運算的設計。

      在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′)

      ’執行ActiveDocument對象的SaveAs方法

      exportFile:=′d:\capp\fractal′

      將AutoCAD應用程序關閉使用Quit方法:acadApp.Quit.:SetacadApp=Nothing

      3.AutoCAD中圖形的創建

      各類線創建:1)AddLine;2)AddLightweightPolyline;3)AddMLine;4)AddPolyline;

      5)AddArc;6)AddCircle;7)AddEllipse;

      8)AddSpline:二,三次NURBS(nonuniformrationalB-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

      樣條曲線實例: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.三維謝氏塔的自相似結構:

      三棱錐型的創建法:1)生成三維線(Add3Dpolyline);

      2)產生區域(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開發AutoCAD2000應用程序人民郵電出版社,1999

      [3]劉艷斌等.OLEAutomation技術在CAD/CAPP基成中的應用.計算機應用2000.Vol.4

      主站蜘蛛池模板: 亚洲国产精品线观看不卡| 久久一夜天堂av一区二区| 国产中文字幕日韩精品| 国产精品线在线精品国语| 日韩人妻系列无码专区| 精品国产三级a∨在线欧美| 精品国产成人国产在线视| 国产最大成人亚洲精品| 日韩V欧美V中文在线| 人妻少妇精品性色av蜜桃| 亚洲av午夜成人片| 麻豆国产va免费精品高清在线| 131mm少妇做爰视频| 国产精品一区二区三区性色| 女同精品女同系列在线观看| 被黑人伦流澡到高潮HNP动漫| 国产精品va无码一区二区| 亚洲sm另类一区二区三区| 麻豆精品国产熟妇aⅴ一区| 阳曲县| 亚洲综合一区国产精品| 日韩精品无码一区二区三区视频| 久久精品国产亚洲成人av| 国产人妇三级视频在线观看| 无码人妻视频一区二区三区 | 亚洲国产天堂一区二区三区| 午夜高清福利在线观看| 色诱视频在线观看| 亚洲 一区二区 在线| 九九热爱视频精品| 亚洲成亚洲成网| 男人天堂亚洲天堂女人天堂| 亚洲第一成年免费网站| 99久久精品国产综合一区| 人妻激情视频一区二区三区| 中文字幕在线国产精品| 免费观看添你到高潮视频| 国产色悠悠视频在线观看| 欧洲一区二区中文字幕| 亚洲深深色噜噜狠狠网站| 狠狠亚洲色一日本高清色|