vbnet 在autocad当中对dwg进行加密加密后文件不能复制编辑修改但用autocad可以查看

要在VB.NET中对DWG文件进行加密，你可以使用AutoCAD的COM接口来实现。下面是一个示例代码，演示了如何使用VB.NET在AutoCAD中加密DWG文件：

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建AutoCAD应用程序对象
        Dim acadApp As New AcadApplication()

        ' 启动AutoCAD
        acadApp.Visible = True

        ' 加载要加密的DWG文件
        Dim dwgPath As String = "C:\Path\To\Your\File.dwg"
        Dim acadDoc As AcadDocument = acadApp.Documents.Open(dwgPath)

        ' 设置加密选项
        Dim option As New AcadEncryptionOptions()
        option.EncryptionType = AcEncryptionType.acEncryptionPassword
        option.Password = "YourPassword"

        ' 加密DWG文件
        acadDoc.Encrypt(option)

        ' 关闭并保存加密后的DWG文件
        acadDoc.Close(True)

        ' 退出AutoCAD
        acadApp.Quit()
    End Sub

End Class

请确保已将对应版本的AutoCAD COM库添加到项目的引用中，以便在代码中使用AutoCAD的COM接口。你可以在Visual Studio的“项目”菜单中选择“添加引用”，然后在“COM”选项卡中找到并添加AutoCAD COM库。

此代码将打开指定的DWG文件并使用指定的密码对其进行加密。加密完成后，关闭并保存加密后的DWG文件。请注意，加密后的文件可以在AutoCAD中查看，但无法复制、编辑或修改，除非提供正确的密码。

希望对你有所帮助