关于autocadVBA开发精彩实例教程6.2节螺栓模型

littlerain · 发表于 2005-4-20 13:50:00

各位大侠，
能否帮忙看下此书中6.2螺栓模型程序，在创建六边形这一部分，有个set objpline=addpolygon(ptcen,6,7.5) ，调试过程中，说没有addpolygon()这个函数，难道在vba中没有这个函数的吗？应该怎么解决这个问题？请帮忙啊！万分感谢！

yulijin608 · 发表于 2005-4-20 15:54:00

addpolygon()可能是自己定义的一个函数,你在6.2节前后仔细找找,哪个地方可能有这个函数吧.

littlerain · 发表于 2005-4-20 16:52:00

我找了，没有的。请问有此函数的vb代码吗？谢谢了啊！

yulijin608 · 发表于 2005-4-20 17:25:00

我都找到了，代码如下：
'创建正多边形
Public Function AddPolygon(ByVal ptCen As Variant, ByVal number As Integer, ByVal radius As Double, _
   Optional width As Double = 0, Optional angle As Double = 0) As AcadLWPolyline
   '定义动态数组
   Dim objPline As AcadLWPolyline
   Dim ptArr() As Double
   '顶点的个数为number，需要2*number个元素来表示
   ReDim ptArr(2 * number - 1)

   '每条边对应的角度
   Dim ang As Double
   ang = 2 * PI / number

   '为点的坐标数组赋值
   Dim i As Integer
   For i = 0 To 2 * number - 1
   If i Mod 2 = 0 Then
   ptArr(i) = ptCen(0) + radius * Cos((i \ 2) * ang)
   ElseIf i Mod 2  0 Then
   ptArr(i) = ptCen(1) + radius * Sin((i \ 2) * ang)
   End If
   Next i

   '创建多段线，并调整其特性
   Set objPline = AddLWPline(ptArr, width)
   objPline.Closed = True
   objPline.Rotate ptCen, angle
   objPline.Update

   Set AddPolygon = objPline
End Function