Diviser et mesurer...

[Tramber]

.... sont-elles des commandes LISP :question:

 

Je cherche à récupérer les points dans un jeu de sélection et ca sera peut-être + facile en connaissant un peu plus ces commandes.

 

L'idée et de faire un changement de calque avant la commande

pour faire la récupération mais ca ne me satisfait pas totalement.

 

Si vous avez des idées...

[didier]

hello

qu'est ce que tu veux faire, tu vas pas t'y mettre dans le flou ?

si tu veux récupérer le jeu d'entités après que avoir lancé la commande "mesurer"

fais comme didier

avant de lancer la commande

(setq derent (entlast))

après avoir lanc" la commande "diviser" ou "mesurer"

(setq ent(entlast))

(while ( / = ent derent)

;et là tu fais ta sauce

(entdel (entlast))

(setq ent(entlast))

);fin du while

t'as pigé ?

parce que là; moi je suis fumé,

c'était apéro ce soir, et il est l'heure de se coucher

ciao.........................

 

 

 

[Tramber]

Valeureux Didier, être géomêtre n'est pas de tout repos ;)

 

Ton truc à l'air très sympa, je vais regarder ca attentivement.

Cette solution est d'enfer,

 

(setq derent (entlast)) permet de créer une sélection virtuelle qui marque la limite de début, c'est génial.

[didier]

hello Tramber

j'apprécie lorsque tu emploies des adjectifs "à propos"

génial, me convient

mais si le con vient l'Eugénie n'est pas loin

ouh lala, c'est hard d'écrire sous l'emprise du sieur "ballentine's"

je regrette déjà

Hammi qu'à le Mans

 

[Tramber]

Santé, et pas de conduite sur route.

 

(Pssss: moi aussi j'ai pris un apéro aujourd'hui, il a fait soleil, le chantier a fété la fin de la semaine, c'est bien le BTP, quand même !)

[didier]

je te laisse réfléchir là dessus :

BOIRE OU CONDUIRE

IL FAUT CHOISIR

MAIS POURQUOI ?

PUISQU'ON PEUT

FUMER ET PLANER

c'est avis m'est personnel

et n'engage en rien le WebMaster de CadXp :o

adieu !

[Tramber]

En effet, il est temps que tu ailles te coucher......

 

Merci pour le truc. Ca marche terrible (j'ai supprimé l'espace entre / et =, bien sur).

[Tramber]

Rectificatif, ca marche pas si bien

Mais une mise au point n'est jamais malvenue

 

(setvar "PDMODE" 3)

(setq poly (entget(setq selpoly(car(nentsel)))))
(command "liste" selpoly "")
(setq longueurtempo (getvar "perimeter"))
(setq listept nil)

(setq derent (entlast))

(command "DIVISER" derent 5)	

(setq ent(entlast))
(while (not(equal ent derent))
;et là tu fais ta sauce
 (entdel (entlast))
(setq ent (entlast))
 (setq listept (append listept (cdr (assoc 10 (entget ent)))))
);fin du while

 

Ben ouais, j'ai remplacé "/=" par "(not(equal...))

Qui pourrait m'expliquer pourquoi "/=" n'arrive pas à comparer ent et derent ? qui, au bout d'un moment, après l'effacement de tous les points, sont identiques en nom ?

 

[Maximilien]

= et / = ne sait ni comparé les liste ni les entités justes les nombres(entiers rééls), les chaines de caractères, les booléens (True/False)

 

[Edité le 26/3/2005 par Maximilien]