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("", "名称")
blnretval = Part.DeleteCustomInfo2("", "材料")
a = InStr(c, ".") - 1
If a > 0 Then
k = Left(c, a)
t = Left(LTrim(c), 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
If j <> -1 Then
m = Left(b, j)
End If
End If
blnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e)
blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m)
blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, strmat)
End Sub
----------------------------------------------------------------------------------------------------------------
改了一下，亲测可用。有哪里不符合你的要求回帖再改咯。 魍者归来 发表于 2021-3-8 16:46
悄咪咪的说，这个原版是我写的
惊现大佬？？
魍者归来 发表于 2021-3-8 16:52
正解，如果不需要分离文件名，只需要改工程图的模板就可以了
咋改？求教 苏州装配工 发表于 2021-3-8 17:14
Dim swApp As Object
Dim Part As Object
还是不对 半夏丨迷离 发表于 2021-3-8 18:04
还是不对
最后那三项是宏生成的吗？自己图带的话，删除了，宏自己生成出来估计就对了，再不对就不知道了，你可以单步调试一下。我用着没事的。
zhufeng_hgp 发表于 2021-3-8 15:22
我用的是凯元工具，图号分离挺好用的，还能读取材料，填入日期，作者等内容，就是非会员一次只能处理9个零 ...
我是会员
图号加名称一种奇怪的存在。 自定义属性卡都没有 弄好 肯定识别不了啦，你要把自定义属性连接到工程图模板，然后画图也要用这个模板。B站 搜 SW自定义属性工程图。众所周知B站是和学习的地方 特斯拉·MY 发表于 2021-3-9 01:19
自定义属性卡都没有 弄好 肯定识别不了啦，你要把自定义属性连接到工程图模板，然后画图也要用这个模板。B ...
谢了，我去查查
看起来好复杂的样子。。
页:
1
[2]