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

貳大爺

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

葉落満空山

http://www.odgf.cn/forum.php?mod ... 2%D7%D4%BC%BA%B5%C4

貳大爺

多謝了   我去看下。

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

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

貳大爺

點(diǎn)點(diǎn)人生123 發(fā)表于 2020-6-2 15:27
" h) [& R+ D  r6 m; F2 J這個(gè)很簡(jiǎn)單的，自己用點(diǎn)心愛(ài)奇藝上完全可以找到視頻，我就是上面找的視頻

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

貳大爺

葉落満空山 發(fā)表于 2020-6-2 15:02
0 H& U' w6 B$ b/ C: x2 ohttp://www.odgf.cn/forum.php?mod=viewthread&tid=773294&highlight=%CE%D2%D7%D4%BC%BA%B5%C4

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

未來(lái)第一站

找本教材看看。

貳大爺

未來(lái)第一站 發(fā)表于 2020-6-2 22:04
找本教材看看。

* g5 B+ ?, z3 H" b4 D, W好的   

葉落満空山

圖號(hào)分離宏（到自定義屬性），原則就是前面是數(shù)字中間是空格后面是名字例如：szkm20018-01-101 底板
: P! `! G* A1 o" G
: X, w3 X1 s3 f! Z( \+ @'????solidwork
Dim swApp As Object
Dim Part As Object
4 v  R1 ?. h9 |" z) s& rDim SelMgr As Object
5 S# [1 E+ ], H& a& o' jDim boolstatus As Boolean
* D4 j2 X; d. |2 E$ BDim longstatus As Long, longwarnings As Long
Dim Feature As Object
/ H% Z- {0 n* M- {. T% p# J& iDim a As Integer
( g! m2 m! t  K/ D9 u) r& b: |Dim b As String
Dim m As String
Dim e As String
Dim k As String
* B0 r1 k* ]$ K5 i/ a* A# `' u! f- u8 b1 gDim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
; H6 ^4 L8 O3 y: ]) |Dim tempvalue As String
8 h% Y# O2 u# kSub main()
7 B2 J- V9 z7 J0 S) ~3 |  p'link solidworks
Set swApp = Application.SldWorks
+ E5 W7 M. n3 p4 }& `+ |Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
' N! i. h. d! ^; gswApp.ActiveDoc.ActiveView.FrameState = 1
5 v. |1 X3 I8 n7 Y'?趨????
2 ^% A% d1 y7 r( Q( V  Gc = swApp.ActiveDoc.GetTitle() '?????
4 y/ m: z/ T" Y6 G1 jstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
blnretval = Part.DeleteCustomInfo2("", "????")
blnretval = Part.DeleteCustomInfo2("", "????")
- @+ Q, K- d: \& T1 q( E! xblnretval = Part.DeleteCustomInfo2("", "????")
8 \# U2 g1 B5 Q1 l7 z  aa = InStr(c, " ") - 1      '????????????????????????
If a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
# D. O  W4 A6 t$ ~        e = "GB/T" + Mid(k, 4)
    Else
3 Q5 r; U  {1 C/ M9 V1 h$ t        e = k
* |! C( ~5 B2 H! d2 @! i) j" W: f    End If
# U  B# {& o7 u    b = Mid(c, a + 2)
    t = Right(c, 7)
    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
    Else
" Z, I8 o1 V. z3 R: M2 E        j = Len(b)
) ~' Y; W0 ?5 F  h* k    End If
    m = Left(b, j)
7 \6 n) h% }0 c7 j, H4 f, q$ wEnd If
. ?) b5 Z/ z. O2 {& O0 T( UEnd Sub
8 |( F5 I  v2 ~! g: R

葉落満空山

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

$ A& }" M9 c7 K, F* ?% l0 ^# z'????sw

Dim a As Integer
Dim b As String
Dim m As String
9 D2 E, x7 n3 n! Q8 pDim e As String
Dim k As String
Dim t As String
Dim c As String
8 m6 G- q1 |' w9 MDim j As Integer
. k- N8 n, L# ?2 i+ G/ vDim strmat As String
% t# H" F- d8 b* _- l- N+ lDim tempvalue As String
0 d& Y6 a2 P; S: q. BDim Part As Object
7 Z6 W# c' o% SDim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
8 h* P7 J0 b0 \) h/ |( v2 }Dim swConfig As SldWorks.Configuration
' I5 F0 Q: |# ]) |# hDim CustPropMgr As SldWorks.CustomPropertyManager
Dim swModel As SldWorks.ModelDoc2

Sub main()
Set swApp = Application.SldWorks
8 b6 z  @' B+ v$ {* X  x7 m( ESet swModelDoc = swApp.ActiveDoc
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
Set swModel = swApp.ActiveDoc
1 o9 ?% h2 y# _' d' y/ bSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '???????????
# v, B9 f$ p; V# U! D9 `+ n+ W
'?趨????
c = swApp.ActiveDoc.GetTitle() '?????
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
a = InStr(c, " ") - 1 '??????????????????????????????????????
" @* }) z5 M# `, T0 `If a > 0 Then
k = Left(c, a)
t = Left(LTrim(e), 3)
If t = "GBT" Then
6 z* n1 h6 ^  i$ T! e! He = "GB/T" + Mid(k, 4)
: p5 [! K# U5 u! m: WElse
e = k
End If
b = Mid(c, a + 2)
t = Right(c, 7)
3 @+ R$ T, C+ ^4 G0 f, xIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
j = Len(b) - 7  '??????????????Сд??????4???
Else
j = Len(b)
% ~8 V# j+ r1 g/ T) tEnd If
% B6 g, `* V4 \2 o- tm = Left(b, j)
0 P. j, z3 w' GEnd If
( N( \* I( F6 S- o! B! I4 F& \  t'?????
CustPropMgr.Delete ("Number")
* X* `" n5 {6 r/ h9 H2 s/ ACustPropMgr.Delete ("????")
CustPropMgr.Delete ("????")
CustPropMgr.Delete ("???????")
CustPropMgr.Delete ("?????")
& \8 l8 [$ u) n* d3 U" kCustPropMgr.Delete ("???")
0 e: E& b# I4 Z7 E8 V+ y  x4 oCustPropMgr.Delete ("???????")
CustPropMgr.Delete ("???????-")
8 C9 T6 Q% ^# C3 W2 e; UCustPropMgr.Delete ("Material-")

3 h/ x) a4 ?; A* h1 O' N7 N5 O'????
4 `' d; s, Z* v7 tCustPropMgr.Add2 "Number", swCustomInfoText, e
* L# ^, l) t  @6 n% CCustPropMgr.Add2 "????", swCustomInfoText, "????qq420221716"
CustPropMgr.Add2 "???????", swCustomInfoText, m
2 s. T) m" h% R$ F: lEnd Sub
; e6 I! m3 d8 M
9 i7 P$ K* M4 X0 O( }0 b2 A: d