Aller au contenu

Nettoyer


Patrick_35

Messages recommandés

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

Projeteur Revit Indépendant - traitement des eaux/CVC

Lien vers le commentaire
Partager sur d’autres sites

  • Réponses 122
  • Créé
  • Dernière réponse

Meilleurs contributeurs dans ce sujet

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.

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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? :)

Projeteur Revit Indépendant - traitement des eaux/CVC

Lien vers le commentaire
Partager sur d’autres sites

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.

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

  • 1 mois après...

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]

Lien vers le commentaire
Partager sur d’autres sites

 

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

 

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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.

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

(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... ;)

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Lien vers le commentaire
Partager sur d’autres sites

  • 1 mois après...

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]

Intel i7-4770 - 16Go Ram - NVIDIA Quadro K2000 - Double ecran en 1680x1050

Windows 7 64Bits. non administrateur !!

Autocad Map 3D 2019 + Covadis V17.0f

Lien vers le commentaire
Partager sur d’autres sites

  • 1 mois après...

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

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

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,

Civil 3D 2024 - COVADIS_18.2

https://www.linkedin...3%ABt-95313341/

Lien vers le commentaire
Partager sur d’autres sites

  • 10 ans après...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant



×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité