[求助]怎样取得文字样式列表?

xialiang · 发表于 2005-11-5 10:19:00

怎样取得文字样式列表?

请斑竹指点!

谢谢!

meflying · 发表于 2005-11-5 10:42:00

(setq stl_lst nil)
(while (setq stl (tblnext "style" (not stl)))
(setq stl_lst (append stl_lst (list (cdr (assoc 2 stl)))))
)

yedajiang · 发表于 2005-11-5 12:06:00

;;定义获取所有文字样式
(defun style_lst (/ next)
(SetQ lst '()
next (tblnext "style" t))
(While (SetQ lst (cons (cdr (assoc 2 next)) lst)
next (tblnext "style" nil)))
(setq lst(reverse lst))
)

xialiang · 发表于 2005-11-5 13:21:00

十分感谢!

蝌蚪 · 发表于 2005-11-15 13:22:00

怎么取得当前文字式样列表呢？

sailorcwx · 发表于 2005-11-15 13:27:00

当前文字样式就一个,没有列表,可以用(getvar "textstyle")取得

蝌蚪 · 发表于 2005-11-16 00:38:00

我想取得的是当前文字大小,角度,宽度比例.等这些信息啊,怎么可以获得?

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

[求助]怎样取得文字样式列表?

浏览过的版块