Routine de nettoyage de petits segments

[rebcao]

Bonsoir à Toutes et à Tous,

 

Il me semble avoir vu passer une fois un sujet sur un problème de netttoyage de plan ! Pas moyen de retrouver le sujet...

 

Il s'agirait d'une routine qui supprime ou met sur un calque tous les segments (arcs, splines, lignes, polylignes) inférieurs à une valeur mini que l'on indique !

 

Je vous remercie pour votre aide

 

Christian

[(gile)]

Salut,

 

un petit truc vite fait (pas testé)

 

(defun c:delsmallcurves	(/ *error* dist)
 (vl-load-com)
 (or *acad* (setq *acad* (vlax-get-acad-object)))
 (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*)))
 (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*)))

 (defun *error* (msg)
   (and
     msg
     (/= msr "Fonction annulée")
     (princ (strcat "\nErreur: " msg))
   )
   (vla-endUndoMark *acdoc*)
   (princ)
 )

 (if (setq dist (getdist "\nSpécifiez la distance minimale: "))
   (progn
     (vla-StartUndoMark *acdoc*)
     (setq cnt 0)
     (vlax-for	blk *blocks*
(vlax-for obj blk
  (vl-catch-all-apply
    '(lambda (/ l)
       (setq l (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)))
       (if (< l dist)
	 (vla-delete obj)
       )
     )
  )
)
     )
   )
 )
 (*error* nil)
)

(defun c:dsc () (c:delsmallcurves) (princ))

(princ "\nEntrez DELSMALLCURVES ou DSC pour lancer la commande")
(princ)

[jpeg]

bonjour,

il existe dans le menu MAP dessin

puis Outils et nettoyage dessin voir une opération

effacer les objets courts

si ça peut dépanner

salut

[lecrabe]

Hello Gilles

 

1) Merci car tout le monde n'a pas un MAP (ou un CIVIL), et les outils de nettoyage de dessins

 

2) Ta routine fonctionne bien mais elle "tape" un peu trop fort, car elle attaque l'integralite du DWG

Elle traite : lignes, arcs, cercles, splines, polylignes 2D/3D

Elle ne traite pas : Regions, MPolygons

Pourquoi ?

 

SVP qq suggestions d'amelioration :

 

A - Passer par une selection AutoCAD classique

 

B - Traiter aussi Regions, MPolygons

Car en SIG/Carto, on a parfois des Micros-Regions et/ou Micro-MPolygons

Bon d'accord avec 2 Selection rapides, on les aura ... Mais bon !?

 

C - Offrir la possibilite de :

- soit supprimer les entites concernees

- soit forcer leur couleur (sans les supprimer)

 

Encore Merci pour toutes tes routines de folie !

 

lecrabe

 

PS: Routine testee sur un MAP 2013 32 bits US/English

[jalna]

Salut

Chez moi elle ne fonctionne pas

J'ai une ligne de longueur : 100

Je tape dsc

Spécifiez la distance minimale: 100

Rien ne se passe............

[stugeol]

Bonjour,

Jalna, si me trompe pas, dans le code fourni par gile, il traite les objets srtictement inférieur à la distance minimale.

Si ta ligne à une longueur de 100.000, alors il ne se passe rien, essait de modifier la longueur pour quelle soit légérement inférieur à 100.

Cordialement.

[jalna]

Salut et bien vu stugeol!!

C'est tout à fait ça!!

[lecrabe]

Hello Jalna

 

Tu payes la tournee generale !

 

Osez dire qu'une routine de Gilles ne fonctionne pas !

avec en plus le vieux Crabe/Decapode qui l'a testee !!

 

lecrabe

[rebcao]

Bonsoir Gilles,

 

Je n'en demandais pas tant ! Je pensais vraiment que cette routine existait déjà...

 

En tout cas, je te remercie toujours aussi efficace ! Et si la PINCE MAYO l'a testé on est tranquille ! :P

 

Christian

[jalna]

Hello Jalna

 

Tu payes la tournee generale !

 

Osez dire qu'une routine de Gilles ne fonctionne pas !

avec en plus le vieux Crabe/Decapode qui l'a testee !!

 

lecrabe

 

Salut

C'était pour voir si tu suivais :)

Pas de P pour la tournée!!!!!