Modifer cercles en polylignes ???

[Invité Tayou57]

Bonjour,

 

J'ai plusieurs cercles que je voudrais modifier en polylignes (pour donner une épaisseur).

Merci de me donner la marche à suivre pour effectuer cette modif.

 

Cordialement.

[grand_sapin]

Salut

 

Ben en fait, tu va être soit obligé de faire 2 arcs face à face (que tu peux convertir en polyligne) soit un arc qui ne sera pas fermé (tu laisse un vide d'une distance infime) et que tu convertis aussi en polyligne.

 

Qu'on hésite pas à me reprendre, mais il me semble qu'on ne peux faire un cercle en polyligne autrement.

 

Sapin

[La Lozère]

Salut,

 

Qu'on hésite pas à me reprendre, mais il me semble qu'on ne peux faire un cercle en polyligne autrement.

Alors j'hésite pas.... ;) Mais en passant par la commande anneau avec le diamètre externe = diamètre interne, ça va plus vite, non?

 

A plus.

[Invité Tayou57]

Merci à vous: grand_sapin et La Lozère

[jalna]

Une autre astuce est de faire un polygone avec un nombre de côtés important......................

[alala]

Ou un simple contour avec CN. ;)

[lili2006]

Bonjour à toutes et tous,

 

Ou un simple contour avec CN.

 

Merci de bien vouloir éclairer ma lanterne alala,...:blink:

[Tramber]

Il a voulu dire CONTOUR !

Tout le monde ne parle pas le PGP et tout le monde n'a pas le même...

 

Il n'y a pas de lisp éprouvé pour tranformer des cercles ?

[-Olivier-]

Bonjour Lilian,

Je me permet de répondre à la place d'Alala (j'espère qu'il ne m'en voudra pas).

Si tu as un cercle, lance la commande contour (alias CN), un clic à l'intérieur du cercle et tu obtient une polyligne de 2 arcs sur le cercle.

Olivier

PS : Je n'y aurais pas pensé, merci Alala. B)

[lili2006]

Re,

 

Ah ok !

 

Peut être pratique si on n'a pas Covadis par exemple,..

 

Il me semble que (gile) a fait un lisp en ce sens,..

 

Merci pour ce complément d'info,..

[richard-c]

bonjour,

 

de mémoire au bout de 5 ans de "vacances"

 

commande Polyligne

 

A (pour arc)

R (pour rayon)

A (pour angle) = 180

se mettre en ortho

CL (pour clore)

 

et peut être E pour épaisseur, mais la je ne sais plus.

 

A+

[alala]

Bonjour Lilian,

Je me permet de répondre à la place d'Alala (j'espère qu'il ne m'en voudra pas).

Si tu as un cercle, lance la commande contour (alias CN), un clic à l'intérieur du cercle et tu obtient une polyligne de 2 arcs sur le cercle.

Olivier

PS : Je n'y aurais pas pensé, merci Alala. B)

Exactement!

 

Et je n'en veu a personne d'aider à clarifier mes propos ;)

 

POur ifo c'est généralisable si les cercle sont sur un calque spécifique.

il suffit de faire un cadre (rectangle ou polyligne fermé) autours des cercle que l'on souhaite passer en polyligne et de faire un CONTOUR (ou CN) en sélectionnant la zonne et non un cercle.

Ne reste ensuite qu'a supprimer la zone et le contour crée.

 

@+

 

ps: tout ceci crée bien sur un double de l'élément d'origine qui est le cercle, il ne le transforme pas réelement.

[richard-c]

(re)

 

moi, j'ai répondu à grand_sapin, on peut faire un cercle avec une polyligne.

 

A+

[grand_sapin]

Re,

 

je reprend, ce que j'entendais par le fait qu'on ne peut pas faire autrement, c'était de dire qu'une entité "cercle" n'est pas convertible en polyligne tel quel (du style Pedit, voulez vous convertir en polyligne ?), par conséquent, il faut trouver des alternatives du type construire d'une autre manière (polyligne, anneau) ou créer une nouvelle entité à partir du cercle (contour).

La question étant "modifier en polyligne".

je me suis mal exprimé, désolé

cependant, j'ai appris de nouvelles méthode de construction, comme contour par exemple

 

a+

Sapin

[richard-c]

(re)

 

 

le papy avait mal compris.

 

A+

[lecrabe]

Hello

 

Juste pour Info voici une routine ("C2D") qui transforme les cercles selectionnes en Polyarcs

donc apres on peut jouer avec la Largeur globale des PolyLignes ...

 

Wharf, wharf, pour une fois je n'ai pas choisi une routine de Gilles

mais une routine US de Tee Square Graphics !

 

lecrabe

 

PS: Routine C2D retestee sur AutoCAD 2013 32 bits sous Win XP Pro SP3

c2d.lsp

[lovecraft]

Bonjour ,

 

Allez juste pour ceux qui ont une version Map ou Civil. On peut utiliser la commande Mapclean puis dans la derniere étape on peut cocher certaine options de conversion très pratique et rapide.

 

http://img.imagesia.com/fichiers/69/08-03-2013-10-29-00_imagesia-com_694d_small.jpg

 

Cordialement,

 

Laurent

[lili2006]

Bonjour à toutes et tous,

 

Et pour ceux qui ont covadis, c'est =>

[richard-c]

bonjour,

 

moi, il y a quelques années, j'avais ceci sous ma V2002, en plus il demandait une épaisseur (0 (zéro) si on ne voulait pas d'épaisseur) :

 

 

 

 

;

; CH_EPL.LSP - gratuiciel

; Version 1.4 pour Autocad 2002 ou superieur

; Revision du $Date: 28/01/04 7:31 $

; Ecrit par Didier Lourdelle

;

; Mise à jour en 1.2 le 18/08/1998 par Didier LOURDELLE tient compte des LWPOLYLINE

; Mise à jour en 1.3 le 30/09/1998 par Pierre-Marie BOITEL tient compte des cercles en les transforment en polyligne

; Mise à jour en 1.4 le 28/01/2004 par Didier LOURDELLE modification de l'epaisseur avec la commande polyligne et l'option multiple pour un traitement plus rapide.

;

; $Workfile: ch_epl1-4.lsp $

; $Date: 28/01/04 7:31 $

; $Revision: 5 $

;

; Test le 2004/01/28

;

; AutoCAD 2005 us ok

; AutoCAD 2004 fr ok

; AutoCAD 2002 fr ok

;

;http://www.didier-lourdelle.fr/

;

;E-mail :dlourdelle@didier-lourdelle.fr

;

;Vous êtes libres de diffuser ce gratuiciel

;

; **************************

; ***c'est même conseillé***

; **************************

;

;Vous êtes libres de diffuser ce gratuiciel

;

;

; Modification d'epaisseur de line, polyligne, cercle anneaux en une seule manipulation

;

(defun dl_ini_mem_ch_epl ()

(setq cmde (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setq osmode (getvar "osmode"))

(setvar "osmode" 0)

(command "_undo" "_m")

);defun dl_ini_mem_break

 

(defun dl_ini_rest_ch_epl ( / )

(setvar "cmdecho" cmde)

(setvar "osmode" osmode)

(setq cmde nil osmode nil)

);defun dl_ini_rest_break

;;

;;

;;

(defun dl_select1_ch_epl ( / js i lent ent typent rayon centre calque flagLigneArc)

(prompt "\nEntrez la nouvelle epaisseur ") (princ (getvar "PLINEWID")) (prompt " :")

(setq ep (getreal ))

(if ep

(setvar "PLINEWID" ep)

(setq ep (getvar "PLINEWID"))

)

(prompt "\nChoisissez vos polylignes,arc,anneaux,ellispses,lignes,cercle :")

(setq js (ssget))

(setq i 0)

(prompt "\nConvertion des cercles en ARC")

(repeat (sslength js)

(setq ent (ssname js i))

(setq lent (entget ent))

(setq typent (cdr (assoc 0 lent)))

(if (null

(or

(= typent "ARC")

(= typent "LINE")

(= typent "POLYLINE")

(= typent "LWPOLYLINE")

(= typent "CIRCLE")

 

);or

);null

(setq i (1+ i))

(cond

((= typent "ARC")

(progn

(setq flagLigneArc T)

(setq i (1+ i))

)

)

((= typent "LINE")

(progn

(setq flagLigneArc T)

(setq i (1+ i))

)

)

((= typent "CIRCLE")

(progn

(setq rayon (cdr (assoc '40 lent)))

(setq centre (cdr (assoc '10 lent)))

(setq calque (cdr (assoc '8 lent)))

(entdel ent)

(command "_pline"

(list

(- (car centre) rayon)

(cadr centre)

(caddr centre)

)

"_a" "_r" rayon "_a" "180" "0"

"_cl"

)

(command "_change" (entlast) "" "_pr" "_la" calque "")

(setq i (1+ i))

)

)

 

);cond

);if

);repeat

(if (= flagLigneArc T)

(command "_pedit" "_m" js "" "_y" "_w" ep "")

(command "_pedit" "_m" js "" "_w" ep "")

)

 

)

;;

;;

;;

(Defun c:CH_EPL ( / )

 

;;Dans un SCU particulier le cercle s'efface,

;;Se place provisoirement dans le SCG -

(command "cmdecho" 0)

(command ".scu" "NOM" "SU" "CH_EPL");efface le SCU particulier CH_EPL si il existe déja dans le dessin

(command ".scu" "NOM" "SA" "CH_EPL" );sauve le SCU particulier en CH_EPL

(command ".scu" "G")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(dl_ini_mem_ch_epl)

(dl_select1_ch_epl)

(dl_ini_rest_ch_epl)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;Revient dans le SCU précédent

(command ".scu" "NOM" "R" "CH_EPL" )

(command "cmdecho" 1)

(princ)

)

 

 

j'avais juste ajouté le passage de SCU (éventuel) en SCG, car les cercles disparaissaient.

 

A+

[richard-c]

(Re)

 

attention pour les éllipses, si l'éllipse est dessinée avec la variable PELLIPSE à 1 ou 0 (je ne sais plus) ça ne marche pas pour cette entité.

 

il faut malheuresent redessiner l'ellipse

 

A+