Voir les textes vides

[Invité Patrick]

Pour voir les textes vides, mettez QTEXT à ACtif, les textes dont la chaine de caractères a été supprimée (les textes vides) apparaitront alors comme un point sur l'écran, qu'il suffira de cliquer et de supprimer...

[bruno_l]

une petite fonction qui efface les textes vide

;;; efface les textes blancs "" & " "

(defun EFF_BLANC (/ JEUX_TEXTE E_TEXTE DEF_TEXTE)

(setq JEUX_TEXTE

(ssget "x" '((0 . "TEXT")))

CX 0

EFF_TEXTE 0

) ;_ Fin de setq

(while (setq E_TEXTE (ssname JEUX_TEXTE CX))

(setq CX (1+ CX)

DEF_TEXTE (cdr (assoc 1 (entget E_TEXTE)))

) ;_ Fin de setq

(cond ((= "" DEF_TEXTE)

(entdel E_TEXTE)

(setq EFF_TEXTE (1+ EFF_TEXTE))

)

((= " " DEF_TEXTE)

(entdel E_TEXTE)

(setq EFF_TEXTE (1+ EFF_TEXTE))

)

) ;_ Fin de cond

) ;_ Fin de while

(setq EFF_TEXTE (itoa EFF_TEXTE))

(prompt "\n")

(prompt EFF_TEXTE)

(prompt " texte(s) vide effacé(s)")

) ;_ Fin de defun

[rimbo]

J'en profite en voyant se Lisp pour poser une question même si c'est pas le propos de la rubrique

 

(defun EFF_BLANC (/ JEUX_TEXTE E_TEXTE DEF_TEXTE)

 

Ou est le titre pour lancer la commande sous autocad : :( EFF_BLANC

 

 

 

[Tramber]

tu tapes:

(EFF_BLANC) sur la ligne de commande

[didier]

bonjour

en complément de la réponse de Tramber

(defun c: toto ()

;lignes de codes

)

pour lancer toto > ligne de commande : toto

 

(defun toto ()

;lignes de codes

)

pour lancer toto > ligne de commande : (toto)

 

s'il n'y a pas de defun

ligne de commande : (load"toto")

 

en espérant avoir été explicatif

amicalement

:yltype: