[编程申请]：批量替多个文件中的文字

chinali001 · 发表于 2006-4-23 10:35:58

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

画了几十张图，误把图名中的“。。。结构连续。。。”标成“。。。连续结构。。。”了，哪位高手能否指点一下，编个程序，批量进行上述替换？

xyp1964 · 发表于 2006-4-23 14:31:33

发个dwg图上来，以便调试！

chinali001 · 发表于 2006-4-23 16:09:36

这只是个图框，图形内容是在扫描图片下加个图框，因图片太大，没发

zxq0220 · 发表于 2006-4-23 19:20:25

试一下。程序在空白图中执行。
[php]
(DEFUN C:CHTEXT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDTXT (GETSTRING "\n旧文本 :")
   OLDSL (STRLEN OLDTXT)
   NEWTXT (GETSTRING "\n新文本 :"))
(SETQ NM (IF NM NM ""))
(WHILE (SETQ NM (GETFILED "选择图形文件 :" NM "dwg" 5))
  (COMMAND ".UNDO" "BE")
  (COMMAND "INSERT" (STRCAT "*" NM) "0,0" "1" "0" "ZOOM" "E")
  (IF (SETQ SS (SSGET "X" '((0 . "?TEXT")))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
      TXT (CDR (ASSOC 1 ENT))
      SL (- (STRLEN TXT) OLDSL)
      J 1)
(REPEAT SL
   (IF (= (SUBSTR TXT J OLDSL) OLDTXT)
   (SETQ TXT (STRCAT (SUBSTR TXT 1 (1- J)) NEWTXT (SUBSTR TXT (+ J OLDSL)))
         ENT (SUBST (CONS 1 TXT) (ASSOC 1 ENT) ENT))
   )
   (SETQ J (1+ J))
)
(ENTMOD ENT)
)
  ))
  (COMMAND "SAVEAS" "" NM "Y")
  (COMMAND ".UNDO" "E")
  (COMMAND ".U")
)
(SETVAR "CMDECNO" 1)
(PRINC)
)
[/php]

chinali001 · 发表于 2006-4-23 19:55:12

谢谢zxq0220，你的程序我运行了，可以运行，但不能一次选择多个文件，也就是每次分步修改所要改的文件，比纯手工打开每个文件还是快多了。我再试试

xyp1964 · 发表于 2006-4-23 22:12:39

批量处理：被修改的部分会改变颜色

hao3ren · 发表于 2006-4-23 23:26:18

这个东西好，就是不知道好用不，先下来看看

lhl2009 · 发表于 2006-4-30 00:21:57

好用

kohi · 发表于 2006-4-30 11:46:05

(defun c:test ()
  (vl-load-com)
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
(vlax-for j (vla-get-modelspace i)
   (if (= "AcDbText" (vla-get-objectname j))
      (if (= "Enzed" (vla-get-textstring j))
      (vla-put-textstring j "Parker")
      )
   )
)
(vla-regen i acallviewports)
  )
)

xyp1964 · 发表于 2006-4-30 11:51:13

最初由 kohi 发布
[B](defun c:test ()
  (vl-load-com)
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
(vlax-for j (vla-get-modelspace i)
   (if (= "AcDbText" (vla-get-objectname j))
      (if (= "En... [/B]

答非所问！

d287070902 · 发表于 2006-5-1 19:49:57

好用

witkid · 发表于 2008-4-15 11:28:17

不知道有没有，谢谢

xfhg · 发表于 2008-4-18 16:24:58

太好了！

zzm_6 · 发表于 2008-11-20 22:50:22

怎么用呀，不太明白

haoge7758 · 发表于 2008-11-28 16:18:20

什么爱心斌？又没了？

账号		自动登录	找回密码
密码			立即注册

[编程申请]：批量替多个文件中的文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

请教关于cad 批量文本替换程序 vlx

浏览过的版块