Solidworks2014零件名与零件自定义属性链接及名称代号分离的问题

答案:3 悬赏:40 手机版

解决时间 2021-01-21 01:21

提问者网友：情歌越听越心酸
2021-01-20 13:20

最佳答案

五星知识达人网友：我住北渡口
2021-01-20 14:25

用ASCII来判断，因为在ASCII中字母、数字和符号的码值都是小于64的，其他的大于64的，只要你的代号是用字母数字符号来做的，名称是用汉字来做的那就可以分离

全部回答

1楼网友：你可爱的野爹
2021-01-20 16:08

呼噜小精灵第

2楼网友：孤独的牧羊人
2021-01-20 15:35

Dim swApp As Object
Dim c As String
Dim i As String
Dim j As String
Dim temp As String
Sub main()
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
c = part.GetTitle()
a = InStr(c, " ") - 1
i = Left(c, a)
j = Mid(c, a + 2)
'part.CustomInfo("代号") = i
'part.CustomInfo("名称") = j
part.DeleteCustomInfo ("代号")
part.DeleteCustomInfo ("名称")
temp = part.AddCustomInfo3("", "代号", swCustomInfoText, i)
temp = part.AddCustomInfo3("", "名称", swCustomInfoText, j)
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息