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

ning84

4 t" a9 M- S; T& u3 z

/ `1 _2 E9 w6 z0 ~* [
在材料明细表中，经常将名称的字体设置为4mm。
2 b; x  v( G, o# k) X. {将图示中的，材料表的A1字体设置为2.5mm.
) A1 A3 |) l2 d5 }/ {& O- ]1 p




问各位有什么解决方法：
8 |" ?0 g! x, l" b3 L1 人工设置字体。
* D4 B5 K3 I2 p1 o+ i' [# A, `2 用API设置字体。
* c8 m7 i8 W# v0 X3 材料明细表内置功能设置字体。
) \( b/ `' }$ L* [) r0 |
5 V( F, n8 R  c  i$ {
" v7 b" D2 Q# X& Y
8 I! O5 U8 ^3 W, }9 ~; q2 z
7 ]0 L( E4 q* f4 _
+ l& G# M3 N0 p
  \! z  w5 n9 o

1. 
   $ i, Z# ~- _% `0 v# a; }( w9 M( e0 E
2. Private Sub ll0617()
   
3.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   0 a! g/ V$ I  s9 r1 H0 G- V# t3 u
4.         Set SwApp = Application.SldWorks
   , ?6 Z7 J: K& X. O; ?1 c8 f
5.         Set SwModel = SwApp.ActiveDoc
   8 h  g  Z8 h" h0 e0 |0 H4 I
6.     Dim SwSelMgr As SelectionMgr
   
7.         Set SwSelMgr = SwModel.SelectionManager
   
8.     Dim SwTabAnn As TableAnnotation
   
9.         Set SwTabAnn = SwSelMgr.GetSelectedObject5(1)
   
10.         With SwTabAnn '
    7 }/ w9 `8 T- L: ]9 z. v3 o
11.             For ii = 0 To .RowCount - 1
    
12.                 Debug.Print ; .Text(ii, 2)
    
13.             Next ii
    ( s8 Z! @7 Y% A$ g" N4 ^3 S
14.         End With
    
15. End Sub
    7 x; f1 L& o/ Q% V* w

复制代码

  G; P. W2 I# O$ W: r+ {2 Z; H
, ?" v" m' D, C( L& p