Sw生成Dwg文件遇到的格式问题。

ning84

9 j( t% d: k. f
3 i3 K4 t8 l$ V+ N  m/ `9 m& m

0 E# }5 z0 A$ V) A/ I2 z7 B现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。
9 {4 C6 q( D0 g. M* G5 m

: O% B$ w) M- X( M; ~7 P. e太麻烦
; ^2 s4 }' d9 w: C* s  v" m
0 j; e1 B8 p  I8 K- H
" k/ U; V, a* z2 I

1. Private Sub ll3()
   
2.    
   1 v4 g0 Z. o* x* J$ J  P7 X4 v
3.       
   # z: j, }) h- d) y9 {% A
4.    Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity
   
5.    Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
   4 ]% F% O+ ?: T. Y. ?
6.       For ii = 0 To ThisDrawing.ModelSpace.Count - 1
   
7.          Set Ent = ThisDrawing.ModelSpace.Item(ii)
   " t- A4 ]9 V& ]8 I
8.          Select Case Ent.ObjectName
   1 v  _- M( `' d- m: z1 T
9.              Case "AcDbText"
   , O+ m5 X3 ^. r' {1 @/ u
10.                 Set TxtEnt = Ent
    2 k5 Q# ^' P+ M  [6 ]
11.                 TxtEnt.ScaleFactor = 0.7
    % n+ d  H) T3 ^7 j0 V9 l& S. P  [/ z
12.                
    9 Z8 j. B' R% v
13.          End Select
    
14.       Next ii
    2 ?9 M% C. l& [; }* W
15. End Sub
    

复制代码

$ _# l6 S8 [1 [9 @' n. r' w

7 S9 E' D, F* @9 H" D2 D

阿帕奇

字体不要选那么刁钻

秋韵舞-江枫

9 O3 \6 t5 s6 D* d3 j' o/ E SW转CAD.rar (99.76 KB, 下载次数: 29)

2015-10-12 23:57 上传

点击文件名下载附件 其实SW可以完美转CAD的，一点问题也没有，但必须要设置好字体，我用的是长仿宋体，在SW里先字体时，一定要选常用字体，如果你的电脑里装了某种字体，先在SW里设定好你用的字体，然后按下图操作，应该转出CAD没有问题，我附件中有我转的一张工程图模版可以看一下效果。


  R4 E1 i; b( F7 x) |4 ^


4 r$ b9 k# ^8 \8 s: {9 G

7 h( ^9 ^; t( i. S: d; R
1 @4 A2 [& t6 c3 W! v
# d, i5 [4 h+ U  A1 S
: F$ R( z* L! K) C; K; d

俊逸清峰

选比较常见的字体 另外设置下fontmap里面的字体比例