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

ning84

9 }) W: M8 w: {, d, E5 p7 a' B; U


现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。
) g* P, _  H0 s" y6 @+ N
/ p: O% k9 [. E& F* Q5 M1 l5 k
太麻烦
9 i! L. Y  V3 j
; R4 i; L2 x- H9 B8 ]
' c$ H. n. Y0 Y, c
! _. O" F3 P8 O" O: R% Y* R

1. Private Sub ll3()
   3 z/ L# W( N. D' ]
2.    
   % V9 a% P! i7 r
3.       
   
4.    Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity
   
5.    Dim mTxtEnt As AcadMText, TxtEnt As AcadText, Kk As Integer
   
6.       For ii = 0 To ThisDrawing.ModelSpace.Count - 1
   
7.          Set Ent = ThisDrawing.ModelSpace.Item(ii)
   
8.          Select Case Ent.ObjectName
   ; u! o) N# x' _" W3 K) f& G
9.              Case "AcDbText"
   ; b' x; O2 k5 _: [% I' }) I/ ?
10.                 Set TxtEnt = Ent
    ( y/ o7 m, n7 v/ ~/ r2 x/ u
11.                 TxtEnt.ScaleFactor = 0.7
    
12.                
    
13.          End Select
    
14.       Next ii
    
15. End Sub
      W6 l4 C" t4 y

复制代码

9 u  z; n! t, I
% q; H! E/ c; n2 o: `1 }
: A& W& u3 N" G6 P5 z* B  n- r

阿帕奇

字体不要选那么刁钻

秋韵舞-江枫

4 Z/ q  W% g' f  @0 M8 O4 P- } SW转CAD.rar (99.76 KB, 下载次数: 29)

2015-10-12 23:57 上传

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

6 S& d. T. i% u8 y5 v2 K- A9 i
: {& W; p+ p4 M% \
& r9 k$ I  o( ]
6 ~' K# n5 q* w/ S, R+ F, g




; U+ T# B' f2 c

- J1 R- ^# f: k# }/ T

俊逸清峰

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