图号分离

呐，你要怎样 · 发表于 2019-4-22 14:18:55

软件小白一枚，因为公司需要统一零件模板，并且和我们搭建的PDM关联，需要将文件属性写入配置待定里面。之前用图号分离宏只能把属性写入自定义信息中，配置待定中只有空的标题，分离后的内容不能读取。
下面是我在网上找的说是可以将图号分离后属性写到配置待定的代码，实际调试有错误，见红色代码。
---
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

Dim Part As Object

Dim swApp As SldWorks.SldWorks

Dim swModelDoc As SldWorks.ModelDoc2

Dim swConfig As SldWorks.Configuration

Dim swModel As SldWorks.ModelDoc2

Sub main()

Set swApp = Application.SldWorks

Set swModelDoc = swApp.ActiveDoc

Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration

Set swModel = swApp.ActiveDoc

Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio.Name) '配置特定延伸

'设定变量

c = swApp.ActiveDoc.GetTitle() '零件名

strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)

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" Or t = ".sldprt" Or t = ".sldasm" Then

j = Len(b) - 7 '消除后缀(区分大小写,即含4种)

Else

j = Len(b)

End If

m = Left(b, j)

End If

'删除栏

CustPropMgr.Delete ("图样代号")

CustPropMgr.Delete ("图样名称")

CustPropMgr.Delete ("材料")

'新增

CustPropMgr.Add2 "图样代号", swCustomInfoText, e

CustPropMgr.Add2 "图样名称", swCustomInfoText, m

CustPropMgr.Add2 "数量", swCustomInfoText, ""

CustPropMgr.Add2 "材料", swCustomInfoText, strmat

CustPropMgr.Add2 "单重", swCustomInfoText, ""

CustPropMgr.Add2 "总重", swCustomInfoText, ""

CustPropMgr.Add2 "备注", swCustomInfoText, ""

End Sub
---
想请教下大拿们，这个代码要怎么修改才能管用。之前的图号分离宏，可以让所有属性出现在自定义里。或者有没有办法加一段自动复制自定义里面属性到配置待定里去的代码？

在线等大神解惑

网中人000 · 发表于 2024-8-26 09:05:35

下来看看

刘生693 · 发表于 2024-1-25 16:37:34

高手如云

独孤求剑A · 发表于 2024-1-25 16:00:12

看着头晕

大白123 · 发表于 2023-12-14 17:02:59

呐，你要怎样发表于 2019-4-22 17:10
8 p4 }: q/ m1 g大哥好

我也有宏

mengfeit · 发表于 2023-12-7 11:55:35

唉，看着就头麻，还是老老实实敲吧

请填写名称 · 发表于 2023-12-6 13:49:08

插个眼，有时间再来研究

qwmib7669 · 发表于 2023-12-6 09:00:56

不能自动生成 “类型” 的那列的值，“数值/文字表达”这列都事空白的，

laotoule8 · 发表于 2023-11-23 22:18:22

本帖最后由 laotoule8 于 2023-11-23 22:20 编辑

不错啊。

qwmib7669 · 发表于 2023-11-21 14:41:22

C:\Users\Administrator\Desktop

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

图号分离

本帖子中包含更多资源

本帖子中包含更多资源