图号分离宏的使用问题

苏州装配工 · 发表于 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
( T$ D: b8 x' s( i4 k% }悄咪咪的说，这个原版是我写的

惊现大佬？？

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

魍者归来发表于 2021-3-8 16:52
7 Y4 K- r% _$ s6 N正解，如果不需要分离文件名，只需要改工程图的模板就可以了

咋改？求教

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

苏州装配工发表于 2021-3-8 17:14
! k; x' E" I7 f/ }% U [Dim swApp As Object- c A& q% [) N4 X- }" G- b" N

: D4 f( R4 a& b/ \/ ?/ {# `% D6 I4 DDim Part As Object

还是不对

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

半夏丨迷离发表于 2021-3-8 18:04
$ S) p# e$ e# H8 R( u% R j还是不对

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

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

zhufeng_hgp 发表于 2021-3-8 15:22
0 \! d3 W( l- |+ a) X; q& ]4 F1 p我用的是凯元工具，图号分离挺好用的，还能读取材料，填入日期，作者等内容，就是非会员一次只能处理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) `! l" Z# Q- [ G+ B2 ?4 i% B
自定义属性卡都没有弄好肯定识别不了啦，你要把自定义属性连接到工程图模板，然后画图也要用这个模板。B ...

谢了，我去查查

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

看起来好复杂的样子。。

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

图号分离宏的使用问题

点评

评分

本帖子中包含更多资源