Insertion de blocs grâce à vb

[timhothels]

Bonjour,

 

j'aimerais savoir comment on peut insérer et déplacer des blocs à des endroits bien précis grâce à vba.

 

 

merci[Edité le 29/3/2005 par timhothels]

 

[Edité le 29/3/2005 par timhothels]

[timhothels]

Probleme résolu

[timhothels]

Voici le code au cas ou:

 

 

'*******************************************

'FONCTION POUR INSERER UN BLOC DANS AUTOCAD*

'*******************************************

Public Sub InsererBloc(Nom_Bloc As String, x As Double, y As Double, echelleX As Double, echelleY As Double)

Dim objdoc As AcadDocument

Dim objBlockRef As AcadBlockReference

Dim objUtil As AcadUtility

Dim Point As Variant

Dim insertionPnt(0 To 2) As Double

 

Set objdoc = Feuille

Set objUtil = objdoc.Utility

 

insertionPnt(0) = x: insertionPnt(1) = y: insertionPnt(2) = 0#

 

If Feuille.ActiveSpace = acModelSpace Then

Set objBlockRef = Feuille.ModelSpace.InsertBlock(insertionPnt, Nom_Bloc, echelleX, echelleY, 1#, 0#)

Else

Set objBlockRef = Feuille.PaperSpace.InsertBlock(insertionPnt, Nom_Bloc, echelleX, echelleY, 1, 0)

End If

'on explose les blocs pour que le texte des cotations soient de meme taille

objBlockRef.Explode

'il faut l'effacer car sinon on a 2 blocs superposés

objBlockRef.delete

objAcad.Update

End Sub