[RESOLU] ajouter préfixe/suffixe sur attribut ALT

[ssalle]

Bonjour à tous,

 

Je souhaiterai ajouter un préfixe et un suffixe à un attribut ALT d'un point topo (qui est en réalité une charge dans mon cas); de telle manière que l'attribut passe de "0.90" à "(ch 0.90)".

 

Est-ce possible?

 

On a testé et trouver d'autres solutions avec des étiquettes mais ça demande plus de manip c'est donc moins intéressant.

 

Merci par avance, Seb.

[lecrabe]

Hello

 

YES avec Covadis, il faut utiliser la chaine magique $VAL ! ... Merci Guillaume ...

Pour ajouter un Prefixe sur TEXT/ATTR : prefixe$VAL

Pour ajouter un Suffixe sur TEXT/ATTR : $VALsuffixe

 

Sinon voir la routine LSP ci-apres ... Tiree de mon stock de qq milliers de routines ...

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite

 

;; 
;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/add-prefix-suffix-to-specific-attirbute/td-p/5384349
;; 
;; Routine: Attr_TAG_Prefix_Suffix by hmsilva - Based on a Lee-Mac Routine 
;; 
;; Micro-Modif par Patrice B. - Demande du Nom EXACT de l Attribut : attr_tag
;;                  ATTENTION : le Nom de l Attribut est sensible A LA CASSE ! 
;; 

(defun c:Attr_TAG_Prefix_Suffix (/ as el en i ss str typ attr_tag) 

; (setq attr_tag "T-S")  ;; Attribute Tag Name : Please modify here ! 

 (setq attr_tag (getstring (strcat "\ATTENTION: NO Error Management - So please the EXACT Name ! \nEXACT Name of the Attribute Tag (ATTDEF) ? : "))) 

 (initget "Prefix Suffix")
 (setq typ (cond ((getkword "\nAdd Prefix or Suffix? [Prefix/Suffix] <Prefix> : "))
                 ("Prefix")
           )
 ) 

 (setq str (getstring t (strcat typ " to Add: "))) 

 (if (setq ss (ssget '((0 . "INSERT") (66 . 1))))
   (repeat (setq i (sslength ss))
     (setq en (ssname ss (setq i (1- i))))
     (while (eq "ATTRIB" (cdr (assoc 0 (setq el (entget (setq en (entnext en)))))))
       (setq as (cdr (assoc 1 el))) 

       ( if (= (setq tg (cdr (assoc 2 el))) attr_tag )  ;; ATTR_TAG

         (if (eq "Prefix" typ)
           (if (not (wcmatch as (strcat str "*")))
             (entmod (subst (cons 1 (strcat str as)) (assoc 1 el) el))
           )
           (if (not (wcmatch as (strcat "*" str)))
             (entmod (subst (cons 1 (strcat as str)) (assoc 1 el) el))
           )
         )
       )
     )
   )
 ) 

 (princ) 
)  

[Olivier Eckmann]

Bonjour,

 

Covadis Edition / Points topographiques / Informations dans altitude

 

Olivier

[ssalle]

Merci à vous deux.

 

Je dois avouer que je n'ai pas réussi à utiliser le Lisp.

Mais la solution d'Olivier est tellement plus simple...

 

Seb.

[SuperNoob]

Bonjour,

 

Covadis Edition / Points topographiques / Informations dans altitude

 

Olivier

 

+1 Trop bien Merci