inserer un bloc autocad en vba

[Invité maguiz]

bonjour j'ai un petit problème concernant mon code

 

il s'agit d'un bouton dans une userform qui reprend ce programme

 

j'ai un message d'erreur "fenêtre d'autocad invisible" et je n'ai pas trouvé de solution dans les autres articles

si quelqu'un pouvais me dire le problème ça m'aiderai beaucoup

 

 

Public Sub inser_grue()

 

Dim objBlockRef As AcadBlockReference

Dim objBlock As AcadBlock

Dim vPointInsert As Variant

 

vPointInsert = ThisDrawing.Utility.GetPoint(, "ENTRER LE POINT D'INSERTION")

Set objBlockRef = ThisDrawing.ModelSpace.InsertBlock(vPointInsert, "238-67.5-dessus", 1#, 1#, 1#, 0)

objBlockRef.Update

objBlockRef.Visible = True

 

End Sub

 

le probleme se situ au niveau du getpoint()

 

merci