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

ning84

- `% W! a9 _) Q2 z5 ?9 Y现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。

- M1 T7 @2 l: N1 E+ P4 m( k4 k4 |
太麻烦



- K1 k; k  A0 D9 s! ~

1. Private Sub ll3()
   1 J8 D' H2 p* ?) R- X& j; b) |8 b* [
2.    
   ( W$ `, a: `& }' q) ?
3.       
   2 n$ w: j! v7 w  ]
4.    Dim Ent As AcadEntity, BlkRef As AcadBlockReference, E() As AcadEntity
   , s8 O' f$ @' i& M) X" ~
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)
   ; [7 [% @; n# h8 h
8.          Select Case Ent.ObjectName
   7 j# w! `0 W; P* J
9.              Case "AcDbText"
   
10.                 Set TxtEnt = Ent
    
11.                 TxtEnt.ScaleFactor = 0.7
    
12.                
    
13.          End Select
    
14.       Next ii
    ; q' q# g" N$ e) l9 Z+ k
15. End Sub
    7 f' }3 t% e8 _& x0 {

复制代码

8 g$ D9 P  k. A! C

阿帕奇

字体不要选那么刁钻

秋韵舞-江枫

9 r1 q" y: }/ ?4 J# n- G) G" [ SW转CAD.rar (99.76 KB, 下载次数: 29)

2015-10-12 23:57 上传

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

: R  k$ C% A" K, e) d& z
6 V5 c+ L4 o4 j. P


5 O- d. J( F. H3 @9 ]+ S


' R+ ^0 Z7 N6 \/ c9 L3 W
4 q4 e, S, Z, ], ~. n

! B/ |$ r5 F/ L3 x2 S

俊逸清峰

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