Début

[dfbiagio]

Bonsoir à tous,

je voudrai me mettre au vba. J'ai déjà fait du VB. Ce que je voudrai pour commencer c'est de savoiir, par exemple, comment on fait pour saisir 2 points à l'écran. Car tous les exemples que je rencontre on saisit les points dans la boite de dialogue. Je pense que ça ne doit pas être trop difficile. Si quelqu'un peut m'écrire le code je lui serai très reconnaissant.

D'avance merci

[mdsv31]

Vue sur ce site:

 

Dim insPoint as Variant

 

insPoint = gobjDocument.Utility.Getpoint(, "Saisir Point:")

 

Merci a Labletech

 

@+

 

MDSV31

[didier]

hello

fais gaffe quand même à la déclaration de tes Variables

utiliser avec parcimonie le type Variant

plus tu es précis dans tes déclarations,

mieux ça marchera

 

je vous laisse réfléchir là dessus

 

amicalement

[mdsv31]

Pour la declaration de la variable d'un point que faut-il mieux utiliser ?

 

VARIANT ou autre

 

@+

 

MDSV31

[dfbiagio]

Merci mdsv31,

mais quand j'essaye ton code il m'indique une erreur "invalid outside procedure" ??

 

a+

 

[mdsv31]

Autant pour moi avec ce qui suit ca devrai mieux marche

 

Dim insPoint as variant

 

insPoint = ThisDrawing.Utility.GetPoint(, "Entrer le point: ")

 

@+

 

MDSV31

[didier]

hello

 

je salue tous les aventuriers qui se lancent dans le VBA,

je vous file un exemple pour débuter,

au sujet de la déclaration des variables,

lorsque les points sont sélectionnés à l'écran,

je déclare des VARIANT

ne sachant pas ce que je vais trouver,

lisez ceci et testez :

Sub ExempleChoixDeuxPoints()

Dim PointDepart As Variant

Dim PointArrivee As Variant

Dim ObjLigne As AcadLine

 

PointDepart = ThisDrawing.Utility.GetPoint(, "Point de Départ ?")

PointArrivee = ThisDrawing.Utility.GetPoint(PointDepart, "et jusqu'à où elle ira cette ligne ?")

Set ObjLigne = ThisDrawing.ModelSpace.AddLine(PointDepart, PointArrivee)

End Sub

 

et maintenant, tu l'as toujours ton message d'erreur ?

 

amicalement

 

édité pour corriger l'erreur signalée,

désolé, mais je tape vite et pourtant je me relis ...

comme quoi, revérifier n'est pas inutile,

surtout dans le code lisp ou vba.

désolé de la coquille.

 

 

 

[Edité le 11/12/2004 par didier]

[mdsv31]

Petite question DIDIER

 

tu declare ObjLigne comme un objet AcadLine

 

La pas de probleme

 

Mais tu ecris plus bas

 

Set lineObj = ThisDrawing.ModelSpace.AddLine(PointDepart, PointArrivee)

 

je ne comprend pas voulais-tu ecrire

 

Set ObjLigne = ThisDrawing.ModelSpace.AddLine(PointDepart, PointArrivee)

 

sinon a quoi ca sert de declarer ObjLigne

 

@+

 

MDSV31

[dfbiagio]

Bonjour à tous,

d'abord merci de votre aide.

J'aimerai ssavoir aussi comment fait-on pour lorsque j'ai une boîte de dialogue pour la faire disparaître pour saisir soit un point soit un objet et ensuite lorsque la sélection a été faite faire revenir cette même boîte de dialogue.

 

merci et A+

[mdsv31]

Pour le moment je n'ai pas de reponse pour toi mais je cherche aussi car cette fonction m'interese :(

 

Le premier qui trouve explique la methode a l'autre

 

@+

 

MDSV31

[mdsv31]

Je crois que j'ai trouver ton bonheur dans l'aide d'autocad

 

 

Hide, méthode, exemple

Nous supposons dans l'exemple suivant qu'un programme comporte deux objets UserForm. Dans l'événement Initialize de l'objet UserForm1, l'objet UserForm2 est chargé et affiché. Lorsque l'utilisateur clique sur l'objet UserForm2, celui-ci est masqué et l'objet UserForm1 apparaît. Si l'utilisateur clique sur l'objet UserForm1, l'objet UserForm2 est réaffiché.

 

' Procédure d'événement Initialize pour UserForm1

Private Sub UserForm_Initialize()

Load UserForm2

UserForm2.Show

End Sub

' Événement Click pour UserForm2

Private Sub UserForm_Click()

UserForm2.Hide

End Sub

 

' Événement Click pour UserForm1

Private Sub UserForm_Click()

UserForm2.Show

End Sub

 

@+

 

MDSV31