Tester l\'existence d\'un calque

[lenoil]

Bonjour à tous,

 

comment faire en lisp pour tester l'existence d'un calque ?

Y a t-il une commande spécifique ?

 

Avez vous un exemple

 

Merci

[Tramber]

(tblsearch "layer" "0")
(tblsearch "layer" "tartampioninexistant")

 

renvoient respectivement :

 

((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))

et

nil

[capde06]

(if (not (tblsearch "LAYER" "test")) ;;recherche du calque "test"

(command "_layer" "_N" "test" "") ;;si il existe pas. creation du calque "test"

) ;_ Fin de if

(command "_layer" "_set" "test" "") ;;calque courrant "test"

 

et voila

 

[lenoil]

merci beaucoup

 

C parfait

[Bred]

... ou encore :

(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (not (tblobjname "LAYER" "Mon_calque"))
   (vla-add (vla-get-Layers AcDoc) "Mon_calque"))

 

[Edité le 9/5/2007 par Bred]