[求助]怎样得到字体列表？

dinosaurhxe

如图所示，我想用LISP得到红圈中的字体列表，就是这么一个表

("HZ" "STANDARD")

不知道该如何实现？

dinosaurhxe

晕倒，自己解决了。给出我的代码，请大侠们指点。

2. (setq lst nil)
3. (setq lst (cons (cdr (assoc 2 (tblnext "style" t))) lst))
4. (while (setq ent (tblnext "style"))
5. (setq lst (cons (cdr (assoc 2 ent)) lst))
6. )

(setq lst nil) (setq lst (cons (cdr (assoc 2 (tblnext "style" t))) lst)) (while (setq ent (tblnext "style")) (setq lst (cons (cdr (assoc 2 ent)) lst)) )

20060510412

谢谢楼主分享，楼主是个热心人！