Lister les propriétés et les méthodes

[Invité Patrick]

Pour lister les propriétés et les méthodes d'un objet, vous pouvez utiliser en Visual LISP ce petit programme:

 

(defun C: DUMP ( / ent obj)

(while (setq ent (entsel “\nSélectionnez l'objet: “))

(setq obj (vlax-ename->vla-object (car ent)))

(vlax-dump-object obj T)

(vlax-release-object obj)

)

(princ)

)

 

Ce programme n'est pas de moi mais de David Stein.

 

[Edité le 17/3/2003 par Patrick]

 

[Edité le 17/3/2003 par Patrick]

[CoolM@n]

J'ai une fontion moins évoluée, snif...

qui donne les 'group-code' d'une entité, du type (0 . "LINE").

Cadeau:

 

(defun c:ENT ( / y x st )

(setq y (entsel"\nCliquez un objet sur l'ecran:\n"))

(IF (/= nil y)

(PROGN

(setq x (entget (car y )))

(command "textscr")

(terpri)

(setq st 0)

(Repeat (Length X)

(progn

(print (Nth ST X))

;; (terpri)

(setq st (1+ st))

)

 

)

)

(Alert "Aucune Entite selectionnee !")

)

(princ)

)

 

--

Jean-Paul Remacle