Réunir des lignes

[fauxsuisse]

Bonjours tout le monde.

 

J'ai sur mon dessin plusieurs lignes qui sont entre-coupées et je voulais savoir s'il était possible d'en faire qu'un seul trait, se sont des lignes et pas des polylignes.

[vincentp010]

Salut,

 

normalement si tu fait la commande PEDIT, autocad doit te demander si tu veux transformer les objets en polylignes. Tu répond oui et après tu fais joindre.

[Tramber]

Oui alors, une fois que l'une d'entre elles est devenues polyligne, la commande raccord option Multiple va souder les éléments.

 

J'ai une vague idée mais, faute d'image, je ne vois pas très bien le problème à traiter.

 

Il y avait aussi quelques espoirs que la commande PEDIT option Multiple ait eu un intérêt mais il s'agirait de mieux expliquer les hypothèses ainsi que l'objectfi.

[laud69]

Bonjour,

 

Il y a aussi la commande "joindre " si ce sont des lignes alignées entres elles.

 

++

[fauxsuisse]

Merci c'est tout bon la fonction joindre était suffisante car il s agissait de plusieurs segments alignés.

 

[didier]

coucou

 

et dire que je n'ai pas répondu à cause du vocabulaire !!!

 

les lignes :mad: ENTRECOUPEES :mad: m'ont fait me taire.

 

 

 

amicalement

[PHILPHIL]

HELLO toutes tous

 

fauxsuisse avec bcp de retard

 

c'est un TIT LISP comme ca qu'il te fallait ?

 

apres faut surement l'ameliorer pour qu'il ne fasse la manip qu'avec les ligne de meme calque

ou meme type de ligne, couleur peut etre j'en passe et des meilleurs ...

 

a tester

 

pour didier s'il y a des fautes de francais tu peux les corriger et ne pas hésiter à répondre loll

 

a+

phil

 

 (defun C:JOP ( )
 (setq OBJ NIL)
  (setvar "cmdecho" 0)
 (setq OSM (getvar "osmode"))
  (prompt "\nJOIND PLUSIEURS LIGNES ENTRE ELLES :")
 (prompt "\nSELECTIONNER LE(S) OBJET(S) COUPER A JOINDRE.")
 (while (null OBJ) (setq OBJ (ssget)))
 (SETQ FOIS 0)
 (setq nbr (sslength OBJ))
 (REPEAT nbr
    (command "JOINDRE" (ssname OBJ FOIS) OBJ "")
   (SETQ FOIS (1+ FOIS))
   )
  (princ)
 )

 

 

[Edité le 27/7/2009 par PHILPHIL]

[fauxsuisse]

Merci PHILPHIL

 

ça marche parfait.

Pour ce qui est des fautes d orthographe j'en suis désolé mais j'essaie déjà de m'améliorer dans Autocad et il y a du boulot ;)

 

Bonne journée à tous

[PHILPHIL]

hello

 

disont que ca marche , ca ok

 

mais que ca marche parfaitement, apres un test sur 12000 entites je ne dirais pas la meme chose

 

comme le LISp fait un "REPEAT" sur le nombre d'entitée sélectionnées, il a tendance a tourner à vide à la fin n'ayant plus d'objets a "JOINDRE"

 

quand tu en as une centaine ca ne se vois pas mais 10000 c'est autre chose

 

faudrait pouvoir faire une boucle en calculant le nombre d'objet a joindre restant et en sortir une fois qu'il n'y ait plus d'objet a joindre

 

ca serat pour une prochaine fois

si je trouve

 

a+

 

phil