How to know total style font

I just load style font in drawing current,as like
"arial,century,curier,isoct and italic",and then I want to know by
program,how to identification again this style,because if we used
(setq stylefont (getvar "textstyle")),the result only one style,last load,I
mean and I want are

$ (setq textstyle (getvar "textstyle"))
"italic"

$ (setq textstyle ???????) >>>>>>I want like this,is it
possible do it
"arial,century,curier,isoct and italic"

 

Try this routine that was posted a while back:

;Written By Michael Puckett.
(defun Table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)

(table "style")



Dave

 

Hi dblaha ,very nice,I glad receive that,thanks a lot

_$ (defun Table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)

(table "style")
TABLE
("impact" "hvbo" "garamond" "curier new" "complex" "century" "arial"
"Standard")
_$

 

You're welcome. I'm glad I could help.

Dave

 

Hi dbalaha,can you help me ,how this program work,I am not
understanding,thanks

;Written By Michael Puckett.
(defun Table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)

 

This routine steps through each member of a table (the name of which you supply and is assigned to the variable 's').

In this line of the routine it uses the TBLNEXT function to read each member of the table name.

;(setq r (cons (cdr (assoc 2 d)) r))
In this line, it uses ASSOC to extract the name of the current table member (stored with the DXF code 2) and uses CONS to add the name to its list stored in the variable r.

The routine then goes back to the top of the 'while' loop and keeps repeating this process until SETQ D does not equal nil, which would indicate it had reached the end of the table.

Dave

 

Oops! My last statement in my above post should have read:

The routine then goes back to the top of the 'while' loop and keeps repeating this process until SETQ D equals nil, which would indicate it had reached the end of the table.


Time for more caffiene...

Dave

 

Hi dblaha,thanks a lot for your help

repeating this process until SETQ D equals nil, which would indicate it had
reached the end of the table.

 

Hi dblaha,I thought the key this program is on "while",is it true,because if
we "while" disappeared in this program ,it can't run

supply and is assigned to the variable 's').

member (stored with the DXF code 2) and uses CONS to add the name to its
list stored in the variable r.

repeating this process until SETQ D does not equal nil, which would indicate
it had reached the end of the table.

 

Yes. As I mentioned in the last part of my previous post, the 'while' loop keeps the routine running until the end of the table is reached.

Dave