<wbr id="ede8e"></wbr><bdo id="ede8e"><var id="ede8e"><optgroup id="ede8e"></optgroup></var></bdo>
    1. <sub id="ede8e"></sub>
    2. <sub id="ede8e"></sub>
    3. 18禁无遮挡啪啪无码网站,真人无码作爱免费视频,2018年亚洲欧美在线v,国产成人午夜一区二区三区 ,亚洲精品毛片一区二区,国产在线亚州精品内射,精品无码国产污污污免费,国内少妇人妻偷人精品
      首頁 > 文章中心 > 正文

      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| 肥臀浪妇太爽了快点再快点| 色综合久久中文综合久久激情| 幻女free性俄罗斯毛片| 中文字幕久区久久中文字幕| 高清有码国产一区二区| 国厂精品114福利电影免费| 大桥未久亚洲无av码在线| 亚洲av综合久久成人网| 成人一区二区不卡国产| 成人特黄A级毛片免费视频| 野外做受三级视频| 华人在线亚洲欧美精品| 99久久精品午夜一区二区| 国产成人午夜福利精品| 国产乱码精品一区二三区| 亚洲天堂亚洲天堂亚洲色图 | 中文日韩在线一区二区| 中文字幕av中文字无码亚| 北岛玲亚洲一区二区三区| 国产成人高清精品亚洲| 亚洲人成网站在线播放动漫| 国产精品亚洲二区在线看 | 97人妻免费碰视频碰免| av午夜福利一片看久久| 好爽毛片一区二区三区四| 2020国产成人精品视频| 日本无产久久99精品久久| 亚洲一区在线成人av| 天堂www在线中文| 国产精品一区二区三区专区| 视频二区中文字幕在线| 超碰成人人人做人人爽| 国产第一区二区三区精品|