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

ning84

- P4 `: i# ?; G2 d& E$ j1 K7 w
  \0 L) ?4 ~0 ]9 ]

现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。
# n* z3 C0 q% M' v

* g0 i. F1 d3 x8 k太麻烦


# F" ?7 s  F2 i

1. Private Sub ll3()
   
2.    
   
3.       
   
4.    Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity
   
5.    Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
   ; R% M6 d" e! w
6.       For ii = 0 To ThisDrawing.ModelSpace.Count - 1
   8 k% @7 Y% r5 A0 Y* N# B
7.          Set Ent = ThisDrawing.ModelSpace.Item(ii)
   ( ]3 f$ f  D4 E8 R
8.          Select Case Ent.ObjectName
   ' k0 C: P: V3 [$ g5 h
9.              Case "AcDbText"
   1 b9 u; @! s6 K# _) u4 d
10.                 Set TxtEnt = Ent
    
11.                 TxtEnt.ScaleFactor = 0.7
    
12.                
    1 ~6 _( C% Z6 ^8 P
13.          End Select
    , l4 P$ r& S. m& c. O6 f
14.       Next ii
    + ^8 \. U" ?' X: N' @  N' D
15. End Sub
    

复制代码

- w: P$ }2 s' F, t7 _

& u' i& @7 k/ i5 k) i( {/ y  N9 m

阿帕奇

字体不要选那么刁钻

秋韵舞-江枫

% C0 c. O0 v: e2 g+ j SW转CAD.rar (99.76 KB, 下载次数: 29)

2015-10-12 23:57 上传

点击文件名下载附件 其实SW可以完美转CAD的，一点问题也没有，但必须要设置好字体，我用的是长仿宋体，在SW里先字体时，一定要选常用字体，如果你的电脑里装了某种字体，先在SW里设定好你用的字体，然后按下图操作，应该转出CAD没有问题，我附件中有我转的一张工程图模版可以看一下效果。
! H+ x/ ]* a& U7 Q: L: T6 `
/ t( q1 t) V+ F& J: l; H0 a! u. Z


  a, H/ h; k+ w" j  l/ p# X

" e$ J* V9 k2 J8 J. x2 |2 k# h


- Q  {+ V- D0 T$ f9 I  v3 Q
+ e# X9 C1 R: _1 ^
" @+ s' D) s; ?! Y1 y0 r! |6 w5 V; \) Z
7 M; K# T% M% Q0 r' w& i$ V

俊逸清峰

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