[求助]如何历遍选择集,列出所有文字样式及字体?

xdto

Sayonana发表于2007-12-28 22:43:00(defun c:t1 () (if (setq ss (ssget '((0 . \"TEXT\"))) n  0)(repeat (sslength ss) (princ (strcat \"\n\" (cdr (assoc 7 (entget (ssname ss n))))))(setq n (1+ n))))(princ))

以上代码中通过entget可以得到文字样式，但这样又不能得到字体。

请问该怎么样才能从容不迫（ssget）得到文字样式及字体？？

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0