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

[Invité maguiz]

petite précision la methode marche mais quand je l'appel depuis un bouton dans une userform il m'envoi ce message d'erreur "fenetre principal d'autocad invisible" si quelqu'un peut m'aider merci d'avance

[rom1_am]

Bonjour,

 

Ce message d'erreur ne me dit rien mais est-ce que tu décharges le userform avant d'appeler ta procédure? A mon avis, il faut que tu utilises 'Unload Me' afin de décharger le userform avant d'appeler ta procédure ou alors que tu charges ton userform en mode non modal (show(vbmodeless)).

[Invité maguiz]

salut merci de ta réponse mais ça n'a pas l'air d'être ça

je lance la macro depuis autocad, ma userform apparait ensuite j'ai différente méthode se servant de commandbutton et quelque soit les procédure utilisé dans les boutons aucune ne marche, à chaque fois le même message d'erreur, quand je test juste la procédure sans la userform ça marche voila si ça peut aider à comprendre

merci d'avance

[PhilBat]

Bonjour,

moi j'utilise la procédure suivante:

il faut faire disparaitre la fenetre le temps de sélectionner le point

avec la commande " nom de ta fenetre.Hide"

ensuite sélection du point avec 'getpoint'

et on reaffiche la fenetre avec la commande " nom de ta fenetre.Show"

à la fin

Salutations

 

[Invité maguiz]

merci la solution marche

idée simple mais très efficace j'adore

http://www.cadxp.com/modules/XForum/images/smilies/smile.gif