garder polyligne apres explosion bloc

[djn06]

Bonjour

 

Voila mon souci aujourd'hui, comment faire pour garder une polyligne intacte apres explosion du bloc ou elle se trouvait ? je m'explique, j'ai un profil géologique avec plusieurs couches délimitées par des polylignes, j'en fait un bloc que j'insère avec une echelle en y différente de x , ensuite je l'explose et mes polylignes se transforme en ligne, y'a t'il une manip qui m'echappe (j'ai fait une recherche dans les forums mais avec 50322 réponses ça me calme un peu), merci d'avance

[Patrick_35]

avec 50322 réponses ça me calme un peu

Au moins, il y a le choix ;)

A part remettre le facteur x identique au facteur y ou inversement, il reste le lisp

 

@+

 

[esbe]

salut

 

tu m'etonnes

tu es sur de ne pas exploser deux fois tes blocs parce qu'un bloc créé avec des polyligne reste un ensemble de polylignes !

 

bon courage

[esbe]

excuses moi djn

 

j'avais zappé les histoires de x et

;)

[Patrick_35]

Et non, si le facteur d'echelle x<>y, lors de _explode, toutes les polylignes deviennent des lignes :exclam:

 

@+

[Tramber]

Charge ce lisp et lance EXPLO

 

(defun c:expo ( / *peditaccept* dern expl laliste lasel)
(setq *peditaccept*(getvar "PEDITACCEPT"))(setvar "PEDITACCEPT" 1)
(setq dern(entlast))
(setq expl(car(entsel)))
(command "_explode" expl "")
(setq laliste nil lasel (ssadd))
(while(entnext dern)(setq laliste(append laliste(list(setq dern(entnext dern))))))
(foreach p (cdr laliste)(setq lasel(ssadd p lasel)))
(command "_pedit" (car laliste)  "j" lasel "" "")
(setvar "PEDITACCEPT" *peditaccept*)
)

 

Ca devrait marcher, c'est un code vite fait.

En cas d'erreur PEDITACCEPT (le fameux message "voulez-vous la transformer en polyligne" à la saisie d'une première ligne) peut sauter, mais rien de grave.

[djn06]

merci tramber, j'essaierai demain au bureau

 

bonne soirée