Code: Select all

Sub try_AddExtrudedSolid()

'Declare
'Long
Dim i As Long
'Line
Dim ActLine As IntelliCAD.Line
'Collection
Dim EdgeClctn As New Collection
'Entity
Dim Edges() As IntelliCAD.Entity
'Solid3D
Dim solidObj As IntelliCAD.Solid3D
'Variant
Dim regionObj As Variant

'Code Zone
'set Edges
EdgeClctn.Add Library.CreatePoint(0, 0, 0)
EdgeClctn.Add Library.CreatePoint(0, 10, 0)
EdgeClctn.Add Library.CreatePoint(10, 10, 0)
EdgeClctn.Add Library.CreatePoint(10, 0, 0)

'Draw Curves
ReDim Edges(0 To EdgeClctn.Count - 1)
For i = 1 To EdgeClctn.Count - 1
    Set ActLine = ActiveDocument.ModelSpace.AddLine(EdgeClctn(i), EdgeClctn(i + 1))
    Set Edges(i - 1) = ActLine
Next i

Set ActLine = ActiveDocument.ModelSpace.AddLine(EdgeClctn(i), EdgeClctn(1))
Set Edges(i - 1) = ActLine

'Draw Region
regionObj = ActiveDocument.ModelSpace.AddRegion(Edges)

' Create the solid
Set solidObj = ActiveDocument.ModelSpace.AddExtrudedSolid(regionObj(0), 10, 0) ''' Here is the crash point!
regionObj(0).Delete

End Sub

Code: Select all

Sub try_AddExtrudedSolid()
    ' get the entity.
    Dim ent As Entity
    Dim reg As Region
    Dim pt As Point
    
    Dim solidObj As IntelliCAD.Solid3D
    
    ActiveDocument.Utility.GetEntity ent, pt, "Select Entity"
    If ent.EntityType = vicRegion Then
        Set reg = ent
        Set solidObj = ActiveDocument.ModelSpace.AddExtrudedSolid(reg, 10, 0)
    End If
End Sub

Code: Select all

Sub try_AddExtrudedSolid()
    'Declare
    'Long
    Dim i As Long
    'Line
    Dim ActLine As IntelliCAD.Line
    'Collection
    Dim EdgeClctn As New Collection
    'Entity
    Dim Edges() As IntelliCAD.Entity
    'Solid3D
    Dim solidObj As IntelliCAD.Solid3D    
    'Code Zone
    'set Edges
    EdgeClctn.Add Library.CreatePoint(0, 0, 0)
    EdgeClctn.Add Library.CreatePoint(0, 10, 0)
    EdgeClctn.Add Library.CreatePoint(10, 10, 0)
    EdgeClctn.Add Library.CreatePoint(10, 0, 0)   

    'Draw Curves
    ReDim Edges(0 To EdgeClctn.Count - 1)
    For i = 1 To EdgeClctn.Count - 1
        Set ActLine = ActiveDocument.ModelSpace.AddLine(EdgeClctn(i), EdgeClctn(i + 1))
        Set Edges(i - 1) = ActLine
    Next i
    
    Set ActLine = ActiveDocument.ModelSpace.AddLine(EdgeClctn(i), EdgeClctn(1))
    Set Edges(i - 1) = ActLine
    
    'Draw Region
    ActiveDocument.ModelSpace.AddRegion (Edges)

    ' Add Solid
    Dim entLast As Entity
    Set entLast = ActiveDocument.ModelSpace.Item(ActiveDocument.ModelSpace.Count - 1)
    If entLast.EntityType = vicRegion Then
        Set reg = entLast
        Set solidObj = ActiveDocument.ModelSpace.AddExtrudedSolid(reg, 10, 0)
    End If
End Sub