查看: 2104|回复: 3

[原创] 解决cad文件乱码的小程序

[复制链接]
myname 发表于 2014-9-5 10:57 | 显示全部楼层 |阅读模式
(defun c:xgzt (/ elist nm )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq elist (tblnext "STYLE" T))
  (while (/= elist nil)
    (setq nm (cdr (assoc 2 elist))
    )
    (command "-style"
  nm
       "romans.shx,hztxt.shx"

     "0.0"
  "0.7"
       ""
    ""

     ""
  ""

    )
    (setq elist (tblnext "STYLE"))
  )
    (prin1)
)

评分

参与人数 1经验 +20 化工币 +50 收起 理由
SCLP2008 + 20 + 50 确实有效!

查看全部评分

tsg2011 发表于 2014-9-5 13:10 | 显示全部楼层
楼主,你没有讲明白,如何用?
回复 支持 反对

使用道具 举报

mikewolf2k 发表于 2014-9-5 20:50 | 显示全部楼层
应该就是个批量改字体的命令,没多大意义,也不算是乱码,只是没有显示正确而已。
回复 支持 反对

使用道具 举报

yinyunchao 发表于 2014-9-18 23:38 | 显示全部楼层
怎么用啊?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [加入论坛]

本版积分规则

化工技术网- 赠人玫瑰 手有余香 ( 苏ICP备14035884号 )

快速回复 返回顶部 返回列表