Pline

[dfbiagio]

Bonsoir,

J'ai vu , je ne sais plus sur quel forum, qu'il est possible de transformer un groupe de lignes en polylignes en une seule commande.

Quelqu'un peut-il me dire de quelle commande il s'agit.

Merci d'avance

[Fraid]

Bonjour,

 

_mpedit

[lesourd2]

Salut

 

PEDIT

 

 

Commande: PEDITSélectionnez la polyligne ou [Multiple]: M

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

Choix des objets:

Convertir les lignes et les arcs en polylignes [Oui/Non]? O

Entrez une option

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

Type de jointure = Prolonger

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

4 segments ajoutés à la polyligne

Entrez une option

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

[lili2006]

Bonsoir à toutes et tous,

 

Ou bien ce lisp qui automatise pedit ? =>

 

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

[dfbiagio]

Merci à tous,

 

c'est mpedit que je cherchais

[Laurent_CAMPEDEL]

Bonsoir à toutes et tous,

 

Ou bien ce lisp qui automatise pedit ? =>

 

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

 

Et si cette macro était équipée d'une option permettant de clore la polyligne créée, elle serait complète. :)

 

A bon entendeur... :D