Sub GstarCAD()

' GstarCAD France www.gscad.fr
' Michel FAUCONNET Cette adresse e-mail est protégée contre les robots spammeurs. Vous devez activer le JavaScript pour la visualiser.

Dim oCAD As Object
Set oGcad = CreateObject("Gcad.Application")

'Set oGcad = CreateObject("GcadVba.GcadApplication.20") && commande pour GstarCAD 2020 SP1

oGcad.Application.Visible = True

' example to send a command to GstarCAD : (Alert "Hello/Bonjour")
' exemple pour envoyer une commande à GstarCAD : (Alert "Hello/Bonjour")

cCmd = "(alert " + Chr(34) + "Hello/Bonjour" + Chr(34) + ")"

oGcad.ActiveDocument.SendCommand (cCmd + Chr(13))

End Sub