如何自动批量替换一批dwg文件中的相同的文字

jxphklibin · 发表于 2009-8-14 16:35

运行的时候出错，程序不能用啊！

xiaoma1023 · 发表于 2009-8-22 23:03

留个记号以后用

xiaoyaobest · 发表于 2009-8-25 22:37

zfbj 版主的程序和界面似曾相识，好像与明经版主写的一本书上的一个例子好相像。不过对版主的热心和处理问题的时效性还是深表敬意！

至于 kelvinzj 的问题，我觉得最直接和方便的办法是，点击 ATUOCAD 的“文件-查找”，利用CAD的替换文字功能不就可以了吗？连块里的文字都可以替换掉，不是很好吗？

wyu · 发表于 2009-11-4 15:56

222222222222222211

zwf100 · 发表于 2009-11-14 09:47

为什么都看不到附件

zezh · 发表于 2009-11-19 13:20

kelvinzj发表于2003-7-3 17:36:00有一批Autocad文件，每个文件中都有相同的几个字，比如说是“设计”，然后我希望将每个Autocad文件中的“设计”二字都改成\"××单位设计”，如果一个一个的改的话量比较大，有没有比较好的批量

见下面的贴子：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79293

zuehuo · 发表于 2010-7-5 10:39

不知道

923694501 · 发表于 2010-11-14 15:33

可以不打开DWG而对DWG进行修改，达到批量修改的目的
(vl-load-com)

(defun getFolder (a b /)
  (strcat
(vl-string-right-trim
   "\\"
   (strcase
(acet-ui-pickdir
  a
  (vl-string-right-trim "\\" (getvar "dwgprefix"))
  b
)
   )
)
"\\"
  )
)

(defun c:usergz (/ )

  (setq path (getFolder "请选择目录..." "请选择目录："))
  (setq files (vl-directory-files path "*.dwg" 1))
  (setq i 0)
  (while (< i (length files))
(setq file (nth i files))
(setq scrfile (strcat path file))
(setq fn (open scrfile "w"))
(command "pline" '(0.0 0.0) '(10.0 1000.0)  )
(command "_qsave" scrfile "y" "" )
  (close fn)

(setq i (+ i 1))

  )


  (princ)
)

wuhuan2080 · 发表于 2011-1-19 22:08

请问 zfbj 版主：
您开发的文件加载到文件夹之后，文件带有路径，使得文件名太长，而在窗口并不能看得完全，请问怎么在窗口显示不带有路径的文件名？

tan92 · 发表于 2011-5-15 11:24

在2009版本也可以用，支持

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