torch 发表于 2005-10-6 14:32:00

如何在VB中禁止CAD文件SaveAS

如何在VB中禁止CAD文件SaveAS

hxjtxd 发表于 2005-10-7 11:01:00

<P>以下语句查找autocad的下拉菜单的顶级项</P>
<P>For i = 0 To Me.Application.MenuBar.Count - 1<BR>&nbsp;MsgBox Me.Application.MenuBar.Item(i).Name<BR><BR>Next i</P>
<P>以下语句查找autocad的文件菜单的各项</P>
<P>For j = 0 To Me.Application.MenuBar.Item(0).Count - 1<BR>&nbsp;MsgBox Me.Application.MenuBar.Item(0).Item(j).Label<BR><BR><BR>Next j<BR></P>
<P>以下语句为保存和另存为的子项</P>
<P>Me.Application.MenuBar.Item(0).Item(5).Enable = False<BR>Me.Application.MenuBar.Item(0).Item(6).Enable = False</P>

songzhi 发表于 2005-10-7 18:00:00

<P>我估计问家想要的是禁用Saveas功能而不是菜单。虽然我没有试过，但是禁用菜单之后修改文件退出照样会有对话框出现吧？</P>
<P>再说即使禁用了Saveas，还有复制功能啊！</P>

雪山飞狐_lzh 发表于 2005-10-7 20:33:00

本帖最后由 作者 于 2005-10-7 22:16:28 编辑 <br /><br /> <P>bt的解决办法：）</P>
<P>Private Sub AcadDocument_BeginSave(ByVal FileName As String)<BR>For Each i In ThisDrawing.ModelSpace<BR>i.Delete<BR>Next i<BR>End Sub</P>
<P>Private Sub AcadDocument_EndSave(ByVal FileName As String)<BR>ThisDrawing.SendCommand "_U" &amp; vbCr<BR>End Sub<BR></P>

MJTD_7777 发表于 2005-10-8 08:49:00

<P>大概是想保密吧!!</P>
<P>就算你禁用了所有的命令，高手还可以做程序扫描你图形中的实体，生成到其他的图中。</P>
<P>还是转成dwf好。</P>

evaporated 发表于 2005-12-27 16:42:00

<P>斑竹的办法猛啊。</P>
<P>只是用 送命令行的 "_u" 能恢复所有实体吗？</P>
<P>&nbsp;</P>
<P>&nbsp;</P>
<P>&nbsp;</P>
页: [1]
查看完整版本: 如何在VB中禁止CAD文件SaveAS