Covadis - Applicatif Topographie / VRD d'Autocad

Forum - Communauté - Entraide
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 Sélection par attributs

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Rob
Admin
Admin


Nombre de messages : 253
Age : 36
Localisation : Belgique
Emploi : Ingénieur Géomètre Expert
Date d'inscription : 09/12/2006

MessageSujet: Sélection par attributs   Lun 19 Nov - 13:08

bonjour à tous,

quelqu'un connait une solution pour sélectionner des points covadis (bloc point) à par attribut ?

Exemple : sélectionner tous les points avec COD < 50

Ne me demandez pas pourquoi lol! mais ça me serait très utile...

Via un petit script autolisp ?

Merci pour votre aide Smile

_________________
Autocad MAP 2007 SP3 + Covadis 9.1g
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://covadis.forumpro.fr
titai07
Utilisateur confirmé
Utilisateur confirmé


Nombre de messages : 936
Age : 48
Localisation : Rhones Alpes,mais surtout un peu partout
Emploi : Formateur
Date d'inscription : 01/01/2007

MessageSujet: Re: Sélection par attributs   Lun 19 Nov - 13:51

Oui,

cov edition /points topographiques/selection par matricules

tu rentre le premier numéro le signe moins le dernier numéro et ENTER

exemple 1-50

pour récupérer cette selection dans une autre commande

tapes P (pour précédent) et ENTER
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rob
Admin
Admin


Nombre de messages : 253
Age : 36
Localisation : Belgique
Emploi : Ingénieur Géomètre Expert
Date d'inscription : 09/12/2006

MessageSujet: Re: Sélection par attributs   Lun 19 Nov - 13:55

titai07 a écrit:
Oui,

cov edition /points topographiques/selection par matricules

tu rentre le premier numéro le signe moins le dernier numéro et ENTER

exemple 1-50

pour récupérer cette selection dans une autre commande

tapes P (pour précédent) et ENTER

ça je connais merci,
Par attribut pas par matricules lol!

Mal réveillé sans doute Very Happy

_________________
Autocad MAP 2007 SP3 + Covadis 9.1g
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://covadis.forumpro.fr
titai07
Utilisateur confirmé
Utilisateur confirmé


Nombre de messages : 936
Age : 48
Localisation : Rhones Alpes,mais surtout un peu partout
Emploi : Formateur
Date d'inscription : 01/01/2007

MessageSujet: Re: Sélection par attributs   Lun 19 Nov - 13:57

à oui mais cela ne marche pas sur les codes....

tapé trops vite...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rob
Admin
Admin


Nombre de messages : 253
Age : 36
Localisation : Belgique
Emploi : Ingénieur Géomètre Expert
Date d'inscription : 09/12/2006

MessageSujet: Re: Sélection par attributs   Lun 19 Nov - 14:51

titai07 a écrit:
à oui mais cela ne marche pas sur les codes....

tapé trops vite...

merci quand même ! cheers

_________________
Autocad MAP 2007 SP3 + Covadis 9.1g
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://covadis.forumpro.fr
Rob
Admin
Admin


Nombre de messages : 253
Age : 36
Localisation : Belgique
Emploi : Ingénieur Géomètre Expert
Date d'inscription : 09/12/2006

MessageSujet: Re: Sélection par attributs   Mar 20 Nov - 0:03

OK... résolu... je me suis fais une petit application VBA Wink

à bientôt !

_________________
Autocad MAP 2007 SP3 + Covadis 9.1g
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://covadis.forumpro.fr
squelet
Membre d'honneur
Membre d'honneur


Nombre de messages : 228
Age : 47
Localisation : Valmorel La Belle (Savoie-73)
Date d'inscription : 17/12/2006

MessageSujet: Re: Sélection par attributs   Mar 20 Nov - 1:50

Rob a écrit:
Je me suis fais une petit application VBA Wink
Tu pourrais peut-être nous en faire profiter ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Rob
Admin
Admin


Nombre de messages : 253
Age : 36
Localisation : Belgique
Emploi : Ingénieur Géomètre Expert
Date d'inscription : 09/12/2006

MessageSujet: Re: Sélection par attributs   Ven 23 Nov - 22:36

biensûr ! je vais vous montrer cela dès que j'ai le temps Smile

_________________
Autocad MAP 2007 SP3 + Covadis 9.1g
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://covadis.forumpro.fr
Rob
Admin
Admin


Nombre de messages : 253
Age : 36
Localisation : Belgique
Emploi : Ingénieur Géomètre Expert
Date d'inscription : 09/12/2006

MessageSujet: Re: Sélection par attributs   Lun 26 Nov - 17:55

Code:
Public Sub FiltrePts()
  Dim I, j As Integer
  Dim Entity As AcadEntity
  Dim BlocRef As AcadBlockReference
  Dim Attributes As Variant
  Dim S As String
  Dim BaSelect As AcadSelectionSet
 

 
                             
    ' Creation du jeu de selection
    Set BaSelect = ThisDrawing.SelectionSets.Add("hgf44522221221545545dghf")
   
    'Selection des entites
    Call BaSelect.SelectOnScreen

    ' Introduction de la valeur limite
    limite = CDbl(InputBox("Valeur ?"))
 
  ' Creation du calque
    ThisDrawing.Layers.Add ("Points filtrés " & CStr(limite))
   
  ' On parcourt tous les objets de l'espace objet
    For I = 0 To BaSelect.Count - 1
    Set Entity = BaSelect.Item(I)
   
    ' Si l'objet est une insertion de bloc
    If Entity.ObjectName = "AcDbBlockReference" Then
      ' On précise le type de l'objet pour pouvoir accéder à ses propriétés et
      ' ses méthodes spécifiques
      Set BlocRef = Entity
     
     
      ' Si il a des attributs
      If BlocRef.HasAttributes Then
       
        ' On les récupére
        Attributes = BlocRef.GetAttributes
       
        If UBound(Attributes) = 2 Then
       
            If CDbl(Attributes(2).TextString) < limite Then
               
                BlocRef.Layer = "Points filtrés " & CStr(limite)
               
            End If
               
        End If
               
      End If
     
    End If
  Next
 
BaSelect.Delete
End Sub



Ceci est un programme qui demande de faire une sélection, puis demande une valeur max et déplace vers un calque tous les points dont l'attribut code est inférieur à cette valeur.

Ca peut servir de base à d'autres manipulations !

++

_________________
Autocad MAP 2007 SP3 + Covadis 9.1g
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://covadis.forumpro.fr
Contenu sponsorisé




MessageSujet: Re: Sélection par attributs   Aujourd'hui à 13:12

Revenir en haut Aller en bas
 
Sélection par attributs
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Sélection des émoticônes impossible
» comment conserver les attributs d'un texte copié dans un message
» Comment faire une sélection multiple
» [Fermé] malwarebytes
» [Résolu] Texte impossible dans Outlook Express

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Covadis - Applicatif Topographie / VRD d'Autocad :: Covadis - Applicatif VRD d'Autocad :: Discussion générale-
Sauter vers:  
Créer un forum | © phpBB | Forum gratuit d'entraide | Signaler un abus | Forum gratuit