Insérer automatiquement un bloc en fonction du topocod

[Seb]

Bonjour à tous,

 

Après avoir "écumé" divers forums et vu plusieurs soluces non-adaptées ( gile, tabloblo, etc...), je m'en remets à vous.

 

J'ai des points topo levés et je voudrais insérer un bloc sur certains points topo en fonction de leur topocod.

Pour être plus clair, j'ai besoin de trianguler des bouches à clé et sur des chantiers avec prés de 100 branchements, çà devient fastidieux de copier-coller mon bloc de 3 cotations sur chaque BAC; y'a t il une fonction covadis ou un lisp qui peut reconnaître un point topo en fonction de son nom (BAC23, BAC5, etc...) et lui coller mon bloc de cotation?

 

Merci de vos réponses.

[didier]

Coucou

 

Je pense la géo-codification

Mais il y a tellement longtemps que je n'ai pas fait ça que je préfère laisser la parole aux spécialistes qui ne sauraient tarder

Toutefois si le "code" est dans un attribut il n'y a rien de compliqué de faire ce que tu demandes a posteriori

Du moins pour insérer un bloc, car pour y mettre des attributs il faut savoir QUOI y mettre

 

Amicalement

[Olivier Eckmann]

Bonjour,

 

1. Afficher la liste des points topo

2. trier par code et sélectionner les points concernés, puis clic-droit : Ajouter au jeu de sélection. Quitter le dialogue, les points topo sont sélectionnés

3. Cov2D / Symboles / Insérer symboles tous

4. Choisir le bloc à insérer, puis en ligne de commande au moment où Covadis demande le point d'insertion, prendre l'option POINTS qui permet de sélectionner des points topo

5. A l'invite de sélection des points topo, taper P pour rappeler la sélection précédente.

 

Olivier

[GEGEMATIC]

Salut,

mon bon vieux PowerClic fait ça en 2/2

Plug-in selectbyattrib

plug-in point2block

 

mais bon, pour trianguler des point, une commande lisp à 3 getpoint 3 vl-cmdf, ça serait eput être encore plus efficace, non ?

a+

Gégé

[lecrabe]

Hello

 

Sinon sans Covadis, j ai une routine qui insere un Bloc precis en XYZ sur les Points graphiques selectionnes ...

 

D'ailleurs j'ai la "meme" routine qui insere un Bloc precis sur les Cercles ou Textes selectionnes ...

 

Bloc precis sur les Cercles : quand on fournit par exemple des cercles pour materialiser des arbres !?

 

Bloc precis sur les Textes : quand on fournit par exemple une simple lettre (ou plusieurs) pour materialiser XXXXXX !?

 

Bye, lecrabe "triste"

 

;;; 
;;; Routine pour inserer un Bloc sur des points graphiques
;;; Micro-Modif par Patrice 
;;; Commande:  P2B  -  Routine:  P2B  v1.1 
;;;
;;;--------------------------------------------------------------------;
;;; PNT2BLK.LSP -  July 2001 - Original Routine 
;;; Place a block object in the location of selected point objects.
;;;--------------------------------------------------------------------;
;;; Function: PNT2BLK --> P2B 
;;;
;;; function to convert point objects to blocks.
;;; block must be defined in the current drawing
;;; blocks including attdefs will not address the attributes
;;; if the block references attdefs with default or constant values, 
;;; these will be populated.
;;;*********************************************************************
;;; 

(defun c:p2b (/ ss ct len e eb bname pt attreqhold echohold)

;;; get command echo setting and store it
(setq echohold (getvar "CMDECHO"))

;;; set command echo off
(setvar "CMDECHO" 0)

;;; get attribute request setting and store it
(setq attreqhold (getvar "ATTREQ"))

;;; set attribute request off
(setvar "ATTREQ" 0)

;;; get name of block to insert 
;;; (setq bname (getstring "\nBlock name: "))
;;; Avec la Modif pour accepter des Blancs/Espaces dans le Nom du Bloc
(setq bname (getstring T "\nBlock name: "))

;;; check that the block is defined in the current drawing
(if (tblsearch "block" bname)
(progn

;;; prompt for point selection
(princ "\nSelect Point objects: ")

;;; --- if point objects were selected ---

(if (setq ss (ssget '((0 . "POINT"))))

(progn

;;; walk through point objects
(setq len (sslength ss))
(setq ct 0)
(while (< ct len)

;;; for each point
(setq e (ssname ss ct))
(setq ct (+ ct 1))
(setq eb (entget e))
;;; get insert point
(setq pt (cdr (assoc 10 eb)))
;;; insert block
(command "_insert" bname pt "" "" "")
)
)

(princ "\nNo point  objects selected.")

)
)
(princ "\nInvalid, block not defined in drawing.")
)

;;; restore command echo setting to stored value
(setvar "CMDECHO" echohold)

;;; restore attribute request setting to stored value
;;; (setq attreqhold (getvar "ATTREQ"))
(setvar "ATTREQ" attreqhold)

(princ)
) 

[Seb]

Bonjour,

Bonjour,

 

1. Afficher la liste des points topo

2. trier par code et sélectionner les points concernés, puis clic-droit : Ajouter au jeu de sélection. Quitter le dialogue, les points topo sont sélectionnés

3. Cov2D / Symboles / Insérer symboles tous

4. Choisir le bloc à insérer, puis en ligne de commande au moment où Covadis demande le point d'insertion, prendre l'option POINTS qui permet de sélectionner des points topo

5. A l'invite de sélection des points topo, taper P pour rappeler la sélection précédente.

 

Olivier

Simple, efficace, pas automatique mais super pratique et à ma portée...

 

Pour les autres réponses, je cherche, je me renseigne, j'essaie d'apprendre et de comprendre quoi...