Aller au contenu

Visibilité bloc sur pointeur


pixel61

Messages recommandés

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+

 

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

Il me semble que ce n'est pas possible en passant par la commande "InsertBlock".

Par contre, si tu connais à l'avance l'échelle d'insertion et la rotation du bloc, tu peux utiliser "SendCommand -Inserer" de la façon suivante:

 

Sub test_bloc()
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)

ThisDrawing.SendCommand "-INSERER OUTILS100" & vbCr & "Echelle" & vbCr & Replace(CStr(1), ",", ".") & vbCr & "Rotation" & vbCr & "0" & vbCr

'Unload FrmOutils
End Sub 

_______________________________

R.A.

Développeur AutoCAD C#.net

www.danialu.fr

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité