Procedure Ch2_AddLine()
acadApp est un objet automation "AutoCAD.Application.18"
Si InfoObjet(acadAPP) = Null Alors
Erreur("Impossible d'initialiser l'objet AutoCAD")
Retour
Fin
acadDoc est un objet automation dynamique
acadDoc = acadApp>>ActiveDocument()
LineObj est un objet automation dynamique
startPoint est un tableau dynamique de 3 réels
endPoint est un tableau dynamique de 3 réels
startPoint[1] = 1
startPoint[2] = 1
startPoint[3] = 0
endPoint[1] = 5
endPoint[2] = 5
endPoint[3] = 0
lineObj = acadDoc>>ModelSpace>>AddLine(ConstruitVariantAutomation(startPoint), ConstruitVariantAutomation(endPoint))
//ZoomAll : cette ligne pose un probleme !!!!
acadApp>>Visible = True
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6289&post_id=24956