COPIE ATTRIBUTS BLOC POINT

[lili2006]

Bonjour à toutes et tous,

 

Afin de ne faire figurer que l'altitude de certains points topo sur mon plan (ici), je souhaite pouvoir copier l'attribut "ALT" sur le même calque que le point, à savoir "0-z filtre" afin de pouvoir n'activer que ce calque, donc éteindre les calques "Topojis,Topo alt, Topo mat" originaux.

 

Peut-être existe t-il une routine qui existe déjà,...

 

Sinon, merci d'avance à ceux qui vondront bien tester,..

 

 

[didier]

coucou

 

je ne sais pas exactement ce que tu veux faire

mais je crois comprendre que tu veux cacher certaines valeurs altitudes

 

comme bien des gens, tu va sélectionner CE QUE TU NE VEUX PAS MONTRER

j'ai pris le problème à l'envers et je choisis CE QUE JE VEUX MONTRER

il y a bien moins de points dont l'altitude sera visible

que de points mesurés

Exemple :

(while

(setq bloc (car (entsel "\nChoix de l'altitude à traiter")))

(setq ent2 (entnext (entnext bloc)))

(setq z (cdr (assoc 1 (entget ent2))))

(command "-ATTEDIT" "" "" "" "" ent2 "A" pause "")

(command "-ATTEDIT" "" "" "" "" ent2 "PO" pause "")

(command "chprop" ent2 "" "_la" "calque des Z visibles" "")

)

 

amicalement

[lili2006]

Re,

 

Merci de ta réponse didier, mais ce que je voudrais faire pour tous les blocs points que je veux copier avec l'altitude,c'est ça.

Ce qui me permet de geler le calque du bloc point (Topojis), celui des Matricules (TopoMat) et enfin celui des Altitudes (TopoAlt).

 

Le but, est tu le connais en tant que Géomètre, est de définir une densité suffisante de points à l'écran connus en "Z" (sur le calque " 0-z filtre" dans mon exemple) afin, d'un rapide coup d'oeil, de se faire une idée de la topographie des lieux.

 

Merci encore.

 

PS: Bien sur sans la très fameuse commande "Cov.Edition => Points Topographiques => Change calque Point/MAT/ALT". Je veux pouvoir faire cette opération que avec AutoCAD,...

 

[Edité le 19/4/2008 par lili2006]

[didier]

hello,

 

je suis en bonne place pour revendiquer

le statut de benêt en chef,

je ne vois pas ce que tu veux faire de plus que de changer l'attribut de calque

avec l'exemple de Lisp que j'ai tapé, ça le fait...

 

plus d'explications ?

 

amicalement

[lili2006]

Re,

 

Fait avec la commande covadis cité plus haut.

 

Merci encore,

[didier]

coucou

 

ouh lalala !!!

 

va t'on se comprendre un jour ?

 

qu'est ce que tu veux obtenir ?

en français dans le texte ...

 

est ce qu'il faut changer le point de calque d'insertion

puis de mettre les attributs de ce point dans des calques

avec le nom du calque d'insertion

complété d' un suffixe

alt filtrées

et mat filtrés

?????

 

amicalement

[lili2006]

Re,

 

Dans l'ordre => (Si je n'ai que AutoCAD, tu connais déjà la fonction "Cov.Edition => Points Topographiques => Change calque Point/MAT/ALT").

 

1) Je copie les points topos qui m'intéresse (avec la fonction : Format => Outils de calque => copier les objets dans un nouveau calque de AutoCAD V2008!) sur le calque " 0-z filtre" de cet exemple.

 

<!--url{1}-->

 

2) Je voudrais pouvoir alors modifier le calque de façon systèmatique sur ce bloc point copié l'attribut "ALT" (calque origine => Topo Alt, calque destination souhaité => 0-z filtre). L'attribut "MAT" peut rester dans le calque "TopoMat", puisque je veux également geler cet attribut (ou alors, pareil que pour "ALT", le transférer dans un calque "0-z filtre Mat", par exemple,...)

3) Je gèle les calques " TOPOJIS, TopoAlt, TopoMat" et j'obtiens alors à l'affichage que mes points filtés que je souhaite laisser sur mon plan topo :

 

<!--url{2}-->

 

Autrement dis pareil que lorsque tu fais tes plans topo avec covadis (du moins, je suppose !) mais que avec AutoCAD.

 

J'espère avoir été plus clair, ;)

 

Merci encore.

 

[Edité le 19/4/2008 par lili2006]

[(gile)]

Salut,

 

Un truc de ce genre ?

 

	(defun c:layatt	(/ att elst name lay ent tag loop)
  (while
    (not
      (and (setq att (car (nentsel "\nSélectionnez l'attribut: ")))
	   (setq elst (entget att))
	   (= (cdr (assoc 0 elst)) "ATTRIB")
	   (setq name (cdr (assoc 2 (entget (cdr (assoc 330 elst))))))
      )
    )
     (princ "\nEntité non valide.")
  )
  (while
    (not
      (and (setq lay (getstring T "\nSpécifiez le nom du calque: "))
	   (tblsearch "LAYER" lay)
      )
    )
     (princ (strcat "\nLe calque \"" lay "\" n'existe pas."))
  )
  (setq	ent  (cdr (assoc -2 (tblsearch "BLOCK" name)))
	tag  (cdr (assoc 2 elst))
  )
  (while ent
    (setq elst (entget ent))
    (if	(or
	  (and (= (cdr (assoc 0 elst)) "ATTDEF")
	       (= (cdr (assoc 2 elst)) tag)
	  )
	  (= (cdr (assoc 0 elst)) "POINT")
	)
      (entmod (subst (cons 8 lay) (assoc 8 elst) elst))
    )
    (setq ent (entnext ent))
  )
  (command "_attsync" "_n" name)
  (princ)
) 

 

[Edité le 19/4/2008 par (gile)]

[lili2006]

Re,

 

Merci (gile) pour ta routine.

 

Ce n'est pas tout à fait ça car je voudrais le point et l'attribut "ALT" dans le même calque et pouvoir l'isoler => (Ils sont pourtant bien dans le même calque !!)

 

<!--url{0}-->

 

Actuellement, lorsqu'on isole le bloc point, seul le point reste ! L'ensemble du boc est dans le calque "TOPOJIS"

 

Chez toi aussi ?

 

Si c'était possible, l'idéal serait de pouvoir faire une selection par calque des blocs points à traiter, puisque au préalable ce bloc point est copié, ou mieux peut-être, directement associé l'attribut "ALT" du boc point "TOPOJIS" et transformer ce nouveau bloc point avec pour nom "ZPLAN", par exemple. Il serait alors constitué d'un point (style croix) et de l'attribut ALT.

 

J'espère avoir été clair et ne pas trop en demander non plus,..

 

Je ne sais pas pour vous autres, les topographes, mais moi, j'aimerai bien pouvoir me passer de covadis pour pouvoir faire ça ! (Je n'ai de licences qu'au lycée, alors pour bosser à la maison, c'est pas pratique,..).

 

Merci encore.

 

 

[(gile)]

J'ai modifié le LISP pour que l'attribut et le point changent de calque.

Une fois la commande exécutée si tu isoles le calque, seuls les points et les attributs ALT apparaissent.

 

Sinon je ne comprends pas bien ta demande, le calque sur lequel est un composant de bloc est déterminé dans la définition du bloc, on ne peut pas changer le calque de quelques composant dans quelques références d'un bloc, si on modifie un composant dans la définition, c'est toutes les références qui sont modifiées.

[lili2006]

Re,

 

Merci (gile).

 

Sinon je ne comprends pas bien ta demande

 

Je me suis surement mal exprimé. En fait, je souhaite garder les point du bloc "TOPOJIS", ils me serviront à modéliser en 3D le terrain (sur un plan "projet"), et pouvoir les éteindres sur le plan topo mais activer ceux du calque " 0-z filtre" afin d'avoir une connaissance globale du relief du terrain en quelques secondes. (Densification de l'ordre de 10 %).

 

Je teste ce soir et te tiens au courant.

 

Merci encore.

 

 

[lili2006]

Re,

 

J'ai un nouveau problème (je n'y avais pas pensé,...!).

Quand je suis dans cette config , l'attribut "MAT" de mon bloc copié apparait toujours ! Il faudrait alors, soit le supprimer du nouveau bloc ("ZPLAN", pour reprendre l'exemple précédent), soit l'envoyer vers un autre calque ("0-z filtre MAT", par exemple).

 

Le mieux serait peut-être =>

 

1) Renomer les blocs points copiés ("ZPLAN"),

2) Déplacer dans le calque :

"0-z filtre point", le point,

"0-z filtre Z", l'attribut "ALT"

0-z filtre M", l'attribut "MAT",

 

 

Qu'en penses-tu (gile) ?

 

Laisses tomber si c'est compliqué,...

 

Cette routine me serait très utiles (à d'autres aussi peut-être,...???!!) MAIS n'est pas essentielle !

 

Merci d'avance.

 

[lili2006]

Bonjour à toutes et tous,

 

Je relance ce sujet car j'ai à nouveau ce besoin et toujours pas de solutions satisfaisantes,...

 

Merci d'avance,