Routines pour le comptage des nombres polylignes

[Pepi65]

Au revoir à tous,
Quelqu'un peut m'aider à résoudre mon problème. Je voudrais trouver une macro qui me permet de "recouvrir" le nombre de polylignes dans une zone sélectionnée (cette sélection doit toujours être faite au moyen de la macro).
Je vous remercie. .

 

[Shape]

Je veux dire, voulez-vous que la macro demande une sélection de fenêtre et ensuite vous dire combien de polylignes sont contenues dans la sélection ?

seulement ceux qui ont été bien compris ou même partiellement inclus dans la sélection ?

 

[Pepi65]

Oui, c'est parfait ce que je demandais. Je vous remercie.

 

[Shape]

seulement ceux qui ont été bien compris ou même partiellement inclus dans la sélection ?

 

[Pepi65]

Désolé, seulement ceux qui ont tout compris. . . .

 

[Tristan]

Mais vous n'avez pas besoin d'une macro pour quelque chose comme ça. .. simplement utiliser une fenêtre de sélection normale et lire le nombre dans la palette de propriétés. . . .

 

[Shape]

attaché à la macro, c'est une chose très simple.

C'est la base, alors si vous voulez vous pouvez changer au goût.

sous_compte() public
dim sset comme acadselectionset
élément dim comme acadentité
dim filtertype(0) comme entier
dim filterdata(0) comme variante

suite de l'erreur
si ce n'est pas isnull(thisdrawing.selectionsets.item("element"))
définir sset = thisdrawing.selectionsets.item("element")
sset.delete
fin si

set sset = thisdrawing.selectionsets.add("element")

type de filtre(0) = 0
filterdata(0) = "lwpolyline"

sset.sectonscreen filtre type, données filtrantes

msgbox ("polilinee comprese nella selazione: " & sset.count)

fin sous

 

[Pepi65]

Merci, très aimable.