CONVERTPOLY mais plus efficace.

[CADaSchtroumpf]

Bonjour,

Pour bien illustrer ma demande, dessinez un polyligne légère (LWPOLYLINE) avec ou sans arc.

Utilisez la commande PEDIT sur cette dernière et prenez l'option "Ajuster" (_Fit)

Vous obtenez alors un polyligne lourde lissée avec des arcs (POLYLINE)

CONVERTPOLY ignore ce type de polyligne (drapeau du code DXF 70 à 2) pour convertir cette polyligne.

Le seul moyen et DECOMPOS (_EXPLODE) cette dernière et avec PEDIT de recomposer une polyligne avec tout les segments pour obtenir une polyligne légère.

Ponctuellement c'est une bonne solution, mais si vous devez l'appliquer à de nombreuses polylignes ça devient rébarbatif.

Est-ce que quelqu'un voit une solution en lisp pour faire cette conversion?

Ma demande est en quelque sorte un challenge car je n'ai rien trouvé sur le net (ou je suis passé à côté!)

NB: Je suis capable d'écrire ce lisp, mais il me faudrait une orientation/idée de départ car je ne sais comment prendre cette problématique (si convertpoly ne le fait pas! il doit y avoir un point qui pose problème ou est complexe à résoudre)

[braudpat · Accepted solution]

Hello @CADaSchtroumpf

Bon je te propose une routine ... Voir le LSP joint (02/2008) ...

Je me demande bien qui a ecrit cette routine !?

SVP je te propose de l'ameliorer :

- 1 - Conserver les XDATAs

- 2 - Et faire appel a COPY_OD.lsp (que l'on suppose pre-charge avant) afin de garder les ODs de MAP

MAIS il faut tester la presence de la routine COPY_OD

Ainsi quand on n'est pas sur un MAP (ou un CIVIL) la routine ne plantera pas !

Regards, Patrice

[CADaSchtroumpf · Accepted solution]

Arrf...! 

Merci au bibliothécaire du lisp de me rappeler l'auteur de ce lisp.

J'sais même plus ce que j'écris tellement mon dossier est plein...

Tu m'as éviter de réécrire un code déjà existant, ce qui m'a trompé c'est que j'étais parti sur du (vla-getBulge) et que celui ci retourne une erreur sur des polylignes lourdes, mais en fait les code DXF sont plus simple avec un (entmake).

Donc pour te remercier de monter que je suis neu-neu, je répond à ta demande.

Nb: J'ai pas pu tester sur une version autre que Map, mais je pense que ça passe en vanilla...

Pour civil3D il me faudrait le retour de ce qui suit en ligne de commande pour compléter le lisp.

(vla-get-caption (vlax-get-acad-object))

[braudpat]

Hello @CADaSchtroumpf

Comme tu le sais, je dois avoir environ 1500 LSP provenant de cadxp.com ...

Youpee quel plaisir de t'avoir aide ! ... MERCI ton nouveau LSP fonctionne a merveille ...

Des que j'ai la ligne provenant d'un ACAD CIVIL 2019/2018, je te fais passer l'Info !

Happy WE, Regards, Patrice

[patrick.emin]

Bonjour @CADaSchtroumpf

Si une des réponses résout votre problème ou vous a permis de mieux le comprendre, voulez vous avoir l'amabilité de cliquer sur le bouton "Accepter comme solution" en bas de la réponse qui apporte une solution?

Merci de ne pas accepter comme solution le message que vous êtes en train de lire.