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

貳大爺

有哪位大哥有制作sw模板的教程?本人網(wǎng)上找了很多現(xiàn)在資料做起來好亂，就是實(shí)現(xiàn)不了。請(qǐng)各位前輩多多指教。可以的話能幫忙發(fā)我郵箱么？感謝。郵箱是：eryewjr@qq.com    在此多謝了。

葉落満空山

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

貳大爺

多謝了   我去看下。

點(diǎn)點(diǎn)人生123

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

貳大爺

點(diǎn)點(diǎn)人生123 發(fā)表于 2020-6-2 15:27
9 R. j! i# x5 |4 w這個(gè)很簡(jiǎn)單的，自己用點(diǎn)心愛奇藝上完全可以找到視頻，我就是上面找的視頻

( V9 L. V' f8 Q7 V6 [7 C% e- \我就是找了很多了  現(xiàn)在好亂啊  有幾個(gè)問題比如名稱和圖號(hào)怎么分開，網(wǎng)上說用宏   我按照網(wǎng)上設(shè)置了也還是不行，找了很多都是這一塊那一塊的    沒有連續(xù)性的。所以現(xiàn)在還是不行。
5 r; E2 d3 z2 ~( I3 j& H: u5 f  v

貳大爺

葉落満空山 發(fā)表于 2020-6-2 15:02
8 M2 y6 ?5 m2 M7 lhttp://e-learninguniversity.com/forum.php?mod=viewthread&tid=773294&highlight=%CE%D2%D7%D4%BC%BA%B5%C4

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

未來第一站

找本教材看看。

貳大爺

未來第一站 發(fā)表于 2020-6-2 22:04
8 y7 }4 e) [/ @) E- x找本教材看看。

2 j0 i3 y" U- `4 _  q好的   

葉落満空山

圖號(hào)分離宏（到自定義屬性），原則就是前面是數(shù)字中間是空格后面是名字例如：szkm20018-01-101 底板
2 _0 u5 D4 x" Y: D) s
'????solidwork
# [( Q/ v+ y$ d& [) CDim swApp As Object
Dim Part As Object
Dim SelMgr As Object
& ~" _2 \) q7 |, A4 D. Z4 V# CDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
( G* H3 S; u' I* [0 P# WDim a As Integer
4 u1 z; L6 q# c! ^0 h" H; KDim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
$ \; w' i, u2 g/ e, C7 R  eDim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
6 N# z! l# [5 O0 G" rSub main()
'link solidworks
, x& j. f$ B) dSet swApp = Application.SldWorks
/ N7 C- O# \$ z) o9 w$ dSet Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
'?趨????
+ A4 Y# u, L3 @4 o1 U6 j2 Jc = swApp.ActiveDoc.GetTitle() '?????
7 T" b+ w/ H# @- Qstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
& ]' k7 @4 {# I0 nblnretval = Part.DeleteCustomInfo2("", "????")
blnretval = Part.DeleteCustomInfo2("", "????")
blnretval = Part.DeleteCustomInfo2("", "????")
2 N% t/ R; ]4 C4 |+ \& z0 B; Ma = InStr(c, " ") - 1      '????????????????????????
* k" g, b' C; n" v" HIf a > 0 Then
  c) g; E; c# Z% w8 i    k = Left(c, a)
    t = Left(LTrim(e), 3)
5 ^( d& J7 v& U' E1 ^6 M9 w* K/ W    If t = "GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
5 B9 l7 y9 n/ Y% p, S! ?5 l/ v        e = k
    End If
0 D' Q- Q/ E9 Q. ]' K    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
3 A# P3 n% O0 L        j = Len(b) - 7
    Else
        j = Len(b)
    End If
5 s: N3 q2 K' q! X: H! {    m = Left(b, j)
End If
9 o, _4 M, p  `% ^End Sub
" [* w9 |- Y9 k" G/ E( {
$ g1 ]& m5 ~( H, Y4 Z8 l
2 f: i) s2 u, w4 Z

葉落満空山

圖號(hào)分離（分離到配置特定里），原則同上。
, |1 \8 y% f! |6 Y, |
% [/ G* ^1 m7 u- i% i'????sw
) q; ~6 |3 K2 j+ S- L4 h# m3 R
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
$ o4 p8 A( ]+ ]! _8 Z; R) g: \: aDim k As String
Dim t As String
- J: {$ r( u( f& X0 @Dim c As String
4 ^+ C# O) j$ f- b6 P9 A5 c) ^Dim j As Integer
% o: Z' ]: n, Z3 xDim strmat As String
& W0 }0 K9 ~( [2 sDim tempvalue As String
Dim Part As Object
! [' ]  \' ~3 C2 yDim swApp As SldWorks.SldWorks
+ M  u7 q) G3 J* n, ~/ n0 DDim swModelDoc As SldWorks.ModelDoc2
% i1 m0 s: f6 l! N; j; ADim swConfig As SldWorks.Configuration
Dim CustPropMgr As SldWorks.CustomPropertyManager
6 M3 Z: S6 E5 X- {$ @" d4 e( uDim swModel As SldWorks.ModelDoc2
0 v$ j6 ~8 S0 @
9 @* R# a6 S0 V" @$ X  oSub main()
Set swApp = Application.SldWorks
Set swModelDoc = swApp.ActiveDoc
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
7 Z( Y0 X3 x" `0 U* d2 i2 CSet swModel = swApp.ActiveDoc
Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '???????????
1 w8 y8 r- s" @
' z6 ?( |" H0 z6 P# C. D7 s'?趨????
9 x) R- z" ~0 D# z' L1 cc = swApp.ActiveDoc.GetTitle() '?????
0 i) }  G# k! F. y; _strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
a = InStr(c, " ") - 1 '??????????????????????????????????????
& r- J; [% X; `3 v; ^! yIf a > 0 Then
k = Left(c, a)
t = Left(LTrim(e), 3)
If t = "GBT" Then
e = "GB/T" + Mid(k, 4)
3 R7 A# R; c* L+ _, L  Y: \Else
3 B( a2 K. S) c- Z$ o3 @e = k
End If
b = Mid(c, a + 2)
t = Right(c, 7)
, Q5 u) F* Q; wIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
9 V7 U# \9 z9 a$ |6 Bj = Len(b) - 7  '??????????????Сд??????4???
Else
j = Len(b)
6 v# Q5 R& x9 m* S( a3 AEnd If
m = Left(b, j)
* r3 n/ R2 B' \* @1 R! e: kEnd If
'?????
9 C' G# H) ^3 d, MCustPropMgr.Delete ("Number")
  s/ g5 E8 ^* U3 NCustPropMgr.Delete ("????")
8 l  C. ^; |( Z" S9 `CustPropMgr.Delete ("????")
CustPropMgr.Delete ("???????")
CustPropMgr.Delete ("?????")
5 |1 {9 E7 O) e6 p* PCustPropMgr.Delete ("???")
5 D: c+ L6 C7 \& r8 W$ v4 |& QCustPropMgr.Delete ("???????")
CustPropMgr.Delete ("???????-")
CustPropMgr.Delete ("Material-")
$ _( J4 y5 W6 H3 e0 c
- u" a# h  p! }, S* m'????
CustPropMgr.Add2 "Number", swCustomInfoText, e
CustPropMgr.Add2 "????", swCustomInfoText, "????qq420221716"
0 G9 W" W+ }+ n; l, r- W) B- \CustPropMgr.Add2 "???????", swCustomInfoText, m
End Sub