Supprimer un objet créé par un lisp

[Fruity]

Bonjour

J'ai récupéré un lisp bien pratique, cependant, j'aimerai le compléter.

(defun c:cut ( / p cir)
(command "_circle" (setq p (getpoint)) 50)
(setq cir (entlast))
(command "_trim" (entlast) "" p ""))

 

Ca crée un cercle de diamètre 50 et coupe ce qui se trouve dedans. Pratique pour les lignes qui se croisent, ca en coupe une des 2.

Cependant, le cercle reste présent à la fin de la commande.

En le placant sur un calque spécifique, on peut facilement les supprimer, mais ca aurait été bien que le lisp les supprime tout seul.

Quelqu'un a une idée? Car mes connaissances en lips sont pour ainsi dire nulles.

 

Merci.

[Tramber]

Ajoute

(command "_erase" (entlast) "")

;)

 

D'ailleurs tu peux supprimer la ligne et la référence à cir

[Olivier Eckmann]

Bonjour,

 

sans tester, j'aurais plutôt ajouté la ligne

(entdel cir)

 

car si la commande TRIM découpe une entité (polyligne) en 2 est-ce que le nouveau (entlast) ne risque pas de pointer vers le second morceau plutôt que sur le cercle?

 

Olivier

[Tramber]

Je me suis demandé et aurais voulu tester. Mais c'est vrai qu'il fallait garder cir au contraire et l'utiliser toujours à la place de (entlast). La dernière entité ne sera plus le cercle.

[Fruity]

Ca ne marche pas... :/

Si j'essaie de comprendre le lisp, avec setq, on nomme le cercle "cir".

Entlast, je ne vois pas trop ce que ca fait, ca sélectionne le dernier objet créé?

Si oui je comprend la ligne que tu as a rajoutée.

Mais ca n'explique pas pkoi ca ne donne rien.

[Olivier Eckmann]

je viens de tester avec ce code et ca fonctionne

 

(defun c:cut ( / p cir)
 (command "_circle" (setq p (getpoint)) 50)
 (setq cir (entlast))
 (command "_trim" cir "" p "")
 (entdel cir)
)

 

[Fruity]

En effet ca fonctionne.

J'avais oublié une parenthèse et mis cir entre parenthèse.

 

Merci a tous :)

[didier]

Coucou

 

Dans ce cas ça fonctionne car "cir" est déclaré dans la routine

Puisque cette variable est déclarée locale et si tu ne l'effaces pas DANS la routine

Elle disparaît de la mémoire à la sortie de la routine

Donc si dans un autre programme tu voulais effacer "cir" ce n'est plus possible

Du moins en l'appelant par son nom de variable puisqu'elle a disparu

 

Je ne sais pas si je suis bien clair dans ces explications bien que je le souhaite ardemment

Tu me le dirais hein ? si c'est pas clair...

 

Amicalement

[Fruity]

Je remonte le sujet car j'ai une nouvelle question:

Comment faire poser la question du diamètre du cercle?

Parce que la, je change le lisp à chaque fois pour m'adapter selon le dessin, c'est un peu relou...

 

Merci

[(gile)]

(defun c:cut ( / p cir)
 (command "_circle" (setq p (getpoint)) pause)
 (setq cir (entlast))
 (command "_trim" cir "" p "")
 (entdel cir)
)

[Fruity]

Ha c'est aussi simple que ca...

Merci :)