In my opinion this IntelliCAD never let me down - I can easily draw this by manual.
Feel free comment my program because 3d shapes are not showing and yes I prefer builtin editor.
JB
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?