ce sont les points topo cette fois-ci

[Dietrich]

re !

 

j'ai reçu il y a quelques temps un levé topo d'un confrere que j'ai intégré a un complément fais par nous meme.

 

je me trouve aujourd'hui a devoir faire un mnt sur la totalité de l'opération, mais voila... je n'y arrive pas.

 

nos points (dans le cadre de droite sur le fichier joint) ont l'air correct, mais ceux du confrere (cadre de gauche) si ils ont l'apparence, et le nom, ne sont pas reconnu par covadis comme des bloc point.

 

n'etant pas un grand specialiste de ce genre d'affaire, merci de bien vouloir m'aider.

 

lien pour dl le fichier exemple : http://dl.free.fr/lhabSa3vg

 

autocad Map3D 2008 + covadis 12.0d

[G_P_TP]

bonjour.

 

les attributs des blocs sont Z et M et non ALT et MAT. Donc pas reconnu par covadis comme points topo.

 

Reste à voir comment changer le nom des attributs sans perdre leurs valeurs.... je regarde plus tard si j'ai le temps...

 

 

a++

[G_P_TP]

commande BATTMAN pour renommer les attributs. a++

[Dietrich]

l'homme chauve-souris au secour des acadophiles !

merci G_P_TP, je vais appliquer de suite cette fonction.

 

edit : meme BATTMAN ne reconnais pas ces entités... et l'editeur d'attribut de covadis de peux pas non plus les renommer !

[lovecraft]

Bonjour Torrent 14,

 

Afin que nous puissions t'aider, il faudrait que tu déposes ton fichier afin de le partager.

 

Cordialement,

 

Laurent

[G_P_TP]

chez moi battman marche mais j'ai travaillé dans un dessin où j'ai laissé que les points défectueux (et purgé de tout le reste)...

 

 

 

l'homme chauve-souris au secour des acadophiles !

merci G_P_TP, je vais appliquer de suite cette fonction.

 

edit : meme BATTMAN ne reconnais pas ces entités... et l'editeur d'attribut de covadis de peux pas non plus les renommer !

[Dietrich]

@lovecraft : il est dispo en message 1 !!!

 

@G_P_TP : quand bien meme, il ne me donne pas la main sur le nom des etiquettes !

[DaWeeD_Gab]

Bonjour,

j'ai essayé pas mal de trucs sur le fichier mais rien ne marche !

Peut-être faut-il décomposer les blocs (cov edition - décomposition) et refaire des point topos à partir des entités points générées par la décomposition en utilisant UN SEUL TCPOINT avec les mêmes attribut que les tiens.

Tu peux aussi essayer de transférer le message dans le sous-forum COVADIS de CADXP pour avoir plus de réponses ! ;)

Bon courage !

[lovecraft]

Bonjour Torrent 14,

 

Tu trouveras ci-dessous une solution possible en vidéo. (je n'avais pas de micro donc pas de son) mais elle doit être compréhensible.

 

Lien du fichier: https://www.asuswebstorage.com/navigate/share/GY4N9WNXF4

 

 

 

La solution consiste à passer par l'extraction de données puis à la réinsertion des points via covadis.

 

Merci de ton retour,

 

Cordialement,

 

Laurent

[vincentp010]

Salut, j'ai fait ce petit bout de lisp

(defun c:renatt (/ bname mattrib aattrib lst nb nb1 blk attr a)
 
 (vl-load-com)
 (setq bname (getstring T "nom du bloc a modifier les attributs: "))
 (setq mattrib (getstring T "attribut a remplacer par MAT: "))
 (setq aattrib (getstring T "attribut a remplacer par ALT: "))
 
 (setq lst (ssget "x" (list (cons 2 bname))))
 (setq nb (sslength lst))
 (setq nb1 0)
 (while (< nb1 nb)
   (setq blk (ssname lst nb1))
   (setq blk (vlax-ename->vla-object blk))
   (setq attr (vlax-invoke blk 'getattributes))
   (foreach a attr
     (setq AttName (vla-get-TagString a))
     (if (= AttName mattrib) (vla-put-TagString a "MAT"))
     (if (= AttName aattrib) (vla-put-TagString a "ALT"))
   )
   (setq nb1 (+ nb1 1))
 )
 
)

 

Dans ton cas le nom du bloc est TCPOINT

l'attribut à remplacer par MAT est M

l'attribut à remplacer par ALT est Z

Modifié le 15 mars 2012 par vincentp010

[Dietrich]

question sans doute bete, mais comment utiliser ce lisp ?

[vincentp010]

Pour le charger dans autocad tu as 2 solutions:

- tu peux le coller sur la ligne de commande d'autocad

- tu le sauvegarde avec le bloc note dans un fichier (exemple "c:\renatt.lsp") puis tu le charges avec outils -> autolisp -> charger une application

Ensuite tu tapes renatt pour le lancer

[DaWeeD_Gab]

Bonjour Vincentp010,

 

lorsque je lance le lisp j'ai ce message :

 

; erreur: no function definition: VLAX-ENAME->VLA-OBJECT

 

bon, je suis en 2012 c'est peut-être la cause?

Cordialement,

David

[vincentp010]

A oui zut!

juste en dessous la ligne (defun () ajoute (vl-load-com) pour charger les fonctions visual lisp

[Dietrich]

je ne parvient pas a utilser ton lisp, j'ai tenter de le coller dans la ligne de commande, il me demande de choisir les entiter, puis rien !!!

[DaWeeD_Gab]

A oui zut!

juste en dessous la ligne (defun () ajoute (vl-load-com) pour charger les fonctions visual lisp

 

Yes ! ça fonctionne nickel ! toujours intéressant comme lisp !

merci, bonne journée