[求助]：请教一个批处理问题

shengl

请问如何做个批处理文件,操作流程:打开dgn,调用一个程序(程序不需要用户操作),关闭程序.
c:
cd bentley\program\microstation
msbatch dgnin input:e:\共享\新建文件夹\*.dgn  mdl load extout.ma  close

MicroStation迷

MSV8中的Utilities→Batch Process 不正是你要的吗？

shengl

我用的是v7_J版的,在v7_J怎么做呢?批处理命令怎么写?

MicroStation迷

我在MS/J版下用MicroStation BASIC编写了一个宏如下所示。您只需要把其中的myDir$设置成您的DGN文件所在的目录，myCmd$设置成您要执行的命令然后执行该宏即可！
(我的例子中是对c:\Bentley71\Workspace\projects\tutorials\intro\dgn目录下的所有DGN文件进行压缩操作)

Sub main
'---Identify your directory and your command
    myDir$ ="c:\Bentley71\Workspace\projects\tutorials\intro\dgn\"
    myCmd$ = "COMPRESS DESIGN CONFIRM"

'---Begin our batch process
    myFile$ = Dir$(myDir$+"*.dgn")
    While myFile$ <> ""
        MbeSendCommand "DIALOG OPENFILE "
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.dgn"
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd " + myDir$
        MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd " + myFile$
        MbeSendCommand "MBE1 CLOSEMODAL OK"
        MbeSendCommand myCmd$
        myFile$ = Dir$
    WEnd
End Sub

shengl

我mdl也写一段代码
for(i=0;i<numfile;i++)
{
mdlSystem_newDesignFile(g_fname);
start();

}
即可,g_fname可通过读一个记录所有文件名的txt文本获得,start函数为执行操作的入口函数.

MicroStation迷

用MDL当然更行了，关键是不是每个人都会把MDL的源程序编译成可执行的MA。还是MicroStation BASIC简单些。杀鸡焉用牛刀！

shengl

急问：precision delete all 命令怎么些个批处理文件？这里注意的是precision delete all 好像要获得当前文件的精度？
或问：mdl中删除文件中元素坐标精度的函数是什么？

MicroStation迷

还是用我写的MicroStation BASIC 程序，只需在命令后再发送一个接受点的命令即可。

shengl

请问接受点的命令是什么？

MicroStation迷

MbeSendDataPoint

gdzhou

意思就是模仿鼠标在视图内点击一次左键