Changer une polylygne en double trait ?

[Koalu]

Bonjour à tous !

J'ai un petit soucis :

J'ai fais plein de polylygne avec une epaisseur et j'ai besoin de les transformer en polylygne avec 2 trait aux extrémités...

Je sais pas si je m'explique bien. En gros j'ai représenté des murs avec une polylygne d'ep 30 et j'ai besoin graphiquement de mettre 2 traits fins à la place. mon problème c'est que j'en ai un tas immense à faire et tous redessiner serait assez fastidieux.

 

Merci pour votre aide.

 

Bonne journée à tous.

 

[Edité le 24/6/2009 par Koalu]

[farfar974123]

salut,

 

Une idée comme ça...(en premier jet)

 

Je ne sais pas si sa va te servir et si ca va correspondre à ce que tu veux faire.

Mais tu peux modifier la variable fillmode et la passer à 0 afin que tes polylignes perdent leurs remplissages. Mais ce n'est qu'un rendu visuel, et cela ne transforme en aucun cas tes polylignes en lignes.

 

A+

 

[Koalu]

Salut,

Cela donne exactement le rendu que je veux pour mes polylignes concernées mais le problême c'est que ça retire mes hachures sur tout mon fichier.

 

Peut on effectuer cette opération uniquement sur une zone sélectionnée ou objets sélectionnes ?

 

Merci farfar. ;)

[Tramber]

polyarthrite

polyvalent

polyester

 

ligne

 

polyligne !

[lili2006]

Bonjour à toutes et tous,

 

Peut on effectuer cette opération uniquement sur une zone sélectionnée ou objets sélectionnes ?

 

NON !

 

Solution =>

 

Créer un wbloc de tes polylignes et insérer dans le dessin source (ou en XREF, pareil,...)

[lili2006]

Re,

 

polyarthrite

polyvalent

polyester

 

ligne

 

polyligne !

 

Ouh là,..

 

Le soleil tape dur en Alsace aujourd'hui ? :P

[farfar974123]

Re-salut

 

Et non, quand tu changes une variable cela s'applique à l'ensemble du fichier (A ma connaissance, qui est très limitée). Désolé de ne pouvoir t'aider mieux que ca...

 

[farfar974123]

oups!!!!!!!!

réponse redondante à celle de lili2006 (Pas vu les commentaires)

[bonuscad]

Salut,

 

Essayes ce code écrit rapidement.

 

(vl-load-com)
(defun c:plwidth2dbl_offset ( / js n ent vla_obj e_width)
(princ "\nSélectionner les polylignes à transformer")
 (setq js (ssget '((0 . "*POLYLINE"))))
 (cond
	(js
		(repeat (setq n (sslength js))
			(setq
				ent (ssname js (setq n (1- n)))
				vla_obj (vlax-ename->vla-object ent)
				e_width (vlax-get vla_obj 'ConstantWidth)
			)
			(if (not (zerop e_width))
				(progn
					(vla-Offset vla_obj (* 0.5 e_width))
					(vlax-put (vlax-ename->vla-object (entlast)) 'ConstantWidth 0.0)
					(vla-Offset vla_obj (- (* 0.5 e_width)))
					(vlax-put (vlax-ename->vla-object (entlast)) 'ConstantWidth 0.0)
					(entdel ent)
				)
			)
		)
	)
	(T (princ "\nSélection vide"))
)
(prin1)
)

[lili2006]

Re,

 

Salut bonuscad,

 

Commande: PLWIDTH2DBL_OFFSET

 

Sélectionner les polylignes à transformer

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

 

Aucun effet chez moi !

 

MAP 3D 2008

[bonuscad]

Aucun effet chez moi !

 

Alors c'est que la/les polylignes n'ont pas de largeur CONSTANTE.

 

Ne fonctionne pas avec des largeur définies par segment. (largeur de début/fin)

[lili2006]

Re,

 

Alors c'est que la/les polylignes n'ont pas de largeur CONSTANTE

 

Exact,

 

Marche Nickel-Chrome ! :D

[Koalu]

Merci beaucoup pour vos réponses.

 

Cependant je suis un gros débutant sur les lisp prog et tout.

 

avec ce code je le copie colle dans un txt que je renomme en .lsp et charge dans l'éditeur lisp ?

 

j'ai fait ca et quand je lance la commande "js" : ça ne marche pas .

 

heureusement mes polylignes concernées ont une largeur constante.

 

encore merci.

 

[(gile)]

salut,

 

Pour charger/lancer des routines LISP, regarde ce sujet.