LISP pour effacer les cotations d'un plan

[autospeed]

Bonjour ,

Jusqu'ici pour effacer les cotations d'un plan , je passe par les filtres , objet cote pour les sélectionner. Ceci dit quand on doit effacer la cotation sur 50 plans ça devient vite lassant !

Je recherche donc une petite routine , soit en lisp , soit en script qui permet d'effacer la cotation.

J'en ai une pour la cotation qui se trouve à l'intérieur de blocs mais il me manque celle qui efface les cotations qui ne sont pas dans des blocs.

Est ce que quelqu'un a ça dans ses outils lisp ?

Merci et bonne journée à tous

Phil www.kheops.biz

[Big666]

Bonjour

je ne répond pas à ton problème.

mais en cliquant sur le lien autospeed , je vois que en achetant ce livre une licence est donnée.

donc autospeed vaux 20 €.

de plus si tu est utilisateur , quand pense tu ?

merci

 

50 plans à traitée ressemble à un traitement pas lot.

super auto script ?

et trouver le script qui va avec

[autospeed]

Oui Autospeed vaut 20 euro et je m'en sers depuis plus de 6 ans maintenant. Ca fonctionne bien sur toutes les versions d'Autocad jusqu'à la 2012 , je n'ai pas testé la 2013.

Si tu veux lire le mode d'emploi et toutes les fonctions que ça rajoute à autocad , je peux t'envoyer le pdf.

Ce truc la a été développé par un lispeur qui a pris sa retraite donc il n'y aura pas d'évolution future .. sauf si quelqu'un ici reprend le flambeau pour l'adapter si besoin aux nouvelles versions d'Autocad.

[didier]

Coucou

 

je ne comprends pas tout sur "l'auteur" du logiciel et un lispeur à la retraite, et en plus je m'en fiche..

par contre je veux bien apporter une piste de recherche, ces quelques lignes tapées à la va-vite font ce qu est demandé.

 

 

 

(setq jeusel (ssget "x"
       (list (cons 0 "DIMENSION"))
       )
     )
(command "_erase" jeusel "")

(alert (strcat (itoa (sslength jeusel)) " cotes ont été supprimées."))

 

amicalement

 

[Big666]

OK pour le PDF

pat Wetransfer par exemple

je t'en remercie par avance

[autospeed]

OK pour le PDF

pat Wetransfer par exemple

je t'en remercie par avance

 

Ecris moi plutôt à lheureux@free.fr

et pour la personne qui a posté le lisp pour effacer les cotations , super merci , je vais tester ça cet après midi .

[autospeed]

Coucou

 

je ne comprends pas tout sur "l'auteur" du logiciel et un lispeur à la retraite, et en plus je m'en fiche..

par contre je veux bien apporter une piste de recherche, ces quelques lignes tapées à la va-vite font ce qu est demandé.

 

 

 

(setq jeusel (ssget "x"
       (list (cons 0 "DIMENSION"))
       )
     )
(command "_erase" jeusel "")

(alert (strcat (itoa (sslength jeusel)) " cotes ont été supprimées."))

 

amicalement

 

 

J'ai testé , ça marche super bien mais ca serait mieux sans la boite d'alerte finale et avec un defun au nom de DELCOT pour lancer le lisp sinon c'est pas pratique à mettre en œuvre. J'ai aussi l'impression que ça plante quand on lance le lisp sur un dessin qui n'a pas de cotations.

[jalna]

[size=2](setq jeusel (ssget "x"[/size]
  			(list (cons 0 "DIMENSION"))
  			)
     )[size=2](command "_erase" jeusel "")

[autospeed]

[size=2](setq jeusel (ssget "x"[/size]
  			(list (cons 0 "DIMENSION"))
  			)
     )[size=2](command "_erase" jeusel "")

 

 

Bien mais il se lance comment ce lisp ? avec quelle commande ?

[autospeed]

J'ai rajouté le nom de la commande :-)

 

(defun C:delcot ( )
(setq jeusel (ssget "x"
              (list (cons 0 "DIMENSION"))
              )
     )
(command "_erase" jeusel ""))

 

Ca marche en commande directe sur autocad mais si le dessin ne contient pas de cote à effacer , ca marque "commande inconnue" .. comment tester s'il existe ou pas des cotes avant de lancer la sélection des cotes ?

[Olivier Eckmann]

(defun C:delcot ( ) (if (setq jeusel (ssget "x" (list (cons 0 "DIMENSION")))) (command "_erase" jeusel "")

)

)

 

Si le jeu de sélection n'est pas vide (non nil), alors la commande effacer est lancée sinon rien ne se passe

[autospeed]

(defun C:delcot ( ) (if (setq jeusel (ssget "x" (list (cons 0 "DIMENSION")))) (command "_erase" jeusel "")

)

)

 

Si le jeu de sélection n'est pas vide (non nil), alors la commande effacer est lancée sinon rien ne se passe

 

super merci Olivier , je vais tester ça dans super AutoScript.

[autospeed]

super merci Olivier , je vais tester ça dans super AutoScript.

 

J'ai testé , cette fois-ci ca fonctionne nickel ! Super merci , ça va me faire gagner un temps fou pour le traitement des plans.