Visibilité bloc sur pointeur

[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+

 

[rom1_am]

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 

[pixel61]

Bonjour

 

:) Merci beaucoup rom1_am j'ai testé et ça marche très bien