[求助]：如何更改CAD外壳

qiqiko

由于版权局查，单位不让用盗版CAD，正版买不起，版权局要求买中旺CAD，可是不实用，不知哪位高手能将AutoCAD主窗体上的图标和CAD的文字去掉，换成别的。望将此方发稿止，再次感谢！！！！

21cn

版权局的人不会总坐你旁边看着吧？

qiqiko

虽然不会总坐在我旁边，可是会突然袭击进办公室查，要知道我上班就要打开CAD进行绘图，版权局的人进来，我不见得能很快关闭CAD，就算很快关了，所做的工作没保存，又要从做，也很头疼。

它山之石

门口放个站岗的。
或者搜下。本论坛里有的。

eachy

如果你们买了中望，版权局的人还去？

qiqiko

谢谢论坛的各位，我已经找到方法了，并且编了ARX和VBA程序。VBA是用于改菜单旁边的图标的。

它山之石

楼主，俺很佩服你的水平啊。会编ARX和VBA程序。
“VBA是用于改菜单旁边的图标的”俺想知道是如何改的。
能分享下吗？

qiqiko

7楼的老兄，你也很厉害呀，我记得用vc++编的源代码就是你贴的呀，现将vba的源代码贴上，不对之处请指教。

Declare Function LoadImage& Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long)
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, LParam As Any) As Long
Public Const WM_SETICON = &H80
Public Const IMAGE_ICON = 1
Public Const LR_LOADFROMFILE = &H10

Public Function SetFormIcon(hWnd As Long, IconPath As String) As Boolean
   Dim hIcon As Long
   hIcon = LoadImage(0&, IconPath, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)
   If hIcon <> 0 Then
      Call SendMessage(hWnd, WM_SETICON, 0, ByVal hIcon)
      SetFormIcon = True
   Else
      SetFormIcon = False
   End If
End Function

Private Sub Form_Load()
   Dim intX
   intX = SetFormIcon(ThisDrawing.hWnd, "f:\zwcad.ico")
End Sub

山行

这个东东对很多人都很有用的啊，
可以具体说说怎么用吗？

qiqiko

昨天又看了看这个程序，改改，加上以下代码
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

   Dim hw&
   hw = GetParent(GetParent(ThisDrawing.hWnd))
   SetWindowText hw, "ZWCAD2006-"
   intX = SetFormIcon(hw, "c:\zwcad.ico")
可以实现cad的图标和文字一起改。
回9楼：在cad里调入程序，然后运行宏就可以了。

yuer423huyue

呀高人哈？能在详细些吗？

yeaizhu

我还是搞不懂

wxq_hz

哈哈，就是高手不一样。