AutoCAD图标提取

efan2000

需要引用AcCui.dll文件。

1. Imports Autodesk.AutoCAD.ApplicationServices
   
2. Imports Autodesk.AutoCAD.Customization
   
3. Imports Autodesk.AutoCAD.Runtime
   
4. 
   
5. Public Class Class1
   
6. 
   
7. CommandMethod("Test")> _
   
8.     Public Sub Test()
   
9.         ' 16×16图标路径
   
10.         If IO.Directory.Exists(My.Application.Info.DirectoryPath + "\16") = False Then
    
11.             IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath + "\16")
    
12.         End If
    
13.         ' 32×32图标路径
    
14.         If IO.Directory.Exists(My.Application.Info.DirectoryPath + "\32") = False Then
    
15.             IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath + "\32")
    
16.         End If
    
17.        ' 通过系统变量获得菜单文件名称
    
18.         Dim s As String = Application.GetSystemVariable("MENUNAME")
    
19.         ' 获得该菜单文件的自定义节
    
20.         Dim cs As CustomizationSection = New CustomizationSection(s)
    
21.         ' 获得菜单组
    
22.         Dim mg As MenuGroup = cs.MenuGroup
    
23.         ' 遍历宏组
    
24.         For i As Integer = 0 To mg.MacroGroups.Count - 1
    
25.             ProcessMacroGroup(mg.MacroGroups(i))
    
26.         Next
    
27.     End Sub
    
28. 
    
29.     'Public Sub ProcessMacroGroup(ByVal mg As MacroGroup)
    
30.     '    ' 遍历菜单宏
    
31.     '    For i As Integer = 0 To mg.MenuMacros.Count - 1
    
32.     '        Dim mm As MenuMacro = mg.MenuMacros(i)
    
33.     '        ' 获得宏
    
34.     '        Dim m As Macro = mm.macro
    
35.     '        ' 判断大图像是否存在
    
36.     '        If m.LargeImageBitmap IsNot Nothing Then
    
37.     '            ' 判断大图像是否正确，如果包含16说明大图像是采用小图像
    
38.     '            If m.LargeImage.Contains("32") = True Then
    
39.     '                m.LargeImageBitmap.Save(My.Application.Info.DirectoryPath + "\32\" + m.LargeImage + ".png", System.Drawing.Imaging.ImageFormat.Png)
    
40.     '            End If
    
41.     '        End If
    
42.     '        ' 判断小图像是否存在
    
43.     '        If m.SmallImageBitmap IsNot Nothing Then
    
44.     '            ' 判断小图像是否正确，如果包含32说明小图像是采用大图像
    
45.     '            If m.SmallImage.Contains("16") = True Then
    
46.     '                m.SmallImageBitmap.Save(My.Application.Info.DirectoryPath + "\16\" + m.SmallImage + ".png", System.Drawing.Imaging.ImageFormat.Png)
    
47.     '            End If
    
48.     '        End If
    
49.     '    Next
    
50.     'End Sub
    
51. 
    
52.     Public Sub ProcessMacroGroup(ByVal mg As MacroGroup)
    
53.         ' 遍历菜单宏
    
54.         For i As Integer = 0 To mg.MenuMacros.Count - 1
    
55.             Dim mm As MenuMacro = mg.MenuMacros(i)
    
56.             ' 获得宏
    
57.             Dim m As Macro = mm.macro
    
58.             ' 判断大图像是否存在
    
59.             If m.LargeImageBitmap IsNot Nothing Then
    
60.                 ' 判断大图像是否正确，如果尺寸包含16说明大图像是采用小图像
    
61.                 If m.LargeImageBitmap.Width = 32 And m.LargeImageBitmap.Height = 32 Then
    
62.                     ' 判断图像是否文件名称，如果是复制到内存再保存
    
63.                     If m.LargeImage.Contains(".bmp") = True Then
    
64.                         Dim ti As System.Drawing.Image = New System.Drawing.Bitmap(m.LargeImageBitmap)
    
65.                         ti.Save(My.Application.Info.DirectoryPath + "\32\" + m.LargeImage, System.Drawing.Imaging.ImageFormat.Bmp)
    
66.                         ti.Dispose()
    
67.                     Else
    
68.                         m.LargeImageBitmap.Save(My.Application.Info.DirectoryPath + "\32\" + m.LargeImage + ".png", System.Drawing.Imaging.ImageFormat.Png)
    
69.                     End If
    
70.                 End If
    
71.             End If
    
72.             ' 判断小图像是否存在
    
73.             If m.SmallImageBitmap IsNot Nothing Then
    
74.                 ' 判断小图像是否正确，如果尺寸包含32说明小图像是采用大图像
    
75.                 If m.SmallImageBitmap.Width = 16 And m.SmallImageBitmap.Height = 16 Then
    
76.                     ' 判断图像是否文件名称，如果是复制到内存再保存
    
77.                     If m.LargeImage.Contains(".bmp") = True Then
    
78.                         Dim ti As System.Drawing.Image = New System.Drawing.Bitmap(m.SmallImageBitmap)
    
79.                         ti.Save(My.Application.Info.DirectoryPath + "\16\" + m.SmallImage, System.Drawing.Imaging.ImageFormat.Bmp)
    
80.                         ti.Dispose()
    
81.                     Else
    
82.                         m.SmallImageBitmap.Save(My.Application.Info.DirectoryPath + "\16\" + m.SmallImage + ".png", System.Drawing.Imaging.ImageFormat.Png)
    
83.                     End If
    
84.                 End If
    
85.             End If
    
86.         Next
    
87.     End Sub
    
88. 
    
89. End Class
    

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices<br /> Imports Autodesk.AutoCAD.Customization<br /> Imports Autodesk.AutoCAD.Runtime<br /> <br /> Public Class Class1<br /> <br /> CommandMethod("Test")> _<br />     Public Sub Test()<br />         ' 16×16图标路径<br />         If IO.Directory.Exists(My.Application.Info.DirectoryPath + "\16") = False Then<br />             IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath + "\16")<br />         End If<br />         ' 32×32图标路径<br />         If IO.Directory.Exists(My.Application.Info.DirectoryPath + "\32") = False Then<br />             IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath + "\32")<br />         End If</font></font><br />        ' 通过系统变量获得菜单文件名称<br />         Dim s As String = Application.GetSystemVariable("MENUNAME")<br />         ' 获得该菜单文件的自定义节<br />         Dim cs As CustomizationSection = New CustomizationSection(s)<br />         ' 获得菜单组<br />         Dim mg As MenuGroup = cs.MenuGroup<br />         ' 遍历宏组<br />         For i As Integer = 0 To mg.MacroGroups.Count - 1<br />             ProcessMacroGroup(mg.MacroGroups(i))<br />         Next<br />     End Sub<br /> <br />     'Public Sub ProcessMacroGroup(ByVal mg As MacroGroup)<br />     '    ' 遍历菜单宏<br />     '    For i As Integer = 0 To mg.MenuMacros.Count - 1<br />     '        Dim mm As MenuMacro = mg.MenuMacros(i)<br />     '        ' 获得宏<br />     '        Dim m As Macro = mm.macro<br />     '        ' 判断大图像是否存在<br />     '        If m.LargeImageBitmap IsNot Nothing Then<br />     '            ' 判断大图像是否正确，如果包含16说明大图像是采用小图像<br />     '            If m.LargeImage.Contains("32") = True Then<br />     '                m.LargeImageBitmap.Save(My.Application.Info.DirectoryPath + "\32\" + m.LargeImage + ".png", System.Drawing.Imaging.ImageFormat.Png)<br />     '            End If<br />     '        End If<br />     '        ' 判断小图像是否存在<br />     '        If m.SmallImageBitmap IsNot Nothing Then<br />     '            ' 判断小图像是否正确，如果包含32说明小图像是采用大图像<br />     '            If m.SmallImage.Contains("16") = True Then<br />     '                m.SmallImageBitmap.Save(My.Application.Info.DirectoryPath + "\16\" + m.SmallImage + ".png", System.Drawing.Imaging.ImageFormat.Png)<br />     '            End If<br />     '        End If<br />     '    Next<br />     'End Sub<br /> <br />     Public Sub ProcessMacroGroup(ByVal mg As MacroGroup)<br />         ' 遍历菜单宏<br />         For i As Integer = 0 To mg.MenuMacros.Count - 1<br />             Dim mm As MenuMacro = mg.MenuMacros(i)<br />             ' 获得宏<br />             Dim m As Macro = mm.macro<br />             ' 判断大图像是否存在<br />             If m.LargeImageBitmap IsNot Nothing Then<br />                 ' 判断大图像是否正确，如果尺寸包含16说明大图像是采用小图像<br />                 If m.LargeImageBitmap.Width = 32 And m.LargeImageBitmap.Height = 32 Then<br />                     ' 判断图像是否文件名称，如果是复制到内存再保存<br />                     If m.LargeImage.Contains(".bmp") = True Then<br />                         Dim ti As System.Drawing.Image = New System.Drawing.Bitmap(m.LargeImageBitmap)<br />                         ti.Save(My.Application.Info.DirectoryPath + "\32\" + m.LargeImage, System.Drawing.Imaging.ImageFormat.Bmp)<br />                         ti.Dispose()<br />                     Else<br />                         m.LargeImageBitmap.Save(My.Application.Info.DirectoryPath + "\32\" + m.LargeImage + ".png", System.Drawing.Imaging.ImageFormat.Png)<br />                     End If<br />                 End If<br />             End If<br />             ' 判断小图像是否存在<br />             If m.SmallImageBitmap IsNot Nothing Then<br />                 ' 判断小图像是否正确，如果尺寸包含32说明小图像是采用大图像<br />                 If m.SmallImageBitmap.Width = 16 And m.SmallImageBitmap.Height = 16 Then<br />                     ' 判断图像是否文件名称，如果是复制到内存再保存<br />                     If m.LargeImage.Contains(".bmp") = True Then<br />                         Dim ti As System.Drawing.Image = New System.Drawing.Bitmap(m.SmallImageBitmap)<br />                         ti.Save(My.Application.Info.DirectoryPath + "\16\" + m.SmallImage, System.Drawing.Imaging.ImageFormat.Bmp)<br />                         ti.Dispose()<br />                     Else<br />                         m.SmallImageBitmap.Save(My.Application.Info.DirectoryPath + "\16\" + m.SmallImage + ".png", System.Drawing.Imaging.ImageFormat.Png)<br />                     End If<br />                 End If<br />             End If<br />         Next<br />     End Sub<br /> <br /> End Class<br />

图标完的压缩文件。
[attach]59475[/attach】


该贴已经同步到 efan2000的微博

chpmould

先收藏了,后续再来研究

河伯

很好，很实用。
1.有些图标名不含"16"或"32"，导出时会缺失。
2.有的图标不在CUI文件中，SmallImageBitmap属性无效，SmallImage属性有效，能不能增加这种情况的导出？

efan2000

河伯 发表于 2011-6-18 15:59
很好，很实用。
1.有些图标名不含"16"或"32"，导出时会缺失。
2.有的图标不在CUI文件中，SmallImageBitma ...

对于AutoCAD自带的图标，都是以RCDATA_16或者RCDATA_32开头，这种方法适应，当然也有可能存在特例，比如Ribbon的图标，目前没有对其深入研究。
对于第三方的图标，那么命名就多种多样了，不过可以通过图标的尺寸来判断。以上If m.LargeImage.Contains("32") = True Then要修改为If m.LargeImageBitmap.Width = 32 And m.LargeImageBitmap.Height = 32 Then，If m.SmallImage.Contains("16") = True Then要修改为If m.SmallImageBitmap.Width = 16 And m.SmallImageBitmap.Height = 16 Then。
对于外部文件方式存在的图标，直接保存会引起“GDI+ 中发生一般性错误。”，那么应该先复制一份到内存，然后再保存。

河伯

前面说的情况，例如C3D的图标，即不是单独图像文件，也不在CUI文件里，好像另有资源文件，如何导出？

cumtjh

不错 感谢分享 祝你快乐

atone

提取的目的是干嘛的