AutoCAD 的文字样式替换，一键归一！

yizhi4669 · 发表于 2010-4-14 00:33:03

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 yizhi4669 于 2010-4-14 00:41 编辑

经常汇总来自各个厂家的图纸，都快烦死了！今天借用了网友的程序，分享给大家！
一键替换字体样式，很强！
正因为强，所以请慎用！要是上百张得图纸一瞬间面目全非了，别骂我啊！
请大家根据自己常用的字体，修改程序即可。

lainanlin · 发表于 2010-4-16 13:24:34

本来想用的，但要改程序会不会很难噢

ftgww123 · 发表于 2010-4-16 13:30:38

楼主说说使用经验和注意点，不然不敢用。

整不明白 · 发表于 2010-4-16 13:46:54

这个真不敢用啊

未济 · 发表于 2010-4-16 14:41:28

图纸的字体样式能统一吗？？？作用何在

ziliangmo · 发表于 2010-4-16 18:31:34

下来看看，多谢了

71672618 · 发表于 2010-4-16 19:16:18

里面也没有个说明，谁敢用啊

ryyhui · 发表于 2010-4-17 09:26:20

是不是lsp程序啊，，，或者vlx之类的。。

woaishuijia · 发表于 2010-4-17 10:08:39

是不是lsp程序啊，，，或者vlx之类的。。$ x$ _; \5 n# N( n o9 U% D
ok22ko 发表于 2010-4-17 09:26 http://www.3dportal.cn/discuz/images/common/back.gif

打开看看不就知道了?本版区下载附件不需要流量的.
这其实就是一个简单的LSP小程序,功能是把该文档中所有单行和多行文字的文字样式一次性修改为指定的样式.

wugong · 发表于 2010-4-17 10:51:43

下来看看，谢谢！

litao11070506 · 发表于 2010-4-17 13:41:00

谢谢楼主啊呵呵

shuiquan · 发表于 2010-4-23 12:47:11

好资料，谢谢分享！！！

zhouxingze · 发表于 2010-4-27 07:31:05

正为这个苦恼，谢谢

sj303124 · 发表于 2010-4-27 23:37:21

楼主是不是电脑里全部的CAD档都会变成一个字体？

chenxdong · 发表于 2010-4-29 21:30:49

不敢用着功能太变态了

jet0812 · 发表于 2010-5-3 22:53:59

有了這個以後就可以很方便的換字體
不用慢慢改

totoro · 发表于 2010-5-3 23:02:12

感谢分享~
不过不实用~

a5236102 · 发表于 2010-5-6 20:34:25

感觉有点害怕，还是请楼主大概的介绍一下吧

zq1979129 · 发表于 2010-5-6 21:19:23

下来看看，多谢了

roy680426 · 发表于 2010-5-6 21:43:20

还是请楼主大概的介绍一下吧。

hottee2009 · 发表于 2010-5-7 10:51:48

有用过字形与字高一次全改的两个lisp；但都是仅限开檔的图；没开檔的不会改。
改错也没啥大不了的U回去就好！！

lzx1015 · 发表于 2010-5-7 14:15:44

楼主：你的这个程序是CAD外挂，还是独立使用的。

yizhi4669 · 发表于 2010-5-8 12:35:02

外挂
在贱人的建议下，做了如下修改：
(defun c:ggg(/)
  (setq b1 (getstring "请输入文字样式："))
  (setq d2 (cons 7 b1))
  (setq ss (ssget "x" (list (cons 0 "*TEXT"))))
  (setq n (sslength ss))
  (setq index 0)
  (repeat n
(setq b1 (entget (ssname ss index)))
(setq d1 (assoc 7 b1))
(setq b3 (subst d2 d1 b1))
(entmod b3)
(setq index (+ index 1))
  )

(princ)
)

这样，单、多行都可替换了。

clearsee · 发表于 2010-5-10 10:23:22

啊.现在的字体修正看来..是太多了..
早知道我也不来凑热闹了..汗...刚刚还发了一个.惭愧惭愧惭愧.

chenyizhen28 · 发表于 2011-5-26 23:27:37

下载试试，不行自己再改。

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

[分享] AutoCAD 的文字样式替换，一键归一！

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。