文字样式替换，这个插件问题在哪？不能使用

jakchan · 发表于 2017-3-20 15:08:00

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

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

×

(defun c:tssd ()
  (vl-load-com)
  (vlax-for for-item (vla-get-textstyles (vla-get-activedocument
   (vlax-get-acad-object)
   )
      ) (if (and
      (not (wcmatch (vla-get-fontfile for-item)
   "SIMPLEX*"
   )
      )
      (not (wcmatch (vla-get-fontfile for-item)
   "COMPLEX*"
   )
      )

      (not (wcmatch (vla-get-fontfile for-item)
   "SimSun*"
   )
      )
      (not (wcmatch (vla-get-fontfile for-item)
   "SIMHEI*"
   )
      )

      (not (wcmatch (vla-get-fontfile for-item)
   "SIMKAI*"
   )
      )
      (not (wcmatch (vla-get-fontfile for-item)
   "NSimSun*"
   )
      )
      (not (wcmatch (vla-get-fontfile for-item)
   "SIMFANG*"
   )
      )

   )
   (progn
   (vla-put-fontfile for-item "tssddeng.shx")

   (vla-put-bigfontfile for-item "Tssdchn.shx")

   )

         )
  )
  (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 1)
  (princ)
)

longer1000 · 发表于 2017-3-20 15:12:45

正需要，支持楼主大人了！

jakchan · 发表于 2017-3-20 15:19:30

这个有问题，不能使用

newer · 发表于 2017-3-20 15:23:20

发错版块了，技术问题请发到相应到开发板块，帮你转移到LISP论坛了。

newer · 发表于 2017-3-20 15:25:45

具体哪个地方不能用，把你希望的结果和程序出现的问题详细描述下。

jakchan · 发表于 2017-3-20 15:33:07

好的，谢谢，我想把cad图中的字体替换为tssddeng.shx及Tssdchn.shx

eachy · 发表于 2017-3-20 16:32:51

新建一个样式然后修改，chprop不知有木有

Lisphk · 发表于 2017-3-20 19:45:00

你贴的代码，查找所有的字体定义

把除了 "SIMPLEX*" "COMPLEX*" "SimSun*" "SIMHEI*" "SIMKAI*" "NSimSun*" "SIMFANG*"开头的字体文件，其他字体文件的小字体设置成"tssddeng.shx"，大字体设置成 "Tssdchn.shx" 。

你看下上面的条件，再看看你运行的结果。

首先你要确保tssddeng.shx，Tssdchn.shx 文件存在且位于搜索支持路径中。

newer · 发表于 2017-3-20 22:52:08

执行了你的代码，你出错可能是 tssddeng.shx ，Tssdchn.shx 不在支持目录里面，你把他们拷贝到ACAD的FONTS目录下，然后再试试。

HLCAD · 发表于 2017-3-21 08:06:38

本帖最后由 HLCAD 于 2017-3-21 08:08 编辑

(if (and (NOT (wcmatch ... (NOT (wcmatch ... ===> (if (not (or (wcmatch ... (wcmatch ...

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

[求助] 文字样式替换，这个插件问题在哪？不能使用

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

浏览过的版块