|
|
楼主 |
发表于 2015-9-3 20:15:54
|
显示全部楼层
来自： 中国甘肃兰州
本帖最后由 ning84 于 2015-9-4 09:31 编辑 ) k/ [" H T, b8 [
在压力容器制图，总图是1，2，3，部件图是1-1，1-2，1-3都是这种排列。
. O& F- m4 G# [6 l! p9 Y9 B大型装配图总图，部件图都是1-1,1-2排列。 D# S- d3 Y1 m1 g% w- T
-
2 @6 [1 o: Q4 A! d; W - Private Sub ll1(): C6 \/ W* y4 G& t0 B
- Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
, R/ u; u0 ^6 m - Set SwApp = Application.SldWorks
) L2 @7 p/ O3 I/ O) c - Set SwModel = SwApp.ActiveDoc5 i* M, D7 M* b
- Dim SwSelMgr As SelectionMgr, Str" q% \+ r% K0 ^" G* O
- Set SwSelMgr = SwModel.SelectionManager
/ e$ W, A6 ?8 B - Dim SwNote As Note, P2 f2 i0 `: s( }9 r3 V
- Set SwNote = SwSelMgr.GetSelectedObject5(1)0 F/ B4 O- M1 Q
- Debug.Print SwNote.GetName, SwNote.GetText
: X$ s4 g/ E, L6 j3 }# c - 'SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, swDetailingNoteTextCustom, "3-" & SwNote.GetText, swDetailingNoteTextItemNumber, "1"$ X0 B4 ~. I( C# [& j9 [
- Str = "3-" & SwNote.GetText
) i% D3 q7 r6 [. ?0 X3 x8 c- m - Str = "") x' X9 ?% s- c- P m8 P; n( P
- 'SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, 0, Str, swDetailingNoteTextItemNumber, "1"
/ ?8 t1 W2 u6 l4 y( p) B e - ' SwModel.EditBalloonProperties swBS_FlagTriangle, swBF_Tightest, swDetailingNoteTextQuantity, Str, swDetailingNoteTextItemNumber, "1"
! \. n: r7 _# _( U - SwModel.EditBalloonProperties swBS_Underline, swBF_Tightest, swDetailingNoteTextItemNumber, Str, swDetailingNoteTextItemNumber, "1"
7 K* D6 S6 Y8 `# J8 y - 'SwModel.EditBalloonProperties 10, 0, 0, "3-2", 2, "1"% B2 K) l' z9 K. o
- End Sub) o$ A7 b0 a/ S* R) X4 J9 U
数字+字母-零件序号问题?-SolidWorks-三维网 - Powered by Discuz!
$ u! ]9 e' D) l& M6 V8 ^7 w( f8 Zhttp://www.3dportal.cn/discuz/fo ... 3%BC%FE%D0%F2%BA%C50 s/ {/ b0 Y C" i3 e$ b) t. A
http://www.3dportal.cn/discuz/data/attachment/forum/month_1204/12041910187644a513b37b7bb4.jpg5 x. k: {8 `# F% [. s$ G- o: x
2 j9 Y: k5 b4 w
8 O' v; o5 |) j7 W5 B
$ |3 u/ r3 F L2 { |
|
发表于 2015-9-3 17:19:57
