Etransmit suivant contour de délimitation

[La Lozère]

Bonjour,

Je m'explique. j'ai un fichier de synthèse composés d'environ 300 xref. Chaque Xref correspond à un élément de mon projet sur un linéaire de 20km.

 

Je dois travailler sur une petite zone (environ 300m). Du coup je voudrais faire une sorte d'Etransmit mais suivant un contour de délimitation me permettant ainsi de ne récupérer dans un ZIP que les xref correspondant à la zone voulue.

 

Est-ce que cette fonction est possible, ou un petit lisp?

 

On pourrait voir la chose différemment. Un lisp qui détacherait toutes les Xref qui sont exclusivement à l'extérieur du contour sélectionné. Et ensuite on pourrait utiliser la commande classique Etransmit.

 

Une idée?

Merci.

[zebulon_]

(defun massoc (key alist / x nlist)
 (setq nlist nil)
 (foreach x alist
   (if (eq key (car x))
     (setq nlist (cons (cdr x) nlist))
   )
 )
 (reverse nlist)
)



(defun c:detxref (/ EPOLY PTLIST SS I NOM selxref lxref bl)

 (command "_.undo" "_group")

 ;; sélectionner un polyligne fermée ou non
 (while
   (not
     (and
       (setq EPOLY (car (entsel "\nSelectionner une polyligne : ")))
       (= (cdr (assoc 0 (entget EPOLY))) "LWPOLYLINE")
     )
   )
 )

 ;; extraire les sommets de la polyligne
 (setq PTLIST (massoc 10 (entget EPOLY)))

 ;; faire un ssget avec ces points
 (setq ss 
   (ssget 
     "_CP"						;; capture polygone
     (mapcar '(lambda (x) (trans x 0 1)) PTLIST)	;; en coordonnées locales
     '((0 . "INSERT"))					;; uniquement les blocs
   )
 )
 (setq I 0)
 (if ss
   (repeat (sslength ss)
     (setq NOM (cdr (assoc 2 (entget (ssname ss I)))))
     (setq I (+ I 1))
     (if (= (logand (cdr (assoc 70 (tblsearch "BLOCK" NOM))) 4) 4)  ;; on ne garde que les xrefs
       (setq selxref (cons NOM selxref))
     )
   )
 )
 ;; obtenir la liste des xrefs présents dans le fichier
 (setq Bl (tblnext "BLOCK" T))
 (while bl
   (setq NOM (cdr (assoc 2 BL)))
   (if (= (logand (cdr (assoc 70 bl)) 4) 4)  ;; on ne garde que les xrefs
     (setq lxref (cons NOM lxref))
   ) 
   (setq BL (tblnext "BLOCK"))
 )
 ;; détacher les xref qui ne sont pas dans selxref
 (foreach nom lxref
   (if (not (member nom selxref))
     (command "_.-XREF" "_d" nom)
   )
 )

 (command "_.undo" "_end")

 (princ)
)

 

je n'ai pas regardé ce que ça donne avec des xrefs imbriqués. Par ailleurs, la sélection se fait par une lwpoly. Si ça doit être autre chose, il faut voir d'utiliser la fonction selobj développée par (gile)

 

Amicalement

Vincent

[La Lozère]

C'est parfait. Merci zebulon.

Encore une routine dans la boite à Lips

[zebulon_]

C'est parfait. Merci zebulon.

Encore une routine dans la boite à Lips

 

Bonjour,

 

content que cela t'aie rendu service. Un cmdecho à 0 rendrait peut être le déroulement des commandes xref plus fluide, compte tenu du nombre !

 

300 xref dans un fichier, cela me laisse rêveur... moi qui n'en ai jamais plus que 2 ou 3, et encore... On ne fait pas le même métier, même si j'utilise aussi des données de tracé routier. Mais pour faire des projets d'ouvrages d'art. Cela reste de ce fait très local et ne mobilise le plus souvent qu'un seul fond de plan topo, le fichier de projet et le fichier du rétablissement. J'ai fait pas mal d'ouvrages, notamment pour la LGV Est, la LGV Rhin-Rhône et la LGV BPL. En ce moment, je travaille sur des réparations d'ouvrages (précontrainte additionnelle) ainsi que sur la sécurisation et la restructuration de la Grande Forme des Chantiers Navals de La Ciotat.

 

Les ouvrages neufs se font rares. Donc, si sur tes 30km de projet, il y a quelques ouvrages à dessiner, je suis preneur !

 

Amicalement

Vincent

[La Lozère]

Hello,

Je travaille sur la LGV CNM, et malheureusement les quelques ouvrages (186) sont terminés/bétonnés.

Donc question boulot, c'est mort, désolé.

 

Merci encore pour la routine.

[zebulon_]

Hello,

Je travaille sur la LGV CNM, et malheureusement les quelques ouvrages (186) sont terminés/bétonnés.

Donc question boulot, c'est mort, désolé.

 

Merci encore pour la routine.

 

tant pis, il faudra sans doute que j'attende un peu pour les réparer...

Des ouvrages neufs, ce sera pour une prochaine fois. Tiens moi au courant le cas échéant.

 

Amicalement

Vincent

[thierry.garré]

Une petite question pour zebulon un peu hors sujet.

 

Les plans d'ouvrage type PI PS tu les dessine avec quoi, et en 2d ou direct en 3d ?

 

Simple curiosité de ma part.

 

Cordialement

[zebulon_]

Une petite question pour zebulon un peu hors sujet.

 

Les plans d'ouvrage type PI PS tu les dessine avec quoi, et en 2d ou direct en 3d ?

 

Simple curiosité de ma part.

 

Cordialement

en 2D avec des détails 3D (géométrie des piles et des culées). Pour la géométrie des tabliers, la 3D apporte peu...

 

Amicalement

Vincent

[zebulon_]

et avec autocad de base, pour terminer la réponse qui était incomplète.

 

Ci-joint le coffrage d'une pile, pour illustrer mon propos. C'est une affaire un peu ancienne, pas encore tombée dans le domaine public, mais on ne m'en voudra pas si je publie ce plan. Il est vrai que, même si c'est moi qui l'ai dessiné, il ne m'appartient pas, mais aux sociétés qui figurent sur le cartouche. On va dire que ça leur fera de la pub... pour autant qu'ils en ont besoin !

 

Le coffrage de la culée est du même tonneau. Le reste (plan d'implantation, coffrage du tablier et tous les ferraillages) sont en 2D.

 

Veux-tu aussi savoir ce que j'utilise pour ferrailler ?

 

Amicalement

Vincent

PS196-PILcof124-D.pdf

[thierry.garré]

Bonjour,

 

Merci pour la réponse.

 

 

Je pose cette question car sur Autopiste on peut maintenant faire apparaître automatiquement les sections des solides 3D sur les profils en travers des terrassements et chaussées. Mais du coups je me demande un peu ou en est l'état du Génie civil en terme de Modélisation 3D des Ouvrages.

 

Cordialement

 

Thierry

[lili2006]

Bonjour à toutes et tous,

 

Magnifique l'architecture de cette pile !! :)

 

Génie civil en terme de Modélisation 3D des Ouvrages.

 

 

J'ai souvent vu des maquettes 3D pour les réponses à concours de la part des Archis mais en ce qui concerne les BE structures pour les plans à destination du chantier, jamais,..

 

Le reste (plan d'implantation, coffrage du tablier et tous les ferraillages) sont en 2D.

 

Veux-tu aussi savoir ce que j'utilise pour ferrailler ?

Héhé, moi je sais,..:P

[zebulon_]

Bonjour,

 

j'ai aussi testé le ferraillage en 3D... Cela donne des fichiers énormes et ça prend du temps, mais ça fait son effet auprès de l'entreprise.

 

Amicalement

Vincent

C1024-B-File3FerraillageSemelle.pdf

[lili2006]

Re,

 

ça fait son effet auprès de l'entreprise.

 

En effet,B)