谁有字体中含的代码编辑器啊(请高手进来看看)

flytoday · 发表于 2011-12-22 13:37

本帖最后由 flytoday 于 2011-12-22 13:39 编辑

SJRF.SHX字体，HZF.SHX大写
%%130:I级钢
%%131:II级钢
%%132:III级钢
这种字体怎么将附件
%%130:I级钢
%%131:II级钢
%%132:III级钢修改将其它的...因为我有个图%%128是代表 I 级钢晕死没这字体

详附件

highflybird · 发表于 2011-12-22 13:37

用find命令你把图中的%%128全部替换成%%129不可以么？

xiaxiang · 发表于 2011-12-22 14:26

试试这个？

flytoday · 发表于 2011-12-22 15:52

本帖最后由 flytoday 于 2011-12-22 15:55 编辑

老大您误解了，。。我那两个字体钢筋也能显示但是级别不对哦

flytoday · 发表于 2011-12-22 16:21

flytoday · 发表于 2011-12-22 16:22

就是能改下编号顺序。。谁懂谢谢~~

flytoday · 发表于 2011-12-22 17:20

图纸钢筋符号显示是？号，查看特性内容后知道
[一级钢是%%129，
二级钢是%%130，
三级钢是%%132与%%133]
请问这个怎么处理啊。。找不到这种字体啊。。。。

哪位大侠知道的说下谢谢~~

flytoday · 发表于 2011-12-22 19:32

忘了忘了搞定了

highflybird · 发表于 2011-12-22 19:42

本帖最后由 highflybird 于 2011-12-22 20:28 编辑

flytoday 发表于 2011-12-22 19:32
忘了忘了搞定了

如果用程序可以这样

(vl-load-com)
(defun c:test( / ss n ent obj txt IsExist)
(setq ss (ssget '((0 . "*TEXT"))))
(if ss
(repeat (setq n (sslength ss))
(setq ent (ssname ss (setq n (1- n))))
(setq obj (vlax-ename->vla-object ent))
(setq txt (vla-get-textstring obj))
(setq IsExist nil)
(while (wcmatch txt "*%%128*")
(setq txt (VL-STRING-SUBST "%%129" "%%128" txt))
(setq isExist T)
)
(and IsExist (vla-put-textstring obj txt))
)
)
(princ)
)

修改后的代码

(vl-load-com)
(defun c:test( / ss n ent obj txt)
(if (setq ss (ssget '((0 . "*TEXT") (1 . "*%%128*"))))
(repeat (setq n (sslength ss))
(setq ent (ssname ss (setq n (1- n))))
(setq obj (vlax-ename->vla-object ent))
(setq txt (vla-get-textstring obj))
(while (wcmatch txt "*%%128*")
(setq txt (VL-STRING-SUBST "%%129" "%%128" txt))
)
(vla-put-textstring obj txt)
)
)
(princ)
)

flytoday · 发表于 2011-12-23 09:45

本帖最后由 flytoday 于 2011-12-23 09:46 编辑

图纸钢筋符号显示是:一级钢是%%129；二级钢是%%130；三级钢是%%132与%%133；
而我的字体：%%130:I级钢；%%131:II级钢；%%132:III级钢。。。。。。。。。。。。

意思就是：图纸中的钢筋符号一次替换成我字体的相应钢筋符号。。这个代码完整的要怎么写呢各位高手。。帮帮忙。谢谢

当然用查找替换可以。。但是用代码更快哈~~

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

谁有字体中含的代码编辑器啊(请高手进来看看)

最佳答案

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

点评

评分