CAD Software Forum

Code: Select all

    Dim myDoc As IntelliCAD.Document
    Dim pt As IntelliCAD.Point
    Dim t As IntelliCAD.Text
    Dim s As IntelliCAD.Solid3D
    Dim c As Integer
    
    Set myDoc = ActiveDocument
    Set pt = Library.CreatePoint(100, 200, 0)
        
    For i = 1 To 10
        pt.y = pt.y + 125
        Set t = myDoc.ModelSpace.AddText("Hello World!", pt, 100)
        t.color.SetRGB i * 10, i * 15, i * 20
        pt.x = pt.x - 100
        
        ' How to show box?
                
        Set s = myDoc.ModelSpace.AddBox(pt, 100, 100, 100)
        s.color.SetRGB i * 10, i * 15, i * 20
        pt.x = pt.x + 100
        
    Next i
    
    ' How to clear drawing?
    ' How to show all of drawing?
    ' How to change perspective and view?
    ' How to close form?
    

Code: Select all

Public Sub AddBoxEx()
    Dim myDoc As IntelliCAD.Document
    Dim pt As IntelliCAD.Point
    Dim t As IntelliCAD.text
    Dim s As IntelliCAD.Solid3D
    Dim c As Integer
    
    Set myDoc = ActiveDocument
    Set pt = Library.CreatePoint(100, 200, 0)
        
    For i = 1 To 10
        pt.y = pt.y + 125
        Set t = myDoc.ModelSpace.AddText("Hello World!", pt, 100)
        t.color.SetRGB i * 10, i * 15, i * 20
        pt.x = pt.x - 100
        
        ' How to show box?
        Set s = myDoc.ModelSpace.AddBox(pt, 100, 100, 100)
        s.color.SetRGB i * 10, i * 15, i * 20
        pt.x = pt.x + 100
        
    Next i
    
    ' zoom
    IntelliCAD.ActiveDocument.Application.ZoomExtents
    
End Sub

Code: Select all

Public Sub EraseAllText()
    Dim ent As Entity
    For Each ent In IntelliCAD.ActiveDocument.ModelSpace
        If ent.EntityName = "Text" Then ent.Delete
    Next    
End Sub

Code: Select all

Public Sub clearDrawing()
    Dim ent As Entity
    With IntelliCAD.ActiveDocument
        If .ModelSpace.Count <> 0 Then
            For Each ent In .ModelSpace
                 ent.Delete
            Next
        End If
    End With
End Sub