求助：请问在其他应用程序中可以判断某张CAD图纸的打开状态吗？

qinlong_01

请教各位高手，多多帮忙啊！我想在pb程序中判断某张CAD图纸是否处于打开状态，请问可以做到吗？？？？

qinlong_01

各位版主帮帮忙吧，难道真的没有办法？

雪山飞狐_lzh

Function IsOpened(FilePath As String)
Dim i As AcadDocument
IsOpened = False
For Each i In Application.Documents
If i.FullName = FilePath Then IsOpened = True: Exit For
Next i
End Function

qinlong_01

版主你好：我是想在pb开发的程序中，判断模板图纸是否处于打开状态。您上面所用的方法只能在vb中用是吧？

雪山飞狐_lzh

pb没玩过，原理是一样的，你自己代码移植一下吧

qinlong_01

哦……感谢版主支持！

qinlong_01

请问版主：如何让打开一张自己定义好的模板图纸时，自动运行编写的过程函数。我把函数放到了thisdrawing中的activate事件中了，第一次还是要经过点击菜单才有效，但是再打开其他图纸时就会自动执行了（第一次后CAD不关闭）。请问版主一开始为什么不触发呢？