Multiligne en polyligne

[Karmelie]

Bonjour,

 

Nous recevons régulièrement des plans de l'externe que nous devons intégrer à nos plans.

Un de nos "client" a découvert les multilignes et les utilise à toutes les sauces (de 2 à 8 lignes avec des types de ligne différents, remplissage, etc. Nous n'avons pas autorité sur ce "client".

 

J'ai trouvé sur ce site un lisp pour transformer des polyligne en multiligne. L'inverse est-il possible?

Présentement, j'exporte toutes les multilignes du dessin dans un dessin vierge, je dégroupe les multilignes qui deviennent de lignes, je les transforme en polylignes et je les joins. Je leur assigne ensuite un calque, qui varie d'un polyligne à l'autre ainsi qu'une largeur (pas au calque, mais bien une épaisseur de polyligne), qui varie également selon la polyligne Je met ensuite le tout "duCalque" et je réimporte le tout dans le dessin original.

Lorsque c'est possible, utilise la commande de double décalage (également trouvée ici) après avoir transformer uniquement la ligne "centrale" du multiligne en polyligne. C'est plus rapide que de joindre une multitude de segments de ligne pour les 2 à 8 autres composantes de la multiligne. Il y a parfois des lignes qui se croisent, avec des nœuds aux intersections. Je ne peux donc pas faire une sélection globale pour joindre les lignes.

 

Est-ce qu'il y aurait une application déjà développée ou un volontaire pour en développer une qui pourrait me sauver des heures de manipulation?

 

Merci à l'avance,

 

Karmélie

 

[lecrabe]

 

Hello

 

J'ai un truc qui me rend qq services lorsque la Multi-Ligne n'a pas de Jointures !

 

Le Decapode

 

;;
;; http://webboard.selectmore.com/autocad/92497/Convert-Mline-To-Pline
;;
;; Routine M2P.lsp - Conversion de Multi-Lines en N Polylignes
;;
;; --- Commentaires par Le Decapode --- 
;; ATTENTION : Multiples Restrictions / Limitations
;; Comme la routine fait "en automatique" un PEDIT M Joindre en sortie de _Explode / Decomposer
;; Elle va traiter aleatoirement les lignes de jointure avec les vraies lignes "utiles" 
;; Donc SVP pas de Jointures dans la Multi-Ligne - Ne surtout pas utiliser sur des Multi-Lignes avec Jointures ...
;; En resume : ca fait gagner le temps de refaire le PEDIT Joindre sur les lignes principales
;;

(defun c:m2p (/ vlst ovar ent ss elast)  
(setq vlst '("CMDECHO" "PEDITACCEPT") ovar (mapcar 'getvar vlst))  
(if (and (setq ent (car (entsel "\nSelect Multi-Line...")))
(eq "MLINE" (cdadr (entget ent))))    
(progn      (mapcar 'setvar vlst '(0 1))      
(command "_explode" ent) (setq ss (ssadd))      (mapcar '(lambda (x) (ssadd x ss)) 
(Ent_List_to_End ent))      (setq elast (entlast))  
(command "_pedit" "_M" ent ss elast "" "_J" "" "")) 
(princ "\n No Multi-Line Selected ")
)  
(mapcar 'setvar vlst ovar)  
(princ)
)

(defun Ent_List_to_End(ent / a)  
(reverse    (if(setq a(entnext ent))       
(cons ent(Ent_List_to_End a))))
)

 

 

[Karmelie]

Merci Lecrabe.

 

Par chance, mes multilignes n'ont presque jamais de jointures. Pour le reste, je crois qu'il s'agit d'avantage de travail d'édition que de programmation.

 

Karmélie