Visibilité du bloc en VBA

[pixel61]

Bonjour à tous

 

J'ai fait une bibliothèque de symboles en vba, mai je bloque sur un problème, j'ai un peu tout essaie mais rien a faire.

Au fait c'est sur une partie du code qui concerne l'insertion du bloc, code que j'ai trouvé sur le forum (merci formula1) et c'est ceci.

 

Private Sub CmdOut100_Click()

Dim BlocObj As AcadBlockReference

Dim pins As Variant

 

FrmOutils.Hide

 

pins = ThisDrawing.Utility.GetPoint(, "Veuillez choisir un point : ")

 

Set BlocObj = ThisDrawing.ModelSpace.InsertBlock(pins, "OUTILS100.dwg", 1#, 1#, 1#, 0)

BlocObj.Update

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

BlocObj.Explode

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

BlocObj.Delete

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

Unload FrmOutils

End Sub

 

Le code fonctionne très bien, mais je ne comprend pas pourquoi le bloc n'est pas visible lors de l'insertion

 

merci pour voter aide

A+

 

[pixel61]

Bonjour à tous

 

Je m'excuse de remettre ce post à l'ordre du jour, mais, comme je n'ai eu aucune réponse je me permets de relancer la chose.

(Esque je me suis mal exprimé dans le post précédent ou alors ce n'est pas possible ? )

 

Private Sub CmdOut100_Click()

Dim BlocObj As AcadBlockReference

Dim pins As Variant

 

FrmOutils.Hide

 

pins = ThisDrawing.Utility.GetPoint(, "Veuillez choisir un point : ")

 

Set BlocObj = ThisDrawing.ModelSpace.InsertBlock(pins, "OUTILS100", 1#, 1#, 1#, 0)

 

Unload FrmOutils

End Sub

Ce code mis dans une userform ça marche très bien, j'arrive à insérer un bloc, la seule chose gênante s'est que lorsqu’on clique

sur le bouton pour insérer il demande bien le point d'insertion mais le bloc il est invisible sur le pointeur.

Alors esque il y a une variable ou je ne sais pas quoi pour que le bloc accroché au pointeur soit visible pendant l'insertion ?

 

J'aimerais savoir si la visibilité du bloc sur le pointeur est possible ou pas

 

Encore merci beaucoup pour votre aide

A+