fonction décomposer

[challenge75]

Peut-on obtenir un équivalent de la fonction décomposé d'autocad en lisp.

[Patrick_35]

Oui, en vlisp avec (vla-explode mon_objet_vla)

 

@+

[Bred]

Salut,

 vla-explode

je pense....

 

[Patrick_35]

Tiens, un écho.

 

@+

[challenge75]

ok,je n'ai plus qu'a mettre en forme,Merci.

[(gile)]

Quelques précisions sur (vla-explode objet)

 

L'objet décomposé n'est pas supprimé du dessin.

 

La fonction retourne la liste des vla-objets générés par la décomposition sous forme de variant, pour avoir le retour sous forme de liste, on peut faire :

 

(vlax-safearray->list

(vlax-variant-value

(vla-explode objet)

)

)

 

ou, plus simplement :

 

(vlax-Invoke objet 'Explode)

[Steven]

Quel avantage y a-t-il d'avoir la commande décomposer sous cette forme?

[(gile)]

 

C'est pour utiliser dans un LISP, il peut être intéressant de récupérer les nouvelles entités directement sous forme de liste, comme il peut être utile de concerver l'objet qui a été décomposé.

 

Je m'en suis servi dans Fusion qui fusionne des polylignes fermées contigües ou encore dans R2PL qui transforme des régions en polylignes. Si la région explosée est uniquement composée de lignes et arcs, on supprime la région source et on reconstitue une polyligne aves les arcs et lignes, sinon on supprime les objets générés par la décomposition et on conserve la région.

 

[Edité le 14/2/2007 par (gile)]

[Steven]

Merci pour l'éclaircissement ;)

[BTO]

:o

Je viens de le revérifier sur map 3D 2007 (il me semble que c'est apparu avec autocad 2004)

 

 
(setq objName (vlax-ename->vla-object (setq ename (car (entsel)))))
(vla-explode objName)

 

A moins que quelque chose de nouveau m'ait échappé,

malheureusement la méthode explode est bugguée et ne fonctionne pas sur les blocs avec une échelle non uniforme (on obtient même une erreur).

 

Bruno Toniutti

 

 

[Edité le 23/2/2007 par BTO]

[Patrick_35]

Ah oui, c'est exacte

Même avec un

(vlax-invoke objName 'explode) 

:(

 

Il ne reste plus qu'a faire

(vl-catch-all-error-p (vl-catch-all-apply 'vla-explode (list objName)))

A moins de parcourir la table du bloc et à le dessiner :o

 

@+