图号分离宏的使用问题

苏州装配工 · 发表于 2021-3-8 17:14:54

本帖最后由苏州装配工于 2021-3-8 17:27 编辑

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 17:31:45

魍者归来发表于 2021-3-8 16:46
! }) p) Q4 |# m# w悄咪咪的说，这个原版是我写的

惊现大佬？？

半夏丨迷离 · 发表于 2021-3-8 17:32:39

魍者归来发表于 2021-3-8 16:52
( w A& [/ q. p- B正解，如果不需要分离文件名，只需要改工程图的模板就可以了

咋改？求教

半夏丨迷离 · 发表于 2021-3-8 18:04:20

苏州装配工发表于 2021-3-8 17:14
! L5 D3 F6 c: T4 MDim swApp As Object
- P q! a# v& X; J
9 x1 W: y7 }! H2 TDim Part As Object

还是不对

苏州装配工 · 发表于 2021-3-8 18:51:30

半夏丨迷离发表于 2021-3-8 18:04
3 z) c1 n: |9 _还是不对

最后那三项是宏生成的吗？自己图带的话，删除了，宏自己生成出来估计就对了，再不对就不知道了，你可以单步调试一下。我用着没事的。

fiyu1314 · 发表于 2021-3-8 19:20:16

zhufeng_hgp 发表于 2021-3-8 15:22* N" d( R. F2 T9 D& ]
我用的是凯元工具，图号分离挺好用的，还能读取材料，填入日期，作者等内容，就是非会员一次只能处理9个零 ...

我是会员

未来第一站 · 发表于 2021-3-8 21:23:47

图号加名称一种奇怪的存在。

特斯拉·MY · 发表于 2021-3-9 01:19:30

自定义属性卡都没有弄好肯定识别不了啦，你要把自定义属性连接到工程图模板，然后画图也要用这个模板。B站搜 SW自定义属性工程图。众所周知B站是和学习的地方

半夏丨迷离 · 发表于 2021-3-9 09:27:33

特斯拉·MY 发表于 2021-3-9 01:19
7 X$ ~8 M8 O& L8 e0 F自定义属性卡都没有弄好肯定识别不了啦，你要把自定义属性连接到工程图模板，然后画图也要用这个模板。B ...

谢了，我去查查

远祥 · 发表于 2021-3-10 11:06:04

看起来好复杂的样子。。

		自动登录	找回密码
密码			注册会员

图号分离宏的使用问题

点评

评分

本帖子中包含更多资源