[求助]：多文档同时批量处理

逐月飞鸿

从本站看到的程序,可同时批量处理所有打开的图形(DWG)文件中的文本, 将文本查找和替换
清高手看看,为什么不能执行,不能完成替换,情高手指点!
;fs即为文本查找和替换的英文缩写的头一个字母
(defun c:fs ()
  ;(vl-load-com)
  (setq char-A (getstring "\n请输入查找文字:"))
  (setq char-B (getstring "\n请输入替换文字:"))
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
    (vlax-for j (vla-get-modelspace i)
      (if (= "AcDbText" (vla-get-objectname j))
        (if (= "char-A" (vla-get-textstring j))
          (vla-put-textstring j "char-B")
        )
      )
    )
    (vla-regen i acallviewports)
  )
)


这是程序执行结果!
命令: FS

请输入查找文字:2004.10

请输入替换文字:2004.09
正在重生成模型。

命令: nil

aidraft

(defun c:fs ()
;(vl-load-com)
(setq char-A (getstring "\n请输入查找文字:"))
(setq char-B (getstring "\n请输入替换文字:"))
(vlax-for i (vla-get-Documents (vlax-get-acad-object))
(vlax-for j (vla-get-modelspace i)
(if (= "AcDbText" (vla-get-objectname j))
(if (= char-A (vla-get-textstring j))
(vla-put-textstring j char-B)
)
)
)
(vla-regen i acallviewports)
)
)

逐月飞鸿

谢谢aidraft 大虾.不愧是lisp的高手啊,再次表示对你的感谢!

王咣生

1.加载lsp
(vl-load-com)
(vl-load-all "c:\test.lsp")

2.执行vba
Sub test()
    Dim docs As AcadDocuments
    Set docs = Documents
    Dim doc As AcadDocument
    Dim i As Integer
    For i = 0 To docs.Count - 1
        Set doc = docs.Item(i)
        doc.SendCommand "macro"     'macro是定义的lsp的命令
    Next
End Sub

雪山飞狐(lzh)

多文档用Lisp不太好，为什么不用ObjectDbx？

oyxx_1023

请问这个程序能替换字符中的一部分吗，比如说我想把789.000替换成789?可以吗。

lsjjm

最初由 逐月飞鸿 发布
[B]从本站看到的程序... [/B]

应该注明出处.

逐月飞鸿

回复6楼的,不行的!这是一个缺陷吧!不过,如果部分匹配可以的话,就更好了!不过程序就麻烦了啊!