hdlyt11 发表于 2012-3-1 17:47:16

求助完善统一字体lisp源码

现在有这么一个程序源码，可以实现一键将图中文字全部改为HZTXT字体，而不改图中的黑体字，不知道什么地方不对，现在运行程序黑体还是会被修改，请大家帮忙完善，另外这个程序用于修改建筑天正图纸，运行起来速度很慢，不知道怎么回事
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:JZZT (/ ELIST FONT V2 V3 V4)
(setvar "cmdecho" 0)
(command "._undo" "begin")
(graphscr)
(initget 7)
(setq FONT "TXT.shx,HZTXT.shx")
(princ (strcat "\n...【提示】字体全部替换成"
FONT
"除黑体外"
)
)
(setq ELIST (tblnext "style" t))
(while ELIST
    (setq V2 (cdr (assoc 2 ELIST)))
    (setq V3 (cdr (assoc 3 ELIST)))
    (setq V4 (cdr (assoc 4 ELIST)))
    (if (/= "simhei.ttf" V3) ;非黑体,可以根据需求修改
      (progn
(command ".-style"
V2
FONT
""
""
""
""
""
""
)
    )
      (princ (strcat "\n" V2 ":   [" V3 "] "))
    )
    (setq ELIST (tblnext "style"))
)
(command "._regen")
(command "._undo" "begin")
(setvar "cmdecho" 1)
(princ)
)

LIULISHENG 发表于 2021-6-7 09:43:19

下来试一下

hdlyt11 发表于 2012-3-2 12:41:41

怎么没人帮忙啊，求求各位大侠了

hdlyt11 发表于 2012-3-5 11:36:44

楼主能否给奉献一个快的程序？

yjtdkj 发表于 2012-10-4 17:08:12

tblnext 函数得不到simhei.ttf

tangxuefeng 发表于 2012-10-6 18:11:16

也有同样的问题

香田里浪人 发表于 2014-3-19 06:46:10

楼主程序运行后会造成系统中断。

香田里浪人 发表于 2014-3-19 08:16:15

致命错误:Unhandled Access Violation Reading 0x003c Exception at 644ff538h

彳余 发表于 2014-3-21 08:28:07

系统中断。系统中断。

408643070 发表于 2014-3-22 23:28:44

忘高手来指点！

zfsaaa 发表于 2014-3-23 10:17:24

楼主程序运行后,感觉不错，但有待更新
页: [1] 2
查看完整版本: 求助完善统一字体lisp源码