WDForge.org - Forums

Re: Autocad electrical

Sujet: Re: Autocad electrical
par drcharly93 sur 6/10/2009 13:03:35

A la volée

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

pour les tableaux dynamiques en WLangage l'indice commence à 1 mais l'envoi de ces tableaux aux objets activeX sont automatiquement regénéré avec un indice commencant à 0

ce code est écrit à la volée sans pouvoir le tester.
ZoomAll pose un problème car cela n'est pas pas à ma connaissance une instruction VB et n'est ici attaché a aucun objet!