HELP lisp polyligne

[tofjo]

Bonjour à tous

 

Est il possible d'avoir une routine lisp permettant de créer un contour polyligne d'un dessin en 2D dans l'objet dont le contour est fermé(ou composé de multiples lignes)

?

 

en fait j'avais déjà un lisp nommé

trans_la

 

mais il n'est pas assez automatisé....

 

ce que je veux c'est selectionner automatiquement dans tout l'objet uniquement les lignes et les convertir en polylignes.....

 

et en + si possible, le faire en série sur plusieurs fichiers dwg...

 

si qqun eut m'aider

 

merci d'avance

 

merci

 

@+

tof

[(gile)]

Salut,

 

Je ne suis pas sûr d'avoir compris la question, mais le LISP suivant exécute la commande PEDIT Multiple option Joindre sur toutes les lignes du dessin.

 

(defun c:l2pl (/ ss)
 (if (setq ss (ssget "_X" '((0 . "LINE"))))
   (command "_.pedit" "_m" ss "" "_j" "" "")
 )
 (princ)
) 

[tofjo]

Bonjour

 

Merci

 

c'est exactement cela que je voulais faire a qqes détails près:

est il possible d'automatiser les réponses :

CONVERTIR LIGNES EN POLYLIGNES : Oui

OPTION: joindre

DISTANCE APPROXIMATIVE: 0

et enfin annuler..

 

Dernière chose et pas des plus simples:

 

Est il possible d'effectuer cette routine lisp sur plusieurs fichiers dwg distincts sans avoir à relancer la commande?

 

merci par avance si qqun peut m'aider

 

@+

tof

 

[(gile)]

Salut,

 

J'avais oublié PEDITACCEPT qui est toujours à 1 chez moi

 

(defun c:l2pl (/ ss)
 (if (setq ss (ssget "_X" '((0 . "LINE"))))
   (if	(= (getvar "PEDITACCEPT") 1)
     (command "_.pedit" "_m" ss "" "_j" 0.0 "")
     (command "_.pedit" "_m" ss "" "_y" "_j" 0.0 "")
   )
 )
 (princ)
) 

 

Pour lancer la fonction sur plusieurs fichiers, le plus simple est de passer par un script (fais une recherche avec SuperAutoScript) dans lequel tu exécute la fonction avec l'expression :

(c:l2pl)

[tofjo]

Ahhhhh

 

Un grand merci à toi

 

ce lisp fait exactement ce que je veux

 

en plus avec superautoscript c'est le top pour automatiser sur plusieurs fichiers...

 

rien à dire enfin à part GRAND MERCI

 

@+ et longue vie à ce forum

 

bye

 

tof

[tofjo]

Salut

 

Dernière petite chose...

 

Est il possible dans ce lisp d'ajouter une commande permettant de mettre le scu à un changement de direction de la polyligne (angle fermé <=90°)? ou au pire sur cette polyligne?

 

merci

 

tof

[tofjo]

Bonjour

 

Personne pour m'aider?

 

Help SVP

 

@+

 

tof

[(gile)]

Salut,

 

La demande n'est pas claire.

 

Essaye ça :

 

(defun c:l2pl (/ ss)
 (if (setq ss (ssget "_X" '((0 . "LINE"))))
   (progn
     (if (= (getvar "PEDITACCEPT") 1)
(command "_.pedit" "_m" ss "" "_j" 0.0 "")
(command "_.pedit" "_m" ss "" "_y" "_j" 0.0 "")
     )
     (command "_.ucs" "_ob" (entlast))
   )
 )
 (princ)
) 

[tofjo]

Oula

 

encore merci...

 

mais est il possible de mettre le scu dans un angle? (c'est à dire quand la polyligne fait un angle? ex: ------------I

I

I

I

 

et de plus est il possible d'obliger l'enregistrement en dxf version 2000?

 

@+

tof

[lecrabe]

 

Hello

 

Pour "obliger" l'enregistrement en DWG 2000 :

 

Outils / Options / Onglet "Ouvrir et Enregistrer"

 

Dans le 1er ascenseur en haut et à gauche, tu choisis "DWG 2000"

 

Le Decapode

 

[tofjo]

merci le crabe

 

mais je demande pour inclure dans le code du lisp....

car j'ai une grande quantité de fichiers à traiter......

[lecrabe]

 

Hello

 

Je ne comprend pas ton probleme !

 

Avec ce paramétrage, chaque fois que tu fais "Enregistrer" ou "Enregistrer sous"

c'est le format DWG 2000 qui est utilise

et DE MEME pour un programme en Lisp/VLisp/VBA/ARX/etc

 

Le Decapode

 

[tofjo]

bonjour

 

désolé mais c'est en dxf v 2000 que je veux enregistrer ces fichiers. Mais je ne veux pas changer le parametrage de mon autocad car je m'en sert par ailleurs.....

 

Et pour le scu dans un angle de ma polyligne (enfin quand elle change de direction)? pas d'idée ?

 

merci

 

@+

tof

[(gile)]

désolé mais c'est en dxf v 2000 que je veux enregistrer ces fichiers. Mais je ne veux pas changer le parametrage de mon autocad car je m'en sert par ailleurs.....

 

Tu peux spécifier "DXF AutoCAD 2000" le temps du script et remettre tes paramètres ensuite.

 

Et pour le scu dans un angle de ma polyligne (enfin quand elle change de direction)? pas d'idée ?

 

Il y a sûrement un moyen, mais ta demande est très spécifique et je n'ai pas trop de temps en ce moment.

[tofjo]

merci gile

 

tant pis je vais quand même pouvoir utiliser ce lisp

 

merci encore

 

@+