浅析VB控制AutoCAD绘制三维分形图案

《浅析VB控制AutoCAD绘制三维分形图案》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、浅析VB控制AutoCAD绘制三维分形图案摘要：本文介绍AutoCADXX与VB以ActiveAutomation实现连接,实现可编程CAD设计在分形图案设计领域的应用。关键词：AutoCADXX；OLEAutomation；1.引言大量分形例子是由数学方法，特别是迭代和递归算法产生出来的图形或图象。不论是自然界中的个体分形形态，还是数学方法产生的分形图案，都有无穷嵌套、细分再细分的自相似的几何结构,并是个动态过程[1]。在AutoCAD里使用手工绘图无法实现这种复杂、动态、多向、结合数学运算的设计。在VB中利用ActiveAutomation技术可实现可编程设计，符合分形图

2、案的在三维空间的展现。AutoCAD有丰富的线，面，体的构筑功能，如B样条曲线，布尔运算，实体挤压技术，在AutoCAD里可轻易实现，并突破传统的二维空间分形，使分形图案在三维世界里更加绚丽。2.AutoCAD与VB的ActiveXAutomation连接技术为使用AutoCAD的Auotomation对象，必须首先在Visual中引用该对象类型库,并连接如下[1]：subMain()PublicacadAppAsObject‘AutoCAD的application对象PublicacadDocAsObject‘AutoCADdocument对象PublicmoSpaceAs

3、Object‘Modelspace模型空间对象集合PublicpaSpaceAsObject‘PaperSace图纸空间对象集合OnErrorResumeNextSetacadApp=GetObject(,””)IfErrThenSetacadApp=CreateObject(“”)IfErrThenMsgboxExitSubEndIfEndifEndsub在存储及绘图模板使用如下[3]：(′d:capp′)’执行ActiveDocument对象的SaveAs方法exportFile:=′d:cappfractal′将AutoCAD应用程序关闭使用Quit方法：:Se

4、tacadApp=Nothing3.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;)AddCone;3)AddCylinder;4)AddEl

5、lipticalCone;5)AddSphere;6)AddTorus7)AddExtrudesolid;8)AddWedge;9)AddRevolveSolid;10)AddElliptcalCylinder;11)AddextrudeSolidAlongPath样条曲线实例：SubCreateSpline()DimsplineObjAsAcadSplineDimnoOfPointsAsIntegerDimstartTan(0To)AsDoubleDimendTan(0To)AsDoubleDimfitPoints(0To)AsDoublenoOfPoints=startT

6、an(0)=:startTan(1)=:startTan(2)=0endTan(0)=:endTan(1)=:endTan(2)=0fitPoints(0)=1:fitPoints(1)=1:fitPoints(2)=0fitPoints(3)=:fitPoints(4)=:fitPoints(5)=0fitPoints(6)=10:fitPoints(7)=0:fitPoints(8)=0SetsplineObj=(fitPoints,startTan,endTan)ZoomAllEndSub4．三维谢氏塔的自相似结构：三棱锥型的创建法：1）生成三维线(Add3Dpolyl

7、ine)；2）产生区域(AddRegion)后通过挤压(AddExtrudedSolid)subCreatePyramid()DimpolyObjAsAcad3DpolylineDimpoints(0To11)AsDoublePoint(0)=0:Point(1)=0:Point(2)=0Point(3)=255:Point(4)=0:Point(5)=0Point(6)=128:Point(7)=:Point(8)=0Point(9)=0:Point(10)=0:Point(11)=0SetpolyO