QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 7597|回复: 25
收起左侧

[分享] AutoCAD 的文字样式替换,一键归一!

[复制链接]
发表于 2010-4-14 00:33:03 | 显示全部楼层 |阅读模式 来自: 中国四川成都

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

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

x
本帖最后由 yizhi4669 于 2010-4-14 00:41 编辑
8 \4 i7 v" f+ z0 i& L! p% Z- O' H, ^: U9 n" p" k# X
经常汇总来自各个厂家的图纸,都快烦死了!今天借用了网友的程序,分享给大家!/ a; W: T. O, C1 Y+ T/ i! @
一键替换字体样式,很强!9 @+ _2 D" I5 Y( ^  j$ x/ {9 E" \
正因为强,所以请慎用!要是上百张得图纸一瞬间面目全非了,别骂我啊!
7 n( h/ D- v; J. g9 y  P请大家根据自己常用的字体,修改程序即可。

ggg.rar

310 Bytes, 下载次数: 217

发表于 2010-4-16 13:24:34 | 显示全部楼层 来自: 中国江西赣州
本来想用的,但要改程序会不会很难噢
发表于 2010-4-16 13:30:38 | 显示全部楼层 来自: 中国江苏常州
楼主说说使用经验和注意点,不然不敢用。
发表于 2010-4-16 13:46:54 | 显示全部楼层 来自: 中国浙江宁波
这个真不敢用啊
发表于 2010-4-16 14:41:28 | 显示全部楼层 来自: 中国广东肇庆
图纸的字体样式能统一吗???作用何在
发表于 2010-4-16 18:31:34 | 显示全部楼层 来自: 中国广西梧州
下来看看,多谢了
发表于 2010-4-16 19:16:18 | 显示全部楼层 来自: 中国天津
里面也没有个说明,谁敢用啊
发表于 2010-4-17 09:26:20 | 显示全部楼层 来自: 中国江苏苏州
是不是lsp程序啊,,,或者vlx之类的。。
发表于 2010-4-17 10:08:39 | 显示全部楼层 来自: 中国北京
是不是lsp程序啊,,,或者vlx之类的。。
4 y& I4 P( z% `ok22ko 发表于 2010-4-17 09:26 http://www.3dportal.cn/discuz/images/common/back.gif

* }4 u9 Y: {! I, r打开看看不就知道了?本版区下载附件不需要流量的.' C# j- }8 U# X/ o" _: P
这其实就是一个简单的LSP小程序,功能是把该文档中所有单行和多行文字的文字样式一次性修改为指定的样式.
发表于 2010-4-17 10:51:43 | 显示全部楼层 来自: 中国江西赣州
下来看看,谢谢!
发表于 2010-4-17 13:41:00 | 显示全部楼层 来自: 中国浙江杭州
谢谢楼主啊呵呵
发表于 2010-4-23 12:47:11 | 显示全部楼层 来自: 中国河北石家庄
好资料,谢谢分享!!!
发表于 2010-4-27 07:31:05 | 显示全部楼层 来自: 中国四川自贡
正为这个苦恼,谢谢
发表于 2010-4-27 23:37:21 | 显示全部楼层 来自: 中国陕西西安
楼主是不是电脑里全部的CAD档都会变成一个字体?
发表于 2010-4-29 21:30:49 | 显示全部楼层 来自: 中国江苏苏州
不敢用着功能太变态了
发表于 2010-5-3 22:53:59 | 显示全部楼层 来自: 中国台湾
有了這個以後就可以很方便的換字體
' _/ D( \) y0 y% I' W不用慢慢改
发表于 2010-5-3 23:02:12 | 显示全部楼层 来自: 中国台湾
感谢分享~
! W/ G" A) Y/ z4 g% C+ u! \' s不过不实用~
发表于 2010-5-6 20:34:25 | 显示全部楼层 来自: 中国山东临沂
感觉有点害怕,还是请楼主大概的介绍一下吧
发表于 2010-5-6 21:19:23 | 显示全部楼层 来自: 中国陕西渭南
下来看看,多谢了
发表于 2010-5-6 21:43:20 | 显示全部楼层 来自: 中国陕西渭南
还是请楼主大概的介绍一下吧。
发表于 2010-5-7 10:51:48 | 显示全部楼层 来自: 中国台湾
有用过字形与字高一次全改的两个lisp;但都是仅限开檔的图;没开檔的不会改。' p  S4 P. M4 L, w9 T# t1 e0 B
改错也没啥大不了的U回去就好!!
发表于 2010-5-7 14:15:44 | 显示全部楼层 来自: 中国陕西西安
楼主:你的这个程序是CAD外挂,还是独立使用的。
 楼主| 发表于 2010-5-8 12:35:02 | 显示全部楼层 来自: 中国四川成都
外挂! Z5 X1 R+ a' u  E  p7 a! x6 n
在贱人的建议下,做了如下修改:
1 O! R2 d5 g9 S8 J8 Y(defun c:ggg(/)
* z, |% S8 n! d5 h  (setq b1 (getstring "请输入文字样式:"))
' W* O  d! u- L/ X  (setq d2 (cons 7 b1))
$ P* G# O+ m, e  h  (setq ss (ssget "x" (list (cons 0 "*TEXT"))))
5 V; I6 X: c1 D- P! v  (setq n (sslength ss))) \9 [0 y: D2 ]# v( P5 v
  (setq index 0)% f5 R5 X& @& ?8 ^4 L- M* M" F  @- {7 s
  (repeat n, e4 k( H8 q9 r1 m: ^+ s" l
    (setq b1 (entget (ssname ss index)))
$ F8 V& M# f7 p1 H6 _- v, S5 Y    (setq d1 (assoc 7 b1))8 B9 r8 P/ O1 X$ N8 s
    (setq b3 (subst d2 d1 b1))4 f. l4 P& u/ i) R  x
    (entmod b3)" e- E1 j) V9 o/ V  ^
    (setq index (+ index 1))1 @- Y  V' v/ [) l
  )- m- r. B9 d3 j
# Y$ R9 b" b2 v. k' \/ m7 _3 O0 S7 g
(princ)
$ p$ Y) x2 F, |9 I. S. C)
; }8 _( s- l' \8 G1 s! B9 B7 f4 {; g2 z( b/ t* N, d6 Q' P  y1 [
这样,单、多行都可替换了。
发表于 2010-5-10 10:23:22 | 显示全部楼层 来自: 中国江苏无锡
啊.现在的字体修正看来..是太多了..
/ g% E/ b2 M; q$ J) q" u早知道我也不来凑热闹了..汗...刚刚还发了一个.惭愧惭愧惭愧.
发表于 2011-5-26 23:27:37 | 显示全部楼层 来自: 中国广东茂名
下载试试,不行自己再改。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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