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

<p>运行的时候出错，程序不能用啊！</p>

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

留个记号以后用

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

<p><font face="Verdana" color="#000000">zfbj 版主的程序和界面似曾相识，好像与明经版主写的一本书上的一个例子好相像。不过对版主的热心和处理问题的时效性还是深表敬意！</font></p><p><font face="Verdana">至于 <font color="#000000">kelvinzj 的问题，我觉得最直接和方便的办法是，点击 ATUOCAD 的“文件-查找”，利用CAD的替换文字功能不就可以了吗？连块里的文字都可以替换掉，不是很好吗？</font></font></p>

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

222222222222222211

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

为什么都看不到附件

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

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

<p>见下面的贴子：</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79293">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=79293</a></p>

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

不知道

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

可以不打开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:32

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

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

在2009版本也可以用，支持
页: 1 2 [3] 4
查看完整版本: 如何自动批量替换一批dwg文件中的相同的文字