如图，英文的设计树，怎么改成中文？

怎么使用呢？？！！看一下步骤！

1. 选择“工具”>”宏”>“编辑”菜单

2. 在打开的对话框中，选中下载的宏文件（当然要先解压了），并单击“打开”按钮。

3. 在打开的对话框中单击“运行”按钮，就可以了（其实很简单的，里面的文字都可以编辑，如果有不完美的地方，自己做一下替换即可）

4. 过一会特征名称替换完成，就可以见到中文了，如下图（由于版本不同，SW特征名有所不同，所以有不完美的地方，自己做一下替换即可）

下载文件

'此宏用于零件文档中,将系列英文特征名换为中文特征名
'作者:天创  bsbanjin  www.bsbanjin.com
'-------------------------------------------
Option Explicit
 
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2                 '定义SW文档
Dim swFeat   As SldWorks.Feature                 '定义SW特征变量
Dim Featname As String  '定义特征名变量
Dim Engnames(134), Chsnames(134) As String   '定义中英名称变量,数组相应改
Dim OldName  As String
Dim i As Integer  '定义循环数
Dim ii As Integer
Dim nn As Integer
Dim value As Variant


Sub main()

Engnames(0) = "Annotations"
Chsnames(0) = "注解"
Engnames(1) = "Lighting"
Chsnames(1) = "光源、相机与布景"
Engnames(2) = "Solid Bodies"
Chsnames(2) = "实体"
Engnames(3) = "Surface Bodies"
Chsnames(3) = "曲面实体"
Engnames(4) = "Material"
Chsnames(4) = "材质"
Engnames(5) = "Front"
Chsnames(5) = "前视基准面"
Engnames(6) = "Top"
Chsnames(6) = "上视基准面"
Engnames(7) = "Right"
Chsnames(7) = "右视基准面"
Engnames(8) = "Origin"
Chsnames(8) = "原点"
Engnames(9) = "Plane"
Chsnames(9) = "基准面"
Engnames(10) = "Axis"
Chsnames(10) = "基准轴"
Engnames(11) = "3DSketch"
Chsnames(11) = "3D草图"
Engnames(12) = "Sketch"
Chsnames(12) = "草图"
Engnames(13) = "Boss-Extrude-Thin"
Chsnames(13) = "拉伸-薄壁"
Engnames(14) = "Base-Extrude-Thin"
Chsnames(14) = "拉伸-薄壁"
Engnames(15) = "Boss-Extrude"
Chsnames(15) = "凸台-拉伸"
Engnames(16) = "Base-Extrude"
Chsnames(16) = "凸台-拉伸"
Engnames(17) = "Boss-Revolve-Thin"
Chsnames(17) = "旋转-薄壁"
Engnames(18) = "Base-Revolve-Thin"
Chsnames(18) = "旋转-薄壁"
Engnames(19) = "Boss-Revolve"
Chsnames(19) = "凸台-旋转"
Engnames(20) = "Base-Revolve"
Chsnames(20) = "凸台-旋转"
Engnames(21) = "Base-Sweep"
Chsnames(21) = "凸台-扫描"
Engnames(22) = "Boss-Sweep"
Chsnames(22) = "凸台-扫描"
Engnames(23) = "Boss-Loft"
Chsnames(23) = "放样"
Engnames(24) = "Base-Loft"
Chsnames(24) = "放样"
Engnames(25) = "Boundary"
Chsnames(25) = "边界"
Engnames(26) = "Boss-Thicken"
Chsnames(26) = "加厚"
Engnames(27) = "Base-Thicken"
Chsnames(27) = "加厚"
Engnames(28) = "Cut-Extrude-Thin"
Chsnames(28) = "薄壁-切除-拉伸"
Engnames(29) = "Cut-Extrude"
Chsnames(29) = "切除-拉伸"
Engnames(30) = "Cut-Revolve-Thin"
Chsnames(30) = "薄壁-切除-旋转"
Engnames(31) = "Cut-Revolve"
Chsnames(31) = "切除-旋转"
Engnames(32) = "Cut-Sweep"
Chsnames(32) = "切除-扫描"
Engnames(33) = "Cut-Loft"
Chsnames(33) = "切除-放样"
Engnames(34) = "Cut-Boundary"
Chsnames(34) = "切除-边界"
Engnames(35) = "Cut-Thicken"
Chsnames(35) = "加厚-切除"
Engnames(36) = "SurfaceCut"
Chsnames(36) = "使用曲面切除"
Engnames(37) = "VarFillet"
Chsnames(37) = "变化圆角"
Engnames(38) = "Fillet"
Chsnames(38) = "圆角"
Engnames(39) = "Chamfer"
Chsnames(39) = "倒角"
Engnames(40) = "Hole"
Chsnames(40) = "孔特征"
Engnames(41) = "Draft"
Chsnames(41) = "拔模"
Engnames(42) = "Shell"
Chsnames(42) = "抽壳"
Engnames(43) = "Rib"
Chsnames(43) = "筋"
Engnames(44) = "Scale"
Chsnames(44) = "缩放比例"
Engnames(45) = "Dome"
Chsnames(45) = "圆顶"
Engnames(46) = "Freeform"
Chsnames(46) = "自由形"
Engnames(47) = "Deform"
Chsnames(47) = "变形"
Engnames(48) = "Indent"
Chsnames(48) = "压凹"
Engnames(49) = "Flex"
Chsnames(49) = "弯曲"
Engnames(50) = "Wrap"
Chsnames(50) = "包覆"
Engnames(51) = "Cavity"
Chsnames(51) = "型腔"
Engnames(52) = "Join"
Chsnames(52) = "连接重组"
Engnames(53) = "Combine"
Chsnames(53) = "组合"
Engnames(54) = "Split"
Chsnames(54) = "分割"
Engnames(55) = "Body-Move/Copy"
Chsnames(55) = "实体移动/复制"
Engnames(56) = "Body-Delete"
Chsnames(56) = "实体-删除"
Engnames(57) = "Imported"
Chsnames(57) = "输入"
Engnames(58) = "Imported Curve"
Chsnames(58) = "输入的曲线"
Engnames(59) = "Save-Bodies"
Chsnames(59) = "保存实体"
Engnames(60) = "Linear Pattern"
Chsnames(60) = "阵列(线性)"
Engnames(61) = "CirPattern"
Chsnames(61) = "阵列(圆周)"
Engnames(62) = "Surface-Mirror"
Chsnames(62) = "曲面镜向"
Engnames(63) = "Mirror"
Chsnames(63) = "镜向"
Engnames(64) = "Table-driven Pattern"
Chsnames(64) = "表格阵列"
Engnames(65) = "Sketch-driven Pattern"
Chsnames(65) = "草图阵列"
Engnames(66) = "Curve-driven Pattern"
Chsnames(66) = "曲线阵列"
Engnames(67) = "Fill Pattern"
Chsnames(67) = "填充阵列"
Engnames(68) = "Mounting Boss"
Chsnames(68) = "装配凸台"
Engnames(69) = "Sape Hook"
Chsnames(69) = "弹簧扣"
Engnames(70) = "Sape Hook Groove"
Chsnames(70) = "弹簧扣凹槽"
Engnames(71) = "Vent"
Chsnames(71) = "通风口"
Engnames(72) = "Lip/Groove"
Chsnames(72) = "唇缘/凹槽"
Engnames(73) = "Surface-Extrude"
Chsnames(73) = "曲面-拉伸"
Engnames(74) = "Surface-Extend"
Chsnames(74) = "曲面-拉伸"
Engnames(75) = "Surface-Revolve"
Chsnames(75) = "曲面-旋转"
Engnames(76) = "Surface-Sweep"
Chsnames(76) = "曲面-扫描"
Engnames(77) = "Surface-Loft"
Chsnames(77) = "曲面-放样"
Engnames(78) = "Surface-Boundary"
Chsnames(78) = "曲面-边界"
Engnames(79) = "Surface-Plane"
Chsnames(79) = "曲面-基准面"
Engnames(80) = "Surface-Offset"
Chsnames(80) = "曲面-等距"
Engnames(81) = "Surface-Radiat"
Chsnames(81) = "曲面-延展"
Engnames(82) = "Ruled Surface"
Chsnames(82) = "直纹曲面"
Engnames(83) = "Surface-Fill"
Chsnames(83) = "曲面填充"
Engnames(84) = "Mid Surface"
Chsnames(84) = "中面"
Engnames(85) = "Parting Surface"
Chsnames(85) = "分型面"
Engnames(86) = "Surface-Extend"
Chsnames(86) = "曲面-延伸"
Engnames(87) = "Surface-Trim"
Chsnames(87) = "曲面-剪裁"
Engnames(88) = "Surface-Untrim"
Chsnames(88) = "曲面-解除剪裁"
Engnames(89) = "Surface-Knit"
Chsnames(89) = "曲面-缝合"
Engnames(90) = "DeleteFace"
Chsnames(90) = "删除面"
Engnames(91) = "ReplaceFace"
Chsnames(91) = "替换面"
Engnames(92) = "MoveFace"
Chsnames(92) = "移动面"
Engnames(93) = "Heal Edges"
Chsnames(93) = "愈合边线"
Engnames(94) = "Curve"
Chsnames(94) = "曲线"
Engnames(95) = "Split Line"
Chsnames(95) = "分割线"
Engnames(96) = "Projected Curve"
Chsnames(96) = "投影曲线"
Engnames(97) = "Composite Curve"
Chsnames(97) = "组合曲线"
Engnames(98) = "Curve Through XYZ Points"
Chsnames(98) = "通过XYZ点的曲线"
Engnames(99) = "Curve Through Reference Points"
Chsnames(99) = "通过参考点的曲线"
Engnames(100) = "Helix/Spiral"
Chsnames(100) = "螺旋线/涡状线"
Engnames(101) = "Sheet-Metal"
Chsnames(101) = "钣金"
Engnames(102) = "Base-Flange"
Chsnames(102) = "基体法兰"
Engnames(103) = "Convert To Sheet Metal"
Chsnames(103) = "转换到钣金"
Engnames(104) = "Edge-Flange"
Chsnames(104) = "边线法兰"
Engnames(105) = "Miler-Flange"
Chsnames(105) = "斜接法兰"
Engnames(106) = "Swept-Flange"
Chsnames(106) = "扫描法兰"
Engnames(107) = "Hem"
Chsnames(107) = "褚边"
Engnames(108) = "Jog"
Chsnames(108) = "转折"
Engnames(109) = "Sketched Bend"
Chsnames(109) = "绘制的折弯"
Engnames(110) = "Cross Break"
Chsnames(110) = "交叉折断"
Engnames(111) = "Closed Corner"
Chsnames(111) = "闭合角"
Engnames(112) = "Welded Corner"
Chsnames(112) = "焊接边角"
Engnames(113) = "Break Corner"
Chsnames(113) = "断裂边角"
Engnames(114) = "Corner Trim"
Chsnames(114) = "边角剪裁"
Engnames(115) = "Unfold"
Chsnames(115) = "展开"
Engnames(116) = "Fold"
Chsnames(116) = "折叠"
Engnames(117) = "Lofted Bends"
Chsnames(117) = "放样的折弯"
Engnames(118) = "Bends"
Chsnames(118) = "折弯"
Engnames(119) = "Rip"
Chsnames(119) = "切口"
Engnames(120) = "Forming Tool"
Chsnames(120) = "成形工具"
Engnames(121) = "Flat-Pattern"
Chsnames(121) = "平板型式"
Engnames(122) = "Weldment"
Chsnames(122) = "焊件"
Engnames(123) = "Weld"
Chsnames(123) = "焊接件"
Engnames(124) = "Structural Member"
Chsnames(124) = "结构构件"
Engnames(125) = "Trim/Extend"
Chsnames(125) = "剪裁/延伸"
Engnames(126) = "Gusset"
Chsnames(126) = "角撑板"
Engnames(127) = "Fillet Bead"
Chsnames(127) = "圆角焊缝"
Engnames(128) = "Weld Bead"
Chsnames(128) = "焊缝"
Engnames(129) = "Parting Line"
Chsnames(129) = "分型线"
Engnames(130) = "Shut-Off Surface"
Chsnames(130) = "关闭曲面"
Engnames(131) = "Tooling Split"
Chsnames(131) = "切削分割"
Engnames(132) = "Core"
Chsnames(132) = "型心"
Engnames(133) = "Cavity"
Chsnames(133) = "型腔"
Engnames(134) = "Stock"
Chsnames(134) = "基体零件"

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

With swModel

nn = .FeatureManager.GetFeatureCount(True)         '特征数
Set swFeat = .FirstFeature                        '取首个特征
 Featname = swFeat.Name                           '获取所选特征名称
'Debug.Print "'" & Featname   ' 首个特征名:
For ii = 1 To nn - 1
  Set swFeat = swFeat.GetNextFeature
  Featname = swFeat.Name  '获取所选特征名称
   ' Debug.Print "特征名: " & Featname  ' 立即窗口中显示

  For i = 0 To UBound(Engnames)                '英文名最大数组数
    If InStr(Featname, Engnames(i)) = 1 Then     '含有英文名,位置为1时
     OldName = Featname                          '存旧名
     Featname = Replace(Featname, Engnames(i), Chsnames(i))     '替换成中文
     swFeat.Name = Featname         '特征重命名
     If OldName = swFeat.Name Then    '还是旧名字,说明重命名未成功
     swFeat.Name = Featname & "$"     '不成功则再加后缀$重试
     End If
     Debug.Print "新特征名: " & swFeat.Name '立即窗口中显示
     Exit For
    End If
   Next i
If i = UBound(Engnames) + 1 Then
Debug.Print "不能识别的特征名: " & Featname
End If
Next ii

End With

  
End Sub