宏--英文特征名转换为中文特征名

很强大很实用的宏，谢谢分享~~

别卖米了好吗

xiaoxifeng 发表于 2016-9-8 08:15
别卖米了好吗

花1大米,就可以根据宏内容改编成中文转换成英文的,我在语句中有说明,很容易改编的

pyczt 发表于 2016-9-8 09:36
花1大米,就可以根据宏内容改编成中文转换成英文的,我在语句中有说明,很容易改编的

可是我没有大米啊

学习看看，多了解！

谢谢楼主共享。下载来研究。

能不能做个界面出来啊。运行宏的时候出来中英转换的选项呢？

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeature As SldWorks.Feature
Dim FeatName As String
Dim FeatType As String


Sub main()
    Set swApp = Application.SldWorks
    If Not swApp Is Nothing Then
        Set swModel = swApp.ActiveDoc
        If Not swModel Is Nothing Then
            Set swFeature = swModel.FirstFeature
            While Not swFeature Is Nothing
                FeatName = swFeature.Name
                FeatType = swFeature.GetTypeName
                MsgBox "Feature screen name = " & FeatName & vbCrLf & _
                        "Feature type name = " & FeatType
                Set swFeature = swFeature.GetNextFeature
            Wend
                End If
        Set swModel = Nothing
    End If
    Set swApp = Nothing
End Sub
楼主看看这个能不能用啊

xiaoxifeng 发表于 2016-9-15 14:26
Option Explicit

Dim swApp As SldWorks.SldWorks

swFeature.GetTypeName  不能直接作为英文特征名,如草图特征的类型名是ProfileFeature
不同年代版本的零件特征名不一,英换中的宏中考虑到哪些英文特征名统一到同一中文名,并有个优先顺序。并考虑中英文混用现象时特征翻译的处理。
如有心改为中译英，也要考虑以上因素吧

我那个宏是边用边完善的，所以提供了EXECL表格文件，也便于有心人改编

哦，明白了啊。谢谢

不知道想弄出来个界面，应该怎么弄啊