[求助]：用VBA如何实现钢筋点？

weihong0371

在钢筋图形中需要大量的钢筋点，用cad我一般用donut命令，取内径为0来实现，请问高手们如何在vba中画出钢筋点？（不使用sendcommand方法！因为使用sendcommand方法创建的点不能被拷贝或阵列！）

雪山飞狐(lzh)

Function AddDonut(ByVal Center, ByVal Radius As Double, ByVal Width As Double) As AcadLWPolyline
    Dim pnts(3) As Double
    pnts(0) = Center(0) - Radius: pnts(1) = Center(1)
    pnts(2) = Center(0) + Radius: pnts(3) = Center(1)
    Set AddDonut = ThisDrawing.ModelSpace.AddLightWeightPolyline(pnts)
    With AddDonut
        .Closed = True
        .SetBulge 0, 1
        .SetBulge 1, 1
        .SetWidth 0, Width, Width
        .SetWidth 1, Width, Width
        .Update
    End With
End Function

Sub tt()
Dim pnt(2) As Double
Set a = AddDonut(pnt, 1, 0.5)
End Sub

weihong0371

我说的是钢筋点，不是圆环！我在你提供的程序基础上改了一下：
Function AddDonut(ByVal Center, ByVal Radius As Double) As AcadLWPolyline
Dim pnts(3) As Double
pnts(0) = Center(0) - Radius: pnts(1) = Center(1)
pnts(2) = Center(0) + Radius: pnts(3) = Center(1)
Set AddDonut = ThisDrawing.ModelSpace.AddLightWeightPolyline(pnts)
With AddDonut
.Closed = True
.SetBulge 0, 1
.SetBulge 1, 1
.SetWidth 0, 2 * Radius, 2 * Radius
.SetWidth 1, 2 * Radius, 2 * Radius
.Update
End With
End Function
Sub tt()
Dim pnt(2) As Double, a As AcadLWPolyline
Set a = AddDonut(pnt, 1)
End Sub
这样就可以了！非常感谢！