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

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

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

各位大侠，
能否帮忙看下此书中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 20 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

littlerain 发表于 2005-4-20 18:22:00

谢谢啊，在书上哪呢~？

littlerain 发表于 2005-4-20 18:38:00

不对啊，我调试了，在AddLWPline(ptArr, width)         处调试不通，没有这个函数，难道这个也不是vba自带的么？需要自行编写？

littlerain 发表于 2005-4-20 19:40:00

程序已经能够运行出来了，可是图象不对，不是如书上所示的螺栓图象，可完全是按照书上的程序运行啊？

littlerain 发表于 2005-4-20 19:50:00

哪位高手能不能帮忙看一下下，
图象是
http://sxszjzx.com/~c18/1.bmp

littlerain 发表于 2005-4-20 19:53:00

图象是
www.sxszjzx.com/~c18/2.bmp

zfbj 发表于 2005-5-23 23:55:00

问题是否已经解决?

查看完整版本: 关于autocadVBA开发精彩实例教程6.2节螺栓模型