（救急）VB.NET 2005开发autoca如何改变CAD的标题栏和图标？

xiaoyaobest · 发表于 2009-8-24 21:02:00

我用VB.NET 2005 引用ATUOCAD类库方法做二次开发，现在需要改变AUTOCAD的标题栏和图标，该如何实现呀？
比如：在CAD中打开了"E:\learn\CAD"目录下的1.DWG文件，在标题上显示为"AutoCAD 2004 - [E:\learn\CAD\1.dwg]"，现在想将此caption改为自已想要的名字，并且将标题栏的CAD图标改成自已的。我在乐筑天下版本们写的一本书上找到了在VBA中通API修改这两个项目的方法，但不知在.NET中如何实现(同样的方法在.NET中用不了)。
附：部分代码

'(--------------连接 AutoCAD 应用程序------------)
Sub Start_AutoCAD()
      On Error Resume Next
      acadApp = GetObject(, "AutoCAD.Application.16")
      If Err.Number  0 Then
         Err.Clear()
         acadApp = CreateObject("AutoCAD.Application.16")
      End If
      ThisDrawing = acadApp.ActiveDocument

      Dim Cad_Caption As String
      cad_caption = acadApp.Caption    '读CAD的标题栏，问题是此属性是只读的，那如何设定呢 End Sub
End Sub