[求助]用vb批量处理文件的通用程序

雪山飞狐_lzh

App.path


提供一个思路：


在AutoCad200？Doc.lsp文件加入一句：


(load "test.lsp")


在VB的程序里先改动test.lsp里的内容然后再打开图纸，就不用调用Sendcommand了

tiger8888

真是一个很好的思路

tiger8888

to citykunan:


关于路径，请看看3楼的帖子

CLARKLEE

大家时一下我的批处理程序，不需要打开cad,批量打印，想打多少都行，单目录，多目录均可，属性修改，想改就改，多提宝贵意见，文件名提取块得很！！！

citykunan

谢谢各位好心人，我还有一个问题想问，就是打开cad的时候，能不能让它最小化，在批量操作的时候，不让它总在屏幕上跳跃。有没有办法？谢谢

CLARKLEE

将程序隐藏（thisdrawing.app.hide大概是）

hanli2005

强烈要求老大把程序做成可以通用不同lisp的合件!谢谢

citykunan

诸位，程序本来已经通过了，但是我最近装了autocad2006，发现程序运行时会自动去掉用2006的cad，而不是调用原有的autocad2000，我打开引用，发现仍然是引用的autocad2000 library，这是怎么一回事呢？能不能不让程序调用autocad2006呢？

yueliang2100

******************
我有办法
******************
1.lsp部分

其实，你可以把lsp文件，放在cad 安装目录的support 目录下，
然后在双击打开acad****.lsp文件最后加入(load "你的lsp文件名.lsp" )，这样每次cad启动时自动加载你的lsp文件，
然后在lsp文件中第一行
(defun plo (/ fd)
改为
(defun C:plo (/ fd) ;以便在cad中输入命令调用

2.VB部分

'首先
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True

'接着
'获得要所有要修改的dwg文件名VB一定可以实现

'然后在VB中做一个循环
for ****

Set acadDoc = acadApp.Documents.Open(strFullDwgFileName_i) '打开第i个dwg文件(文件名要全路径)
acadDoc.SendCommand "filedia" & Chr(13) & ("0") & Chr(13)
sendcommand  “plo” & Chr(13) ‘调用你的lsp文件中的命令
acadDoc.SendCommand "filedia" & Chr(13) & ("1") & Chr(13)
acadDoc.close(true)  'true表示保存退出

next

ok