Joindre plusieurs polylignes en 1 seul fois

[philous2]

Existe-t-il une commande ou lisp pour faire la jonction en 1 seule opération de plusieurs polylignes pas tjrs pile poil aux extrémités et donc avec un mini intervalle souvent invisible à l'oeil. Il me semble qu'il y a une commande mais me rappelle plus

[(gile)]

Salut,

 

Commande PEDIT, option Multiple...

[philous2]

OK gile mais qd les polylignes ne sont pas vraiment bien lié et qu'il existe ne serait-ce qu'un infime espace entre les extrémités la jonction ne se fait pas d'ou ma question existe--il une commande ou lisp qui puisse combler le petit espace éventuel entre 2 polylignes pour pouvoir les joindre.

[LUDWIG]

après Pedit multiple, tu fais l'option joindre, type de jointure "les Deux", et distance de jointure adéquate.

 

PS : moi j'utilise jpl de (Gile) mais je ne sais pas s'il y a une tolérance pour la jointure. A la limite, je suis sûr que c'est l'histoire de deux variables à mettre dans le lisp (type de jointure et distance) mais ke n'ai pas trouvé...

 

[Edité le 13/10/2008 par LUDWIG]

[(gile)]

Salut,

 

Comme dit Ludwig :

 

Commande: pedit

Sélectionnez la polyligne ou [Multiple]: m

 

Choix des objets: Spécifiez le coin opposé: 3 trouvé(s)

 

Choix des objets:

 

Entrez une option

[Clore/Ouvrir/Joindre/LArgeur/Lissage/sPline/Retrouver/Typeligne gén/Annuler]: j

 

Type de jointure = Prolonger

[surligneur]Entrez une distance approximative ou [type de Jointure] :[/surligneur]

 

Le LISP jpl ne fait que lancer PEDIT avec ces options et une distance de 0.0.

Il suffit de remplacer, dans le code, les deux 0.0 par la distance qui te convient.

[philous2]

SLT GILE, j'ai bien lu ton lisp jpl super bien simple et plus direct que pedit.

Par contre ds pedit j'ai un petit soucis apres avoir cliqué joint je n'ai pas la boite de dialogue " Type de jointure = Prolonger

Entrez une distance approximative ou [type de Jointure] <0.00>: "

Enfin dernière question si tu modifies directement cette valeyure ds pedit est-ce que cela se modifier ds le lisp jpl ou bien s'il faut modifier cette valeur ds le texte de la macro !

 

[LUDWIG]

Ce n'est pas une boite de dialogue.

Quand il met le message Entrez une distance approximative ou [type de Jointure] <0.00>:

Tu tapes J et là, il te propose les type de jointures. Tu tapes la lettre en majuscule du type de jointure que tu veux.

 

Si tu modifies la valeur dans pedit et que tu lances jpl, il reprendra la valeur donnée dans jpl. Donc il te faut modifier la valeur dans le texte du programme.

[(gile)]

Enfin dernière question si tu modifies directement cette valeyure ds pedit est-ce que cela se modifier ds le lisp jpl ou bien s'il faut modifier cette valeur ds le texte de la macro !

 

Le LISP répond à toutes les options, c'est donc le code du LISP qu'il faut modifier si tu veux changer la distance.

 

(defun c:jpl (/ ss)
 (and (or
 (and (= (getvar "pickfirst") 1)
      (setq ss (ssget "_I" '((0 . "ARC,LINE,LWPOLYLINE"))))
 )
 (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
      )
      (if (= (getvar "peditaccept") 1)
 (vl-cmdf "_.pedit" "_m" ss "" "_j" 0.0 "")
 (vl-cmdf "_.pedit" "_m" ss "" "_y" "_j" 0.0 "")
      )
 )
 (princ)
)

[x_all]

c'est moi oubien...

 

Avant la 2015, ce petit lisp me jointais parfaitement tout.

depuis la 2015, si je cherche à joindre des polylignes entre elle, ça ne marche pas à tous les coup. s'il y a des lignes et des polylignes ça marche mieux...

je remet le code qui a du un peu morfler avec le temps dans l'éditeur cadxp

 

(defun c:jpl (/ ss)
 (and (or
 (and (= (getvar "pickfirst") 1)
  	(setq ss (ssget "_I" '((0 . "ARC,LINE,LWPOLYLINE"))))
 )
 (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
  	)
  	(if (= (getvar "peditaccept") 1)
 (vl-cmdf "_.pedit" "_m" ss "" "_j" 0.0 "")
 (vl-cmdf "_.pedit" "_m" ss "" "_y" "_j" 0.0 "")
  	)
 )
 (princ)
)

 

ce serai pas à cause de " vl-cmdf "qui marche pas bien pareil?