机械必威体育网址

标题: 求sw的零件属性以及工程图等模板制作教程 [打印本页]
作者: 贰大爷    时间: 2020-6-2 13:40
标题: 求sw的零件属性以及工程图等模板制作教程
有哪位大哥有制作sw模板的教程?本人网上找了很多现在资料做起来好乱，就是实现不了。请各位前辈多多指教。可以的话能帮忙发我邮箱么？感谢。邮箱是：eryewjr@qq.com    在此多谢了。
: [0 o8 _1 p9 ]0 }( ~  ~
作者: 叶落満空山    时间: 2020-6-2 15:02
//www.szfco.com/forum.php?mod ... 2%D7%D4%BC%BA%B5%C4
作者: 贰大爷    时间: 2020-6-2 15:25
多谢了   我去看下。
4 r$ j% S  ~8 f6 _/ X( g7 r2 ?
作者: 点点人生123    时间: 2020-6-2 15:27
这个很简单的，自己用点心爱奇艺上完全可以找到视频，我就是上面找的视频
作者: 贰大爷    时间: 2020-6-2 15:52
点点人生123 发表于 2020-6-2 15:27
8 Q: A; A+ {. A% x2 Q3 T3 i这个很简单的，自己用点心爱奇艺上完全可以找到视频，我就是上面找的视频

# F+ _- E# |) K; L9 |6 }我就是找了很多了  现在好乱啊  有几个问题比如名称和图号怎么分开，网上说用宏   我按照网上设置了也还是不行，找了很多都是这一块那一块的    没有连续性的。所以现在还是不行。/ v( O) B5 {2 j* q4 F
作者: 贰大爷    时间: 2020-6-2 15:52
叶落満空山 发表于 2020-6-2 15:02
/ T$ y' _6 ]' c6 D) C//www.szfco.com/forum.php?mod=viewthread&tid=773294&highlight=%CE%D2%D7%D4%BC%BA%B5%C4

1 L$ e$ |; |5 e谢谢了   我还是像楼下说的去找下视频看下。
* l* |! y% S* S" ~2 J; W7 J) F
作者: 未来第一站    时间: 2020-6-2 22:04
找本教材看看。
作者: 贰大爷    时间: 2020-6-3 08:33
未来第一站 发表于 2020-6-2 22:04, {2 k6 H4 E1 ?9 P! k
找本教材看看。
+ I2 k6 S2 o- n' _6 G1 S) d
好的   
作者: 叶落満空山    时间: 2020-6-3 11:04
图号分离宏（到自定义属性），原则就是前面是数字中间是空格后面是名字例如：szkm20018-01-101 底板' h7 `/ V( \& @4 q. ^

. x0 D( ^. b+ \0 F) Q, `'????solidwork
  K% k( l( v* o  ?9 D' m5 B+ {- pDim swApp As Object! ]- w7 Z0 G# y4 y
Dim Part As Object
  P: R9 B  l# V9 e! e* i' v- s4 jDim SelMgr As Object6 a8 j6 u' h+ I2 R: h
Dim boolstatus As Boolean
3 I" ]* [7 ?5 S7 NDim longstatus As Long, longwarnings As Long
+ Y# J3 n- l8 U% R+ p" NDim Feature As Object  r% O# O  m* y3 S( B
Dim a As Integer
/ J. A" G+ N2 z$ zDim b As String
) `, y2 z' E1 U% `- p! kDim m As String
/ |8 n/ U+ f& G& T* c: mDim e As String/ K8 f- d9 A' s3 s
Dim k As String
* G- j! U) e7 w" m* D/ _# g/ dDim t As String) C# N9 r# o; z- G; O6 ]6 ?& W
Dim c As String
+ T9 E/ X1 @7 R$ W  DDim j As Integer
& Q/ @% V! s5 p* c5 uDim strmat As String
) S6 M# j# Z# J; C( ~# b# K6 {9 NDim tempvalue As String. U: f6 x' Z, t! X8 E) C
Sub main()' x3 M, j, E3 t& d) I( V
'link solidworks
# G6 Y4 \! @" d, P! mSet swApp = Application.SldWorks
6 K+ l8 w$ B8 x3 s0 I8 ]: wSet Part = swApp.ActiveDoc
5 m/ R, L+ J2 z) ]7 DSet SelMgr = Part.SelectionManager5 b, X: e5 b0 N# E$ k8 D, F
swApp.ActiveDoc.ActiveView.FrameState = 1/ R0 Y- p% {2 y3 A+ o; s1 p" ~
'?趨????
9 _  |2 a9 M0 h$ Lc = swApp.ActiveDoc.GetTitle() '?????
1 x* Q, c/ `1 ]# U2 S3 m. V0 jstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
7 d- g& `5 V+ w- i6 u4 j' Q5 ?2 Ablnretval = Part.DeleteCustomInfo2("", "????")7 B# j$ |% |* V- r
blnretval = Part.DeleteCustomInfo2("", "????")+ q2 u3 V" m  H6 n0 l+ v
blnretval = Part.DeleteCustomInfo2("", "????")" o3 x) d2 k1 Z- J1 ~4 ^6 ~
a = InStr(c, " ") - 1      '????????????????????????3 R" K2 w% |+ W: V
If a > 0 Then
; i# u8 d+ @* E( [    k = Left(c, a)
  R3 z* q, n' s3 {- v: y/ c    t = Left(LTrim(e), 3)
& n, c# R* U; n# n7 `& T    If t = "GBT" Then- {+ o% c  p! r4 P" w
        e = "GB/T" + Mid(k, 4)' n3 Q+ V; ^; ?# P8 ]9 a8 J1 O
    Else, {  S# F7 }. t  ]
        e = k
; S- ]& T: g( C8 k0 ?% g+ f' @& `    End If/ T; V0 P0 E3 L: x, T& H" m
    b = Mid(c, a + 2)# T5 ^0 ~1 ~0 e; c( T$ Q& e
    t = Right(c, 7)2 |! h9 y7 \8 |1 g. |8 f
    If t = ".SLDPRT" Or t = ".SLDASM" Then2 W6 I* ]) A% {- J
        j = Len(b) - 7* }  h% B9 n6 U1 k" E; G' B! ~0 |4 R' K
    Else
1 j, G, J: r& w        j = Len(b)
9 c/ L  ?1 k( H7 q5 D/ s, H  m    End If0 h! [4 D% w: R$ m' {2 k
    m = Left(b, j)
3 [/ |* i7 P; q5 }& C. tEnd If+ }, O0 y" w9 @. |  x$ {0 b
End Sub$ j# ~1 J) v4 X  N4 {& C% M
) _3 h# K4 b) A( d/ d2 g3 p
' x( F9 k. @, R3 F. w% @  Q6 e
作者: 叶落満空山    时间: 2020-6-3 11:06
图号分离（分离到配置特定里），原则同上。/ g: f9 {: V- A# h! h* z( H
5 P0 x+ W, o$ U& v8 a
'????sw( D9 I6 H/ j9 p1 G) U& H
- O" _) u- [9 V% {& G6 y3 ]
Dim a As Integer; ?) X4 r3 [' i* l! n2 g+ v
Dim b As String% k7 M; a: W; u% ~: N1 T5 l+ ]
Dim m As String5 j" r3 ]: B1 Y6 P- Y" ]
Dim e As String
- J$ H( y, ?, c: |5 S0 eDim k As String
. y. ^) j/ u) o6 y! PDim t As String* x, p  @0 s, u/ a6 I  M0 o! N
Dim c As String
1 O. s) i+ t' Y6 f8 c! ADim j As Integer
- {! ?; e. O) u3 {1 S9 [& jDim strmat As String  N" g8 w8 R# n
Dim tempvalue As String: C" l0 b' \+ C
Dim Part As Object+ l' A2 I, F$ C4 l) Z
Dim swApp As SldWorks.SldWorks
0 M9 E0 c) M7 GDim swModelDoc As SldWorks.ModelDoc2. K9 m2 g/ M  Y' [$ a/ E! y
Dim swConfig As SldWorks.Configuration. f/ x0 m6 B* N2 H! o
Dim CustPropMgr As SldWorks.CustomPropertyManager: `, O5 C$ r. I. K+ f5 z# O" Y
Dim swModel As SldWorks.ModelDoc24 F; t8 ]0 p* m% I/ T

5 {+ G0 f7 Q! V4 d/ H. d' S& @0 VSub main()
; p! o/ i. _) ^Set swApp = Application.SldWorks
7 X# E. q" V3 N4 {0 [Set swModelDoc = swApp.ActiveDoc  b, E" i9 H8 e/ g$ u# S0 r
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
! y' t( C5 ?  oSet swModel = swApp.ActiveDoc
+ c9 @" M: S/ `, n5 {Set CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name) '???????????) n9 B' H6 {0 [0 D  a8 H

; |1 ?" Y2 Y$ H; Z$ ]'?趨????
; m0 L  r  ~' w$ N4 I! y" L! Vc = swApp.ActiveDoc.GetTitle() '?????" x. t7 V0 u$ n+ ^/ y: s0 |
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
1 D/ F: z  o  W/ G' ha = InStr(c, " ") - 1 '??????????????????????????????????????$ ?/ {/ \! l/ m3 G" T: k% B, i
If a > 0 Then; W  r% ^0 D  w9 `8 B- g: \
k = Left(c, a), M3 w; e& V8 @  J4 O+ W, x
t = Left(LTrim(e), 3)
$ n) h9 w/ h/ J( z& i# U8 BIf t = "GBT" Then7 N, e8 s. D+ _3 D7 h! @' q
e = "GB/T" + Mid(k, 4)6 c+ `; `. M. F9 C# N
Else
+ j* X' \! R! t7 Qe = k
  T$ g& z8 C/ r1 ~8 J; O; _( c& |+ j$ OEnd If
4 U! U; z0 m% R8 F; v% Tb = Mid(c, a + 2)
- J7 W0 s6 ~4 V! \t = Right(c, 7)
8 o* @% v. Y: r" T" O( b8 YIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then- _/ R) y0 t% {+ @& \5 R9 V. _* q
j = Len(b) - 7  '??????????????Сд??????4???$ v$ o+ n% R% u2 @: v& x
Else9 |/ T$ [! g2 o# _# c5 Z5 h
j = Len(b)
# b& E8 B& _% N. m. VEnd If1 G/ ?" n% p- |/ q: a/ O3 o4 s+ |* F
m = Left(b, j)/ t& D8 P  L0 R& E
End If
+ |+ y4 {+ n/ e! X'?????& B/ c5 M; ^! O/ C2 t
CustPropMgr.Delete ("Number")
7 a8 g! S; z6 t$ K# W, U8 eCustPropMgr.Delete ("????"); |; B  h; Y5 g6 q% x% |+ _
CustPropMgr.Delete ("????")* M  ?( p# F$ Y  {  ?2 p+ R. u
CustPropMgr.Delete ("???????")
8 P0 K( b! F9 N) I! g) g7 @CustPropMgr.Delete ("?????")
2 I# n8 Q7 [. d6 y' |  [# y5 I! rCustPropMgr.Delete ("???")
4 s9 I2 |4 h- |7 CCustPropMgr.Delete ("???????")
4 \2 S  a' C$ `) p* m( T8 Q9 {CustPropMgr.Delete ("???????-")# ?; u% ^" \2 i4 ?) V  o
CustPropMgr.Delete ("Material-")1 {1 p1 t& \/ w& T
2 r6 d7 }7 ]1 L+ b
'????
7 e% X4 D$ b$ H6 G- S8 Q: rCustPropMgr.Add2 "Number", swCustomInfoText, e& p( w$ N7 x! x0 d# C6 k* u: j9 a
CustPropMgr.Add2 "????", swCustomInfoText, "????qq420221716". ]" e6 B, {: R! `
CustPropMgr.Add2 "???????", swCustomInfoText, m
  s9 c, ^$ ~, X$ L' N7 `0 lEnd Sub
# A3 \9 ~5 G& I  L4 W& D! K9 g3 E2 L+ q8 C( A$ G. ~9 b
作者: 贰大爷    时间: 2020-6-3 11:13
叶落満空山 发表于 2020-6-3 11:04
* T' U' \" S, N" {6 O# Q7 |: [. N图号分离宏（到自定义属性），原则就是前面是数字中间是空格后面是名字例如：szkm20018-01-101 底板
3 m4 N  O9 ~4 A3 w" z: t2 l/ h7 v, u/ L6 ^4 I7 G$ t, t1 Z
'?? ...
+ b4 k# w9 L5 v) `; ?& H, W; W
大神能发下步骤么？麻烦了。有点懵。& p6 y2 e/ ~+ F1 S; Y* G( X* O$ ?
作者: 叶落満空山    时间: 2020-6-3 15:05
附件内是图号分离到自定义属性宏文件。你把文件名称另存为上边的原则后，在sw里运行宏就行3 X" b6 P4 V) N
# k6 Y8 E- Q/ a0 L$ s2 g
作者: 贰大爷    时间: 2020-6-3 15:46
叶落満空山 发表于 2020-6-3 15:05, k6 u1 G3 e/ c/ r
附件内是图号分离到自定义属性宏文件。你把文件名称另存为上边的原则后，在sw里运行宏就行

9 j' \! g! O0 m" w2 k" h哥多谢了啊。我去试下、
作者: 远祥    时间: 2020-6-3 19:45
这种视频不多。
作者: 贰大爷    时间: 2020-6-4 18:41
远祥 发表于 2020-6-3 19:45
2 i; Z: l# m, C# q, U  I这种视频不多。

" [9 G7 ?- a( l1 o" _& @' I6 B好吧  确实找了很久没找到，。
! ?# C9 r0 }. H/ u2 G) v
作者: cyzy6388    时间: 2023-12-24 14:40
多谢分享！
作者: 陌年    时间: 2024-1-15 15:10
这个教程比较有系统性，你可以看一下，不过我权限发不了链接，需要你自己去b站搜索【solidworks新手到高级机械工程师必备教程-王江平-哔哩哔哩】
0 {' _6 s( o6 T9 z; E% ^* x/ r2 t; m



欢迎光临 机械必威体育网址 (//www.szfco.com/) Powered by Discuz! X3.4