关于图号分离 宏代码 问题
jiajiang951
|
来自:云南 怒江
|
浏览789次
|
提问时间:03-02 13:46
|
回答数量:6
如下是图号分离 宏代码 图号在前 名称在后用此宏可以 一键 分离 到自定义属性上面去,问题来了我现在调用的3D制造云标准件 都是名称在前代号再后这个宏得更改一下了 谁会帮我改改。
"从这里开始复制:
"定义solidwork
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
Sub main()
"link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
"设定变量
c = swApp.ActiveDoc.GetTitle() "零件名
strmat = Chr(34) + Trim(SW-Material + @) + c + Chr(34)
blnretval = Part.DeleteCustomInfo2(, 代号)
blnretval = Part.DeleteCustomInfo2(, 名称)
a = InStr(c, ) - 1 "重点:分隔标识符,这里是一个空格
If a > 0 Then
k = Left(c, a)
t = Left(LTrim(e), 3)
If t = GBT Then
e = GB/T + Mid(k, 4)
Else
e = k
End If
b = Mid(c, a + 2)
t = Right(c, 7)
If t = .SLDPRT Or t = .SLDASM Then
j = Len(b) - 7
Else
j = Len(b)
End If
m = Left(b, j)
End If
blnretval = Part.AddCustomInfo3(, 代号, swCustomInfoText, e)"代号
blnretval = Part.AddCustomInfo3(, 名称, swCustomInfoText, m)"名称
blnretval = Part.AddCustomInfo3(, 表面处理, swCustomInfoText, )
End Sub