pmaille

[infocarte]

Bonjour,

Je cherche un prog qui transforme les pmaille en polylignes fermées (en auto sur un dessin entier)

[Tramber]

en polylignes 3D ou polylignes 2D (+ compliqué, il faut adapter les SCU à chacune) ?

[infocarte]

polylignes 2D. élimination de la 3D

 

Je ne suis pas un spécialiste du script...

[Tramber]

Ah d'accord, c'est la projection 2D des contours d'un maillage ?

 

Et non pas le contour de chaque facette ?

 

Il faudrait + d'explications ou une image.

 

Quand la formulation sera bonne il suffira de publier la question dans le dossier Lisp, j'y répondrai peut-être si j'ai du temps

[infocarte]

Exactement, projection 2D

Comment fait on pour publier la question ??

 

 

[Tramber]

Dis-donc, c'est plutôt rare les pmaille dans un dessin, ca viendrait pas d'une appli ?

 

Au fait, on est sous AutoCAD 14 ou pas ?, car ca peut poser un problème en programmation.

[Tramber]

voir ce fil de discussion par exemple (ou rechercher dans les forums avec APLATIR ou FLATEN

 

ou télécharger le DWGgateway de solidworks pour enregistrer au format DXF 2.5

Ca marche, ca aplati mais ca ne fait pas une poly2D.

[Tramber]

(defun c:transm(/ ent li p)
 (setq ent(car(entsel)))
(setq li nil)
 (if(=(cdr(assoc 0 (entget ent)))"POLYLINE")
   (if(=(cdr(assoc 0  (entget(entnext ent))))"VERTEX")
     (while(= (cdr(assoc 0  (entget(setq ent (entnext ent)))))"VERTEX")
(setq li (append li (list(cdr(assoc 10  (entget ent)))))))
     )
   )
 (setq li(cdr(reverse li)))
 (command "_pline" (foreach p li (command p)) (command) )
 (command "chprop" (entlast) "" "co" 1 ""); LIGNE FACULTATIVE (COULEUR 1)
 )

 

Attention, ca supprime un point sur les Maillages polyfaces (c'est du vite fait pour AutoCAD 14)

 

Charger le lisp, lancer TRANSM

 

La poly commence à l'altitude du premier point.

La descendre à zéro avec un filtre en Z ou cette macro:

 

_move;_L;;0,0,0;0,0,1e99;_move;_p;;0,0,0;0,0,-1e99;

 

;)

 

PS : pour le dessin entier, on verra + tard ou dans le forum lisp

 

[Edité le 29/7/2005 par Tramber]

[infocarte]

Désolé ca ne marche pas, ca crée tout un tas de lignes mais pas une poly

Je peux peut etre vous envoyer un exemple de fichier (autocad 14 ou autocad 2000)

Cordialement

 

[Tramber]

oui: ab-cad arobase wanadoo.fr