是否修改闭合图形上的系统变量？
您好，我在闭合图形上做了一些事情，但从未更改过系统变量，特别是Proxygraphics。我搜索了一下是否可行，但什么也没找到<所以我在这里问，这样做可行吗<谢谢你
**** Hidden Message ***** 不妨试一试 Private Sub test 2(MyDwg As String)。
如果IsFileLocked(新IO，FileInfo(MyDwg))= False Then 。
将数据库用作新数据库(假，真)。
dbReadDwgFile(MyDwg，IO。FileShare.ReadWrite，False，" " " 。
。
Dim work db As Database = HostApplicationServices，工作数据库。
。
如果HostApplicationServices，工作数据库数据库然后。
HostApplicationServices，WorkingDatabase = db。
结束If。
。
使用MyTrans作为Transaction = db，transaction manager . start transaction()。
尝试一下。
。
如果db，Orthomode = True Then。
dbOrthomode = False。
否则。
dbOrthomode = True。
结束If。
。
dbSaveproxygraphics = 0。
。
MyTrans，Commit()。
db另存为(MyDwg，DwgVersion。当前)。
接住。
MyTrans，Abort()。
dbCloseInput(True)。
应用，document manager . mdiactivedocument . editor . write message(vbCrLf+"无法保存绘图" & MyDwg)。
终于到了。
如果HostApplicationServices，工作数据库工作数据库然后。
HostApplicationServices，WorkingDatabase = workDb。
结束If。
结束尝试。
结束使用。
dbDispose()。
结束使用。
否则。
应用，document manager . mdiactivedocument . editor . write message(vbCrLf+"无法打开绘图" & MyDwg)。
结束If。
结束Sub。
。
。
私有函数被FileLocked(ByVal文件作为IO，FileInfo)作为布尔值。
将流调暗为IO，FileStream = Nothing。
。
尝试一下。
stream = file，打开(IO，打开IO。文件访问读写IO，FileShare.None)。
接住。
返回True。
结束尝试。
。
If(Not(stream)Nothing)Then 。
流，Close()。
结束If。
。
返回False。
。
End Function:添加了代码标记。
谢谢你们两位！我会很快尝试，让你知道我成功了！
页:
[1]