Projet de fin d\'année VBA

[xails]

Bonjour !!

 

Je dois insérer des blocs sur autoCAD en macros VBA mais je n'y arrive pô !!

:(

Y aurait-il une bonne âme qui pourrait me donner l'algorithme pour insérer des wbloc sur AutoCAD...?? ;)

 

J'ai un projet de fin d'année et je bloque totalement dessus !!!

Merci d'avance !!

:D

[didier]

Bonjour

je te prie d'excuser le délai de réponse

mais je n'avais pas vu ton message ...

 

Proposition :

 

Sub TestInsert

Dim BlocObj As AcadBlockReference

Dim Pins (0 to 2) as Double

 

Pins(0) = 10

Pins(1) = 10

Pins(2) = 0

 

Set BlocObj = ThisDrawing.ModelSpace.InsertBlock(Pins, "NomDuBloc", 1#, 1#, 1#, 0)

BlocObj.update

end sub

 

Dans ce cas de figure, il faut que la définition du bloc : NomDuBloc

soit existante dans le dessin courant.

il y a d'autres solutions, mais teste déjà çà et reviens le cas échéant

amicalement :yltype: