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

xdto · 发表于 2007-12-25 21:37

如何历遍选择集,列出所有文字样式及对应的字体?

并逐一更改样式名及字体?

Sayonana · 发表于 2007-12-26 20:17

vla-get-textstyles vla-get-FontFile,vla-put-name,vla-put-fontfile.

ZZXXQQ · 发表于 2007-12-26 23:59

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

jxlsp · 发表于 2007-12-27 22:18

帖子没数达到4？

jxlsp · 发表于 2007-12-27 22:21

是什么。我要看看？

sailorcwx · 发表于 2007-12-27 22:38

(vlax-for st (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (princ (vla-get-name st)))

ZZXXQQ · 发表于 2007-12-28 08:24

本帖最后由作者于 2007-12-28 8:24:40 编辑

sailorcwx发表于2007-12-27 22:38:00(vlax-for st (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (princ (vla-get-name st)))

程序是写得少，但只能列出样式名，且无空格不换行。不能列出各个样式所用的字体名。R14以下版不能用。

sailorcwx · 发表于 2007-12-28 10:28

除了“R14以下版不能用”外，其他的都没问题，只是我这里不写而已，只是简单的列出样式名称。

xdto · 发表于 2007-12-28 22:25

ZZXXQQ发表于2007-12-26 23:59:00

以上代码是列出整个图形的字样．

但如何才能列出（ssget）内的字样？

Sayonana · 发表于 2007-12-28 22:43

(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))

账号		自动登录	找回密码
密码			注册

回复：（ZZXXQQ）[post=4][CODE];列出所有文字样式 明...