明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1878|回复: 2

请问 如何得到当前打开的图形中的所有字体名,以及它是否使用大字体的信息

[复制链接]
发表于 2003-5-14 11:43 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2003-5-14 11:43:54 编辑

我是想这样,别人拿来的图,很多字体我没有,我想用LISP得到有哪些字样式是普通(如XX宋体)我用宋体替代. 哪些是单线字,我用HZTXT等代替。 这样,既替换了字体,又没有太大的改变文字大小位置关系等。
发表于 2003-5-15 14:58 | 显示全部楼层

供參考

;;(TABLE "STYLE")
(defun TABLE (S / NAME ENT D R)
  (while (setq D (tblnext S (null D)))
    (setq NAME (cdr (assoc 2 D)))
    (setq ENT (entget (tblobjname "STYLE" NAME)))
    (setq
      R        (cons (list NAME (cdr (assoc 3 ENT)) (cdr (assoc 4 ENT))) R)
    )
  )
)

;;只对改动指定的文字样式
(defun CH_TXTSTYLE (TextStyleName FontName BigFontName / TxtStyle Doc)
  (setq TxtStyle (vla-Item
                   (vla-get-textstyles
                     (setq Doc (vla-get-activedocument
                                 (vlax-get-acad-object)
                               )
                     )
                   )
                   TextStyleName
                 )
  )
  (if (= (strcase (substr FontName (- (strlen FontName) 3) 4))
         ".TTF"
      )
    (vla-put-fontfile
      TxtStyle
      (strcat (getenv "Windir") "\\fonts\\" FontName)
    )
    (progn
      (vla-put-fontfile TxtStyle FontName)
      (vla-put-bigfontfile TxtStyle BigFontName)
    )
  )

  (vla-regen Doc acallviewports)
  (vlax-release-object Doc)
  (vlax-release-object TxtStyle)
  (princ)
)

;;示例:将文字样式设为TTF字体-宋体
;;(CH_TXTSTYLE "STANDARD" "SIMSUN.TTF" "")
 楼主| 发表于 2003-5-15 14:31 | 显示全部楼层

没人回答? 我顶!

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 06:48 , Processed in 0.186316 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表