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

貳大爺 · 發(fā)表于 2020-6-2 13:40:11

有哪位大哥有制作sw模板的教程?本人網(wǎng)上找了很多現(xiàn)在資料做起來(lái)好亂，就是實(shí)現(xiàn)不了。請(qǐng)各位前輩多多指教�？梢缘脑捘軒兔Πl(fā)我郵箱么？感謝。郵箱是：eryewjr@qq.com 在此多謝了。

葉落満空山 · 發(fā)表于 2020-6-2 15:02:54

http://e-learninguniversity.com/forum.php?mod ... 2%D7%D4%BC%BA%B5%C4

貳大爺 · 發(fā)表于 2020-6-2 15:25:26

多謝了我去看下。

點(diǎn)點(diǎn)人生123 · 發(fā)表于 2020-6-2 15:27:38

這個(gè)很簡(jiǎn)單的，自己用點(diǎn)心愛(ài)奇藝上完全可以找到視頻，我就是上面找的視頻

貳大爺 · 發(fā)表于 2020-6-2 15:52:09

點(diǎn)點(diǎn)人生123 發(fā)表于 2020-6-2 15:27
; i6 Z- f& p: R' \2 Z1 c這個(gè)很簡(jiǎn)單的，自己用點(diǎn)心愛(ài)奇藝上完全可以找到視頻，我就是上面找的視頻

我就是找了很多了現(xiàn)在好亂啊有幾個(gè)問(wèn)題比如名稱(chēng)和圖號(hào)怎么分開(kāi)，網(wǎng)上說(shuō)用宏我按照網(wǎng)上設(shè)置了也還是不行，找了很多都是這一塊那一塊的沒(méi)有連續(xù)性的。所以現(xiàn)在還是不行。

貳大爺 · 發(fā)表于 2020-6-2 15:52:52

葉落満空山發(fā)表于 2020-6-2 15:02; O5 [* u2 m1 `# G- z% ?
http://e-learninguniversity.com/forum.php?mod=viewthread&tid=773294&highlight=%CE%D2%D7%D4%BC%BA%B5%C4

謝謝了我還是像樓下說(shuō)的去找下視頻看下。

未來(lái)第一站 · 發(fā)表于 2020-6-2 22:04:49

找本教材看看。

貳大爺 · 發(fā)表于 2020-6-3 08:33:27

未來(lái)第一站發(fā)表于 2020-6-2 22:04
1 ~) U `9 k1 {. q7 O) ] G找本教材看看。

好的

葉落満空山 · 發(fā)表于 2020-6-3 11:04:38

圖號(hào)分離宏（到自定義屬性），原則就是前面是數(shù)字中間是空格后面是名字例如：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

葉落満空山 · 發(fā)表于 2020-6-3 11:06:17

圖號(hào)分離（分離到配置特定里），原則同上。

'????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

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員