如何在VB中禁止CAD文件SaveAS

torch

如何在VB中禁止CAD文件SaveAS

hxjtxd

以下语句查找autocad的下拉菜单的顶级项

For i = 0 To Me.Application.MenuBar.Count - 1
 MsgBox Me.Application.MenuBar.Item(i).Name

Next i

以下语句查找autocad的文件菜单的各项

For j = 0 To Me.Application.MenuBar.Item(0).Count - 1
 MsgBox Me.Application.MenuBar.Item(0).Item(j).Label


Next j

以下语句为保存和另存为的子项

Me.Application.MenuBar.Item(0).Item(5).Enable = False
Me.Application.MenuBar.Item(0).Item(6).Enable = False

songzhi

我估计问家想要的是禁用Saveas功能而不是菜单。虽然我没有试过，但是禁用菜单之后修改文件退出照样会有对话框出现吧？

再说即使禁用了Saveas，还有复制功能啊！

雪山飞狐_lzh

bt的解决办法：）

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
For Each i In ThisDrawing.ModelSpace
i.Delete
Next i
End Sub

Private Sub AcadDocument_EndSave(ByVal FileName As String)
ThisDrawing.SendCommand "_U" & vbCr
End Sub

MJTD_7777

大概是想保密吧!!

就算你禁用了所有的命令，高手还可以做程序扫描你图形中的实体，生成到其他的图中。

还是转成dwf好。

evaporated

斑竹的办法猛啊。

只是用 送命令行的 "_u" 能恢复所有实体吗？