macro pour éliminer les pièces vides

[painaz]

pour formuler la question, je fais d'abord un exemple:

niveau 0 haut (éventuellement sans géométrie)
arbre de niveau 1 (chip du haut, avec géométrie)
niveau 2 (fils d'arbre, sans géométrie)
Équipement de niveau 3 (fil d'espaceur, avec géométrie)

existe une macro qui élimine la partie vide pour obtenir

niveau 0 haut (éventuellement sans géométrie)
arbre de niveau 1 (chip du haut, avec géométrie)
vitesse de niveau 2 (fils d'arbre, sans géométrie)

utiliser un ancien 10.50

 

[painaz]

J'essaie de déplacer les eaux...

la macro devrait être ce

 

[painaz]

J'essaie de déplacer les eaux...

la macro devrait être comme ceci:

définir propre
local x
partie locale
list_partes locales
pb_ltab_update
list_parti 'pbt_ltab '
x 1
boucle
(x+1)
Exit_if (x>(ltab_rows list_parti))
laisser la partie (read_ltab list_parts x 2)
éditer _partie
indice
ang_b_sx (inq 101)
(inq 102)
si (pbsx=padx)
éditer _partie
_sous-partie
♪
end_loop
fin
fin
Display fait! '
fin

la macro fonctionne correctement en défilant toutes les parties de la liste des éléments.
J'utilise le pbt_ltab qui est fait comme ceci:

exemple de type de données de description de colonne
1 la chaîne de nom de partie (utilisateur) "top"
2 la chaîne séparée unique "~1"
3 chaîne d'id de partie partagée "#3"
Chaîne d'échelle 4 parties "1:1"
5 nombre de lignes de la partie dans le numéro de navigateur partiel 0 (la première ligne commence à 0)
6 icône pour une chaîne de parttree effondrée "

(voir: http://me10macro.awardspace.com/tipstricks.html )

comprendre si une partie est vide comparer son point supérieur à la droite et le bas à la gauche

inq_env 7 (inq 101) bas à sx

inq_env 7 (inq 101) haut à dx

C'est le meilleur que j'ai trouvé. mais ça ne marche pas, j'imagine pourquoi si la géométrie est réellement vide, quels points de comparaison ?

Des suggestions ?

Y a-t-il encore un pio "gourou" de moi10 qui me donne le bon pourboire ?

 

[painaz]

Le bingo !

même si le forum semble vide, je le mets, quelqu'un pourrait toujours servir:

définir propre
local x
partie locale
list_partes locales
pb_ltab_update
list_parti 'pbt_ltab '
x 1
boucle
(x+1)
Exit_if (x>(ltab_rows list_parti))
laisser la partie (read_ltab list_parts x 2)
éditer _partie
inq_selected_elem sélectionner geo all confirmation
Si (po 14)=0)
éditer _partie
_sous-partie
♪
end_loop
fin
fin
Display fait! '
fin