Image en vb
zeusdu95
Messages postés
5
Date d'inscription
samedi 1 décembre 2007
Statut
Membre
Dernière intervention
14 août 2009
-
1 déc. 2007 à 16:20
zeusdu95 Messages postés 5 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 14 août 2009 - 1 déc. 2007 à 19:57
zeusdu95 Messages postés 5 Date d'inscription samedi 1 décembre 2007 Statut Membre Dernière intervention 14 août 2009 - 1 déc. 2007 à 19:57
2 réponses
newvbfan
Messages postés
4
Date d'inscription
jeudi 29 novembre 2007
Statut
Membre
Dernière intervention
1 décembre 2007
1 déc. 2007 à 18:29
1 déc. 2007 à 18:29
voici un pg j espere ke ca t aidera
pour ca marche n oubli pa d declarer les variables bncourage
If ThisDrawing.SelectionSets.Count < 1 Then
Set ZoneChoix = ThisDrawing.SelectionSets.Add("jeu")
Else
Set ZoneChoix = ThisDrawing.SelectionSets.Item("jeu")
End If
ZoneChoix.Clear
ZoneChoix.SelectOnScreen
If ZoneChoix.Count < 1 Then
Set toto = ThisDrawing.ModelSpace
Else
Set toto = ZoneChoix
End If
Userform1.ListBox1.Clear
For Each ACADobj In toto
With ACADobj
If StrComp(.EntityName, "AcDbBlockReference", 1) = 0 Then
If .HasAttributes Then
If Userform1.ListBox1.ListCount < 1 Then
Userform1.ListBox1.AddItem (ACADobj.Name)
Else
For I = 1 To Userform1.ListBox1.ListCount
If Userform1.ListBox1.List(I - 1) = ACADobj.Name Then GoTo _ remplissage
Next I
Userform1.ListBox1.AddItem (ACADobj.Name)
End If
remplissage:
End If
End If
End With
Next ACADobj
If Userform1.ListBox1.ListCount < 1 Then
message = MsgBox("Le dessin est vide.", vbExclamation)
Exit Sub
End If
pour ca marche n oubli pa d declarer les variables bncourage
If ThisDrawing.SelectionSets.Count < 1 Then
Set ZoneChoix = ThisDrawing.SelectionSets.Add("jeu")
Else
Set ZoneChoix = ThisDrawing.SelectionSets.Item("jeu")
End If
ZoneChoix.Clear
ZoneChoix.SelectOnScreen
If ZoneChoix.Count < 1 Then
Set toto = ThisDrawing.ModelSpace
Else
Set toto = ZoneChoix
End If
Userform1.ListBox1.Clear
For Each ACADobj In toto
With ACADobj
If StrComp(.EntityName, "AcDbBlockReference", 1) = 0 Then
If .HasAttributes Then
If Userform1.ListBox1.ListCount < 1 Then
Userform1.ListBox1.AddItem (ACADobj.Name)
Else
For I = 1 To Userform1.ListBox1.ListCount
If Userform1.ListBox1.List(I - 1) = ACADobj.Name Then GoTo _ remplissage
Next I
Userform1.ListBox1.AddItem (ACADobj.Name)
End If
remplissage:
End If
End If
End With
Next ACADobj
If Userform1.ListBox1.ListCount < 1 Then
message = MsgBox("Le dessin est vide.", vbExclamation)
Exit Sub
End If
zeusdu95
Messages postés
5
Date d'inscription
samedi 1 décembre 2007
Statut
Membre
Dernière intervention
14 août 2009
1 déc. 2007 à 19:57
1 déc. 2007 à 19:57
Merci pour cette reponse mais ne connaissant pas grand chose au vb pour l'istant a part les boucles .....
Donc je voudrais savoir si tu pouvais m'expliquer un peu plus les differentes parties afin de mieux en comprendre le sens et l'adapter à mon probleme
Merci d'avance
Donc je voudrais savoir si tu pouvais m'expliquer un peu plus les differentes parties afin de mieux en comprendre le sens et l'adapter à mon probleme
Merci d'avance
