Nettoyer

[philsogood]

bonjour Patrick,

ton lisp fonctionne très bien, trop bien même.... en effet dans un dessin que j'ai créé, j'ai qqs pbs, en particliers au niveau des échelles je pense

j'ai pensé utilisé jav sur ce dessin mais il m'efface toutes les échelles, même celles qui sont utilisées sur certaines présentations et vu que je travaille en annotatif, l'effacement des échelles entraine le "déglinguement" de mes objets annotatifs... bref si tu pouvais rajouter un patch pour l'effacement des échelles mais pas celles utilisées sur les présentations...

@+

Phil

[Patrick_35]

Salut

 

Par contre j'ai un message d'erreur, comme suit.

error: bad argument type: stringp #

Si tu pouvais donner un exemple.

 

philsogood

Je n'utilise pas les objets annotatifs (peut-être un tort), alors si tu avais un exemple pour que je regarde.

Ou encore sans coche dans la zone sensible.

 

@+

[philsogood]

Bonjour Patrick,

Peux-tu me faire suivre une adresse mail pour que je t'envoie le fichier?

++

 

PS : tu as tort de ne pas utiliser les annotatifs... un gagne un temps monstre... le pb c'est que pour les versions inférieures à 2008 (quand tu es obligé de convertir ton fichier pour un envoi vers le client...) on a un calque qui se crée par échelle multiplier le nombre de calque que tu utilises pour tes annotations = bcp de calques

mais bon faut vivre avec son temps, qui fonctionne encore avec une version < à 2008? :)

[Patrick_35]

Salut

 

Tu peux envoyer à

(vl-list->string '(112 97 116 114 105 99 107 51 53 64 97 108 105 99 101 97 100 115 108 46 102 114))

 

ps : Pour les objets annotatifs, tu as sûrement raison, mais je n'ai jamais pris de temps de regarder ni même de comprendre à quoi ça sert réellement.

Quand on a une méthode de travail qui a fait ses preuves, des outils qui permettent ce que l'on veut, dur dur de faire bouger un dinosaure ;)

Totodesk nous ajoute au fil des versions, des nouveaux concepts. Il faut bien vendre et occuper ses développeurs :cool:, même si on a déjà ce qu'il faut.

 

@+

[BIGC-ROMU]

Marche trés bien ce lisp, merci Patrick_35

 

Quelques sugestions:

- Suppression des SHX manquantes (voir RFORM de (gille))

- Supprimer les caractères non imprimables (espaces, tabulations, retour charriot, ...)

situés à droite de tous les textes, mtextes et attributs du dessin.(voir CLEANTXT (je ne connais pas l'auteur), voir ci-dessous.

- Supprimer les objets nettoyer (wipeout) et les images raster

 

 

 

 ;; CLEANTXT
;; Supprime les caractères non imprimables (espaces, tabulations, retour charriot, ...)
;; situés à droite de tous les textes, mtextes et attributs du dessin.

(defun c:cleantxt (/ RightCleanText)
 (vl-load-com)

 (defun RightCleanText	(txt / lst)
   (setq lst (reverse (vl-string->list txt)))
   (while (and	lst
	(or (< (car lst) 33)
	    (and (= (car lst) 80) (= (cadr lst) 92))
	)
   )
     (if (< (car lst) 33)
(setq lst (cdr lst))
(setq lst (cddr lst))
     )
   )
   (vl-list->string (reverse lst))
 )

 (if (ssget "_X" '((0 . "*TEXT,INSERT")))
   (vlax-for obj (vla-get-ActiveSelectionSet
	    (vla-get-ActiveDocument (vlax-get-acad-object))
	  )
     (if (= (vla-get-ObjectName obj) "AcDbBlockReference")
(if (= (vla-get-HasAttributes obj) :vlax-true)
  (foreach att (vlax-invoke obj 'GetAttributes)
    (vla-put-TextString
      att
      (RightCleanText (vla-get-TextString att))
    )
  )
)
(if (= "" (setq txt (RightCleanText (vla-get-TextString obj))))
  (vla-delete obj)
  (vla-put-TextString obj txt)
)
     )
   )
 )
 (princ)
) 

 

 

Merci encore[Edité le 10/10/2010 par BIGC-ROMU]

 

[Edité le 10/10/2010 par BIGC-ROMU]

[thierry.garré]

Bonjour,

 

Le lien de téléchargement en première page n'est plus valable , ou puis-je trouver la dernière version de cette appli

 

Cordialement

[BIGC-ROMU]

ou puis-je trouver la dernière version de cette appli

 

Dans le post de lili2006 dans cette discution

 

du 22/8/2010 à 08:03

[lecrabe]

 

Hello

 

;; http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14245#pid63319

;; CLEANTXT - (gile) - 02/07/2007

 

C encore notre indispensable Gilles qui avait developpe CLEANTEXT

suite (en partie) a ma demande (Reponse No 13)

 

Encore MERCI Gilles, Le Decapode

 

[Patrick_35]

Bonjour

 

Merci pour le retour et tes idées BIGC-ROMU

 

Le lisp modifié

 

@+

[lili2006]

Bonsoir à toutes et tous,

 

On est bien passé en "JAV v2.03" ?

 

Je suis un peu perdu,...

 

Merci d'avance,

[(gile)]

philsogood,

 

Pour purger les échelles non utilsées, tu peux voir PurgeScales dans ce sujet

 

Patrick_35

tu dois pouvoir t'inspirer de ce code, si tu veux modifier JAV

[Patrick_35]

Salut

 

lili2006

Le lien que je viens de mettre à disposition est la version 3.0 de jav

 

(gile)

Il me semble que ma purge d'échelle fonctionne correctement et en tenant compte des objets annotatifs. Il y a une chose que tu as du voir pour m'inciter à m'inspirer de ton code.

 

@+

[(gile)]

(gile)

Il me semble que ma purge d'échelle fonctionne correctement et en tenant compte des objets annotatifs. Il y a une chose que tu as du voir pour m'inciter à m'inspirer de ton code.

Non, en fait je n'ai pas essayé la nouvelle version, je répondais juste par rapport au (vieux) message de philsogood (réponse 11 de cette page).

Je dois avoir un temps de retard... ;)

[lili2006]

Bonjour à toutes et tous,

 

Le lien que je viens de mettre à disposition est la version 3.0 de jav

 

Un pb avec le cache,...

 

M'semblait bien,...

 

Merci, je vais tester ça,

[lili2006]

Re,

 

Deviens balaise le pg,... :D

 

Testé sur des fichiers très différents, semble (très !) bien fonctionner,...

 

Merci Patrick

[Turtle]

le lien vers le fichier JAV.lsp ne fonctionne plus ??

 

 

[lili2006]

Bonjour à toutes et tous,

 

ICI

[lili2006]

Re,

 

Encore mieux => sur les pages de Patrick (adresse en pied de message) et avec la fonction rechercher de la page d'accueil => http://patrick.blog-cao.com/?s=jav

[Turtle]

merci lilian,

le lien direct a fonctionné.

 

 

Mais sinon j'ai un acces tres limité au Web donc les blogs et autres sites du genre forum, j'ai pas le droit !!!! le Principal j'ai acces a CADXP !!! ouf

 

[Edité le 15/11/2010 par Turtle]

[lili2006]

Bonsoir à toutes et tous,

 

Quelle(s) option(s) ne doit-on pas cocher pour conserver les blocs anonymes (souvent, pour ne pas dire toujours, des blocs dyns) ?

 

Merci d'avance,

[Patrick_35]

Salut

 

Pour quelle raison ?

Si un bloc peut-être purgé, c'est qu'il n'est plus dans le dessin ?

 

ps : si un bloc dyn change d'état dans un dessin, il a un nouveau nom anonyme, c'est pour cela que l'on purge plusieurs blocs anonymes

 

@+

[lili2006]

Bonjour à toutes et tous,

 

Sur un plan, j'ai pourtant bien eu ce pb !

 

Évidement, cela ne le refais plus,..Donc, je ne sais pas ce qui s'est passé,...(Autres manips au préalable ou je ne sais quoi encore,...)

 

Merci pour ta réponse Patrick,

[hiridimah]

je veux détacher une image dans plusieurs fichiers DWG automatiquement sans ouvrir les fichiers un par un