雪山飞狐_lzh 发表于 2004-12-17 09:36:00

App.path


提供一个思路：


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


(load "test.lsp")


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

tiger8888 发表于 2004-12-17 12:42:00

真是一个很好的思路

tiger8888 发表于 2004-12-17 12:56:00

to citykunan:


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

CLARKLEE 发表于 2004-12-24 17:42:00

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

citykunan 发表于 2005-1-6 17:01:00

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

CLARKLEE 发表于 2005-1-15 09:49:00

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

hanli2005 发表于 2005-7-10 09:48:00

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

citykunan 发表于 2005-12-5 10:06:00

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

yueliang2100 发表于 2008-8-5 02:39:00

******************
我有办法
******************
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
页: 1 2 [3]
查看完整版本: [求助]用vb批量处理文件的通用程序