dinosaurhxe 发表于 2008-6-5 13:42:00

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

<p></p><p>如图所示，我想用LISP得到红圈中的字体列表，就是这么一个表</p><p>("HZ" "STANDARD")</p><p>不知道该如何实现？</p>

dinosaurhxe 发表于 2008-6-5 14:22:00

晕倒，自己解决了。给出我的代码，请大侠们指点。
(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 发表于 2022-6-26 08:13:20

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

edrise 发表于 2025-2-17 09:19:27

正需要这个代码，感谢楼主！
页: [1]
查看完整版本: [求助]怎样得到字体列表？