macro catia pour inserer une image

[Invité segolsed]

bonjour tout le monde,

je suis nouveau dans le VB

je cherche çà inserer une image (.jpeg) dans catia via une macro.

l'image se trouve dans un fichier et doit etre inserer sur un calque.

 

Pour l'instant, j'en suis là :

 

'-------------------------------------------------------------------------------

'Insertion des outils de coupe dans le calque courant

'-------------------------------------------------------------------------------

 

Public Sub Outilsdecoupe() 'Insère le dessin de l'outil choisi

 

Select Case Outil 'Outil à pointer

Case 1

LoadPicture ("D:\_METHODES\CATIA\Documents de fabrication CATVBSCRIPT\outils contrat de phase\foretpointer.gif")

 

' Retour sur le calque courant

drawingSheet1.Activate

Set DrwView = drawingSheet1.Views.ActiveView

' Insertion à l'endroit pointé

Dim drawingPictures1 As DrawingPictures

Set drawingPictures1 = drawingView1.Item("D:\_METHODES\CATIA\Documents de fabrication CATVBSCRIPT\outils contrat de phase\foretpointer.gif", SourisX, SourisY)

 

CATIA.ActiveDocument.Selection.Add drawingPicture1

 

End Select

End Sub

 

 

Explications : si l'on coche le choix 1 (case 1) alors on va chercher et inserer le fichier entre "". Tout ce passe à peu prés bien mais l'image n'apparait pas.

 

Merci d'avance