求sw的零件属性以及工程图等模板制作教程

贰大爷 · 发表于 2020-6-2 13:40:11

有哪位大哥有制作sw模板的教程?本人网上找了很多现在资料做起来好乱，就是实现不了。请各位前辈多多指教。可以的话能帮忙发我邮箱么？感谢。邮箱是：eryewjr@qq.com 在此多谢了。

陌年 · 发表于 2024-1-15 15:10:52

这个教程比较有系统性，你可以看一下，不过我权限发不了链接，需要你自己去b站搜索【solidworks新手到高级机械工程师必备教程-王江平-哔哩哔哩】

cyzy6388 · 发表于 2023-12-24 14:40:39

多谢分享！

贰大爷 · 发表于 2020-6-4 18:41:41

远祥发表于 2020-6-3 19:45# R9 c0 X7 \3 g$ K4 g
这种视频不多。

好吧确实找了很久没找到，。

远祥 · 发表于 2020-6-3 19:45:42

这种视频不多。

贰大爷 · 发表于 2020-6-3 15:46:51

叶落満空山发表于 2020-6-3 15:059 S7 s, F: o: P3 D% o% t! h. ~
附件内是图号分离到自定义属性宏文件。你把文件名称另存为上边的原则后，在sw里运行宏就行

哥多谢了啊。我去试下、

叶落満空山 · 发表于 2020-6-3 15:05:29

附件内是图号分离到自定义属性宏文件。你把文件名称另存为上边的原则后，在sw里运行宏就行

贰大爷 · 发表于 2020-6-3 11:13:48

叶落満空山发表于 2020-6-3 11:04
1 s$ d* \7 S" F6 b7 |$ X% A图号分离宏（到自定义属性），原则就是前面是数字中间是空格后面是名字例如：szkm20018-01-101 底板
, }6 n3 W) o7 L M; G+ E4 }8 e6 n# v
6 ~2 w8 ?( h3 ['?? ...

大神能发下步骤么？麻烦了。有点懵。

叶落満空山 · 发表于 2020-6-3 11:06:17

图号分离（分离到配置特定里），原则同上。

'????sw

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 CustPropMgr As SldWorks.CustomPropertyManager
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.ActiveConfiguration.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 ("Number")
CustPropMgr.Delete ("????")
CustPropMgr.Delete ("????")
CustPropMgr.Delete ("???????")
CustPropMgr.Delete ("?????")
CustPropMgr.Delete ("???")
CustPropMgr.Delete ("???????")
CustPropMgr.Delete ("???????-")
CustPropMgr.Delete ("Material-")

'????
CustPropMgr.Add2 "Number", swCustomInfoText, e
CustPropMgr.Add2 "????", swCustomInfoText, "????qq420221716"
CustPropMgr.Add2 "???????", swCustomInfoText, m
End Sub

叶落満空山 · 发表于 2020-6-3 11:04:38

图号分离宏（到自定义属性），原则就是前面是数字中间是空格后面是名字例如：szkm20018-01-101 底板

'????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("", "????")
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
End Sub

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

求sw的零件属性以及工程图等模板制作教程

本帖子中包含更多资源