材料明细表的变字体设置→人工设置，API设置，Sw内置。

ning84

7 B5 a" ~/ s$ c) `/ U

! b# s  J' Y8 ]
在材料明细表中，经常将名称的字体设置为4mm。
7 @; |' W( N* G; s4 p8 |8 n将图示中的，材料表的A1字体设置为2.5mm.
; F1 E' k9 }9 T& E1 t! a9 S  g% \! r
8 L7 n& l- g# ^
5 `. Y* _. t5 ^7 N6 R3 y8 j


问各位有什么解决方法：
1 人工设置字体。
7 p& r) v( R9 A3 o& J3 G$ ]2 用API设置字体。
  d- @7 v2 [9 \# {  ~* o3 材料明细表内置功能设置字体。



( N7 B* u9 P+ O

1. 
   2 h# f/ W; O* [7 j1 d
2. Private Sub ll0617()
   ! k. u& x: o. n- j. g# s# d
3.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   
4.         Set SwApp = Application.SldWorks
   7 f# R# O+ K! G2 ]  a- f6 I# Z
5.         Set SwModel = SwApp.ActiveDoc
   . ^  u' _$ Z- p: z
6.     Dim SwSelMgr As SelectionMgr
   
7.         Set SwSelMgr = SwModel.SelectionManager
   
8.     Dim SwTabAnn As TableAnnotation
   
9.         Set SwTabAnn = SwSelMgr.GetSelectedObject5(1)
   ) y" x" s! ~. r7 k  K+ V* @9 [
10.         With SwTabAnn '
    
11.             For ii = 0 To .RowCount - 1
      R' y# Y, N+ p( f, F1 z5 m8 l, a5 h; Y
12.                 Debug.Print ; .Text(ii, 2)
    3 n9 ]  \( x4 R: B5 H9 K! @  {
13.             Next ii
    ' R% z2 ^6 k1 J; s, a6 E
14.         End With
    
15. End Sub
      L5 z; c9 Q3 S8 O. q9 @! m

复制代码

6 i( T5 ]; H- p
" J+ r! g/ V) T! K; j