求助完善统一字体lisp源码

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

现在有这么一个程序源码，可以实现一键将图中文字全部改为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

下来试一下

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

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

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

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

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

tblnext 函数得不到simhei.ttf

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

也有同样的问题

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

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

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

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

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

系统中断。系统中断。

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

忘高手来指点！

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

楼主程序运行后,感觉不错，但有待更新

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

求助完善统一字体lisp源码

点评

相关帖子