[分享]：对话框式图纸写字程序（上下标、平立方、钢筋符号彻底解决，允许自定义词库！

xyp1964

[php]
▲简介：
·利用对话框内建文本，添加组合、人工输入书写单行文本，对于图纸名称可以自动增加下划线。
★可以自定义词库，无限扩充，终身受用！
·词库格式为txt文本文件，可以任意修改和扩充提供的词库文件。
·有需要的，可以提供文本内容加以扩充。

▲使用方法：
将压缩文件下载、解压到CAD搜索路径下。
加载xiezi.fas，运行tzxz（图纸写字）。

▲版本记录：
·⑴ 2004年11月12日, 20:54:58版：增加特殊字符如◆◇、ⅠⅡ、㎝、㏒等输入
·⑵ 2004年11月13日, 0:53:14版：增加钢筋符号等特殊字符输入，如HRB400钢筋等。感谢网友提供的字库文件。（5）
·⑶ 2004年11月13日, 17:58:40版：修改UKWORD（类似于initget）格式化函数（13）
·⑷ 2004年11月17日, 19:31:22版：应网友的要求，增加局部中英对照内容，但不完善。（7）免币下载修改程序见后！替换原程序xiezi.fas，其余文件不变。
·⑸ 2004年11月21日, 0:48:16版：全面修改对话框程序，用户可以确定是否建新图层并可修改词库的内容，特别提供“用户自定义词库”选项，方便扩展。(20)
·⑹2004年11月28日, 23:56:10版：增加图层选项，修改BUG。
……
继续完善！
[/php]
程序文件（首次测试使用，必须在此下载全部文件！）：

xyp1964

程序操作示意：

xyp1964

增加特殊符号输入：

xyp1964

继续增加特殊符号输入：

andyhua5240

谢谢楼主，这么好的程序没有人顶，真是可惜！
不好意思，总是给你找麻烦！

yjtdkj

好像不能设置字体呀？

zh_6531394

我加载后,运行tzxz,出错请问是这么回事

aeo

现在看见这种不认识的字体就讨厌。

自己写很舒服，没字体就很麻烦，都是%%%%%,

有时虽然有字体，但很多人会改名称，到最后，谁知道哪个是哪个!

liuyj

没错，给字体乱起名最讨厌了，原来天正二系列有个"汉字横排"，把???都改成hztxt字体，倒挺实用。

flowerson

fas怎么加载的？？里面还很多其它的dcl，slb，shx等文件。

xyp1964

最初由 andyhua5240 发布
[B]谢谢楼主，这么好的程序没有人顶，真是可惜！
不好意思，总是给你找麻烦！ [/B]

[php]
不好意思，由于疏忽，忘了“Ukword”函数的定义，给大家添麻烦了。
特别谢谢andyhua5240，多次提出宝贵的意见，使得程序不断完善。
只要按楼上的作法，4个文件全部放到acad路径内，加载肯定没问题。
对于字体的问题，确实很苦恼，像一级钢筋、二级钢筋等等符号，“瞎编乱造”，弄出些怪怪的、字库中又没有的字符，让我等好生烦恼，不知哪位高手有好主意？或者修改一下国标字库文件！
下面的内容已在1楼上载文件中修改，让大家“破费”了！等全部搞定就改为“免币”！
(defun ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  ))
[/php]

andyhua5240

好程序花10个币也值得，主要看其价值了！
不存在破费的问题！

ytjcad

可惜，我只能看看介绍，不能下载，真是怖

它山之石

　既然是写图名，就要有比例选项啊。角度倒不必了吧？

flowerson

怎么总是下载不了，又扣币啊！是不是网站在修理啊！
再试还是一样。为什么请版主修理下！