图号名称如何自动分别填入标题栏?

tzydsfy

大家好,我在网上也找了不少的"图号名称自动分离"的方法,大家都是用宏命令实现的.但是我分别试用了不同版本的宏都无法实现.所以我恳请哪位有过这方面经验的高人能教教我,最好能加我QQ:347849309,直接交流会方便不少,或者能发我一份写好的宏程序及图纸模板.谢谢!    我是64位WIN7系统,SW是64位的SW2012 SP5的,比如图纸保存为:AJLZP01-01-01_平板,想在出工程图时能够自动的把AJLZP01-01-01自动填入标题中代号栏,平板自动填入标题栏中的名称栏.                          我知道可能会有人觉得网上好多这方面的内容,觉得很简单,可说真的可能我太笨了吧,我试了多少都没成功,所以非常希望能得到大家很直接的解决办法,再次感谢!

gt.adan

1. Dim swApp As Object
   4 A1 o2 Y9 A2 w& n" H
2. Dim a As Variant
   0 U) u3 ]9 y# t8 s) |
3. 
   9 b! W* G  b! Q' T" X
4. Sub main()
   ; b& y4 C/ G! W( R
5. Set swApp = Application.SldWorks
   
6. Set model = swApp.ActiveDoc
   ' Q! @7 r( O- o2 C
7. Title = model.GetTitle
   
8. Title = Left(Title, Len(Title) - 7)
   , C+ M) @  p9 n, _: n
9. a = Split(Title, "_")
   
10. 
    $ q8 u# Y1 Z' c: J$ c' Z
11.    retval = swApp.ActiveDoc.DeleteCustomInfo2(sConfigName, "PartNo")
    3 E2 Y- J" {5 m7 K6 U. B! A: v4 y
12.    retval = swApp.ActiveDoc.AddCustomInfo3(sConfigName, "PartNo", swCustomInfoText, a(0))
    
13.    retval = swApp.ActiveDoc.DeleteCustomInfo2(sConfigName, "PartName")
    ( r. J' B3 ~7 x6 e9 F
14.    retval = swApp.ActiveDoc.AddCustomInfo3(sConfigName, "PartName", swCustomInfoText, a(1))
    2 s% H4 Z7 e( p' p7 z
15. 
    / Q+ N9 r- J$ q& A( z5 `! U- T0 D
16. End Sub

复制代码

由於繁簡的問題，請將 PartNo 改為代號； PartName 改為名稱。
( S% t, s3 Y( q3 o" ~

tzydsfy

gt.adan 发表于 2016-7-12 13:43
- a# _" G$ c4 z# r由於繁簡的問題，請將 PartNo 改為代號； PartName 改為名稱。

: x" _: P* R8 t6 O8 ~& P9 p非常感谢你的回复.我运行了一下,08代码行提示出错了,能不能再帮着看一下.

gt.adan

能貼個圖看看是什麼情況嗎？