AddWedge method example


Sub AddWedge_Example()
' This example adds a torus to the drawing using the AddWedge method.
    Dim wedgeObj  As Acad3DSolid
    Dim Pt1(0 To 2) As Double: Pt1(0) = 0: Pt1(1) = 0: Pt1(2) = 0
    Set wedgeObj = ThisDrawing.ModelSpace.AddWedge(Pt1, 3, 4, 5)
    wedgeObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved.