这是dump对象的lisp
- ;;;===================================================================;
- ;;; DumpIt ;
- ;;;-------------------------------------------------------------------;
- ;;; Dump all methods and properties for selected objects ;
- ;;;===================================================================;
- (defun C:DumpIt ( / ent)
- (while (setq ent (entsel))
- (vlax-Dump-Object
- (vlax-Ename->Vla-Object (car ent))
- )
- )
- (princ)
- )
|