Présentation ???

[dr.loveless]

Salut à tous et Bonne année !

 

Je cherche à insérer un bloc dans une Présentation sans avoir à activer cell-ci et qui est créer depuis un code et j'y arrive po !! Et çà m'ENERVE !!!!!!!!!!

 

dim MECA as object

Set MECA = ThisDrawing.Layouts.Add("MECA") ( création dune nouvelle présentation nommée "MECA")

 

Set objCartouche = MECA.InsertBlock(PtInsert, "R:\0-DAO-Gestion\Cartouches\03-Cartouche A4-A3-direct.dwg", 1, 1, 1, 0)

 

he ben çà marche po, bouhouhouh ..........

 

Un p'tit coup de main ?? merci

 

Je précise : Je suis dans l'espace Objet et je ne veux pas rendre la présentation que j'ai crée active. Par conséquent, je veux créer une nouvelle présentation, puis y inserer un cartouche. Ensuite quand j'aurais fini mon dessin, je veux pourvoir aller dans la présentaion MECA et faire la mise en page avec la boite de dialogue qui s'affiche automatiquement quand on va dans une présentation où la config de d'impression n'a pas été choisie!

 

Bisous à tous<

 

[Edité le 10/1/2005 par dr.loveless]

[Serge]

dr.sansamour,

 

Pour les bisous, c'est peut-être une question de culture, mais je vais passer mon tour :-)

Pour le reste, il y a ceci:

 

Sub test()

Dim MECA As AcadLayout

Dim objCartouche As AcadBlockReference

Dim insertionPnt(0 To 2) As Double

 

Set MECA = ThisDrawing.Layouts.Add("MECA")

insertionPnt(0) = 0

insertionPnt(1) = 0

insertionPnt(2) = 0

Set objCartouche = MECA.Block.InsertBlock(insertionPnt, "C:\Program Files\AutoCAD xxx\SAMPLE\colorwh.dwg", 1, 1, 1, 0)

 

End Sub

 

Serge

 

[dr.loveless]

Merci, et tant pis pour le bisous, je le garde pour moi pour une prochaine utilisation