|
|
这是我写的二次开发的程序的一部分.功能:移动当前活动窗口的所有的对象 .
Dim strCmd As String
strCmd = "_move" & vbCr & "all" & vbCr & vbCr & "0,0" & vbCr & vbCr
'Debug.Print strCmd
acadApp.ActiveDocument.SendCommand strCmd
命令完成以后,弹出窗口:
边界定义错误:没有找到有效地填充边界.
问题在于:我得程序是一个批量处理文件的程序.也就是,打开一个文件,处理完了以后再关闭.出现这个对话框以后,我得程序就中断了,运行不下去了.
acadApp.ActiveDocument.SendCommand strCmd 这样的命令传递不过去了. 怎样才能关掉这个窗口 |
|
置顶卡
