Champ "description" d'un calques

[BiMBaMBen]

Bonjour,

Merci de m'accueillir pour cette première demande que je n'ai pas résolu seul.

Afin d'automatiser mes légendes, existe-t-il un champ pour la valeur "description" d'un calque?

 

Cordialement

[lecrabe]

Hello

 

1) Je ne pense pas ! Mais en attente d'autres reponses !?

 

2) Sinon j'utilise un petit Lisp SYMPA "Layer_Legend_Descr" pour certaines legendes !

Ce Lisp te fait une legende avec un trait, le nom du calque et la description du calque ...

 

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

Automne 2020, la retraite

 

;; 
;; Routine: Layer_Legend_Descr by Ranjit.Singh for Patrice
;;
;; ATTENTION: No Error Trap/Detection ---> So please be careful !
;; 

(defun c:Layer_Legend_Descr  (/ pt rsp dat ln lst desln)
(initget "All Select")
(setq pt (getpoint "\nSelect Insertion Point: "))
(initget "Select All")
(setq rsp (getkword "\nSpecify Option [select / All] <All>:"))
(cond ((= rsp "Select")
       (mapcar '(lambda (x) (setq pt (func_2 pt x)))
               (progn (acad_strlsort (mapcar '(lambda (x) (and (null (member x lst)) (setq lst (cons x lst))))
                                             (mapcar '(lambda (x) (cdr (assoc 8 (entget x))))
                                                     (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget)))))))
                      lst)))
      (t (while (setq dat (tblnext "layer" (null dat))) (setq pt (func_2 pt (cdr (assoc 2 dat)))))))
(princ)) 

(defun func_2  (pt ln / desln)
(entmake (list '(0 . "line") (cons 10 pt) (cons 11 (mapcar '+ pt '(2.5 0))) (cons 8 ln)))
(entmake (list '(0 . "text") (cons 10 (mapcar '+ pt '(3.0 0))) '(40 . 0.1) (cons 1 ln) (cons 8 ln)))
(if (zerop (strlen (setq desln (getpropertyvalue (tblobjname "layer" ln) "Description"))))
 ()
 (entmake (list '(0 . "text") (cons 10 (mapcar '+ pt '(4.5 0))) '(40 . 0.1) (cons 1 desln) (cons 8 ln))))
(mapcar '- pt '(0 0.15))
) 

[BiMBaMBen]

Merci, je vais tester