[求助]：不用style，仅用函数能新建文字样式吗？

hsslyl · 发表于 2009-4-17 13:34:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

通过(command "style" "黑体" "黑体" "0" "1" "0" "" "")可新建“黑体”文字样式。用以下函数可新建，但是在style对话框中字体栏显示的是“SIMHEI.TTF”而不是“黑体”，请教：错在哪里？或是否有其它方法？谢谢！
(vla-add (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) "黑体")
      (setq BL-hi1 (entget (tblobjname "style" "黑体")))
      (setq BL-hi1 (subst (cons 3 "SIMHEI.TTF") (assoc 3 BL-hi1) BL-hi1))
      (setq BL-hi1 (subst (cons 42 360.0) (assoc 42 BL-hi1) BL-hi1))
      (entmod BL-hi1)

olivefei · 发表于 2009-4-18 22:52:57

(defun c:wz (/)
  (command "style"  "英文和数字"  "isocp"  4 1 15 "" "" "")
  (command "style"  "中文"  "@仿宋_GB2312"  4 0.7 0 "" "" "")
  )

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

[求助] [求助]：不用style，仅用函数能新建文字样式吗？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子