Equivalent VLISP

[l56]

Bonjour,

 

(tblsearch "LAYER" "0")

 

Renvoi :

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

 

mais c'est une liste bien pauvre.

Il manque :

- la transparence

- l'épaisseur de ligne

- Etc ...

 

Peut-etre qu'avec VLISP ce doit etre possible ...

mais comment trouver l'équivalent en VLISP d'une fonction LISP ?

 

Merci à ceux qui savent

Cordialement,

[didier]

Coucou

 

Avec ça :

 

(entget (tblobjname "layer" "0"))

 

Je pense que tu vas avoir une liste DXF (j'ai rien sous la main pour vérifier, pardon)

 

Amicalement

 

[(gile)]

Salut,

 

Il y a 3 façons d'accéder aux propriétés d'un objet en LISP :

- les données DXF, c'est la méthode "classique" avec la fonction entget comme l'a montré didier.

- les propriétés COM/ActiveX, avec les fonctions vla-. On liste les propriétés avec la fonction vlax-dump-object :

(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq layers (vla-get-Layers doc))
(vlax-dump-Object (vla-Item layers "0"))

- les propriétés ObjectARX exposées aux fonctions getpropertyvalue et setpropertyvalue qu'on peut lister avec la fonction dumpallproperties :

(dumpallproperties (tblobjname "layer" "0"))

[l56]

Bonjour,

Désolé de répondre si tard.

Merci beaucoup pour vos réponses.

C'est parfait !