vlax-dump-object

I would like to save the collections of AutoCAD objects using (vlax-dump-object) to a file not a console window.
Is there any way to do it?

 

I don't know how to retrieve text from the vlax-dump-object function - but you can use the following functions to get an objects available properties and methods:

(defun f:vla-getlist ()
(cond
(*vla-getlist*)
((setq *vla-getlist* (mapcar (function (lambda (x) (substr x 9)))
(vl-remove-if-not (function (lambda (x) (wcmatch (strcase x) "VLA-GET-*"))) (atoms-family 1))
)
);setq
)
)
)

(defun f:vl-property-available (en)
(setq en (f:enx en))
(vl-remove-if-not (function (lambda (x) (vlax-property-available-p en x)))
(f:vla-getlist)
)
)

(defun f:vla-methodlist ()
(cond
(*vla-methodlist*)
((setq *vla-methodlist* (mapcar (function (lambda (x) (substr x 5)))
(vl-remove-if-not (function (lambda (x)
(and
(wcmatch (strcase x) "VLA-*")
(not (wcmatch (strcase x) "VLA-GET-*,VLA-PUT-*"))
);and
)
)
(atoms-family 1)
)
)
);setq
)
);cond
)



(defun f:vl-method-applicable (en)
(setq en (f:enx en))
(vl-remove-if-not (function (lambda (x) (vlax-method-applicable-p en x)))
(f:vla-methodlist)
)
)

(defun f:enx (en)
(if (= (type en) 'ENAME)
(vlax-ename->vla-object en)
en
)
)

Essentially - reduce the atoms-family list to all possible properties or methods - then use the vlax-property-available-p and the vlax-method-applicable-p functions to return only those that a given object has.

Hope this helps

Peter

 

Thank you for your advise.
I'm sorry my question was not clear.
What I meant is that how to get all the information that was scrolled in the console window and save them to a file .
Because almost information is gone in the console window if using the following code.

.....
(model-space)
(vlax-for obj *model-Space*
(vlax-dump-object obj)
)

Thanks,


)

 

Hi Chang-HoonLee

It's maybe not the solution, but you can increase the number of lines in
textscreen by this function:

(defun C:SetCmdHistLines ( / ExLoop HstLin TmpPmt TmpVal)
(setq HstLin (getenv "CmdHistLines"))
(while (not ExLoop)
(initget (+ 2 4))
(setq TmpPmt (strcat "\nNew value for CmdHistLines <" HstLin ">: ")
TmpVal (cond ((getint TmpPmt)) ((atoi HstLin)))
)
(if (or (< TmpVal 25) (> TmpVal 2048))
(princ "must be a value between 25 and 2048. ")
(progn
(setenv "CmdHistLines" (itoa TmpVal))
(setq ExLoop T)
)
)
)
(princ)
)

Cheers

 

Thank you for your advice!

ChangHoon Lee / 9sq Corporation

 

That is the answer of question.
Thank you very much,petersciganek!

 

Hi Jürg,where I find "CmdHistLines",could you point me?,thanks.

 

it is one of the environment variables used by autocad
here's a note i saved from post some time ago on another ng

The easiest way to view the system environment variables (they are quite
useful) is to start a MS-DOS shell and write 'Set'. This will list all of
them.

Rune Wold
System Analyst
Engineering Systems

<snip

 

well, i just tried that and it didn't print all of them
sorry, but maybe it 's a start for your research