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之类的。。
/ ]0 p! M/ i7 p* i. iok22ko 发表于 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

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

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

全站		2005llnn 说: CAD几何作图竞赛题（2024年5月），至5月22日止。	7天前
全站		goto3d 说: 版主微信号：caivin811031；还未入三维微信群的小伙伴，速度加	2022-07-04

通知

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

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

浏览过的版块