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

ning84

( i( d: h2 L1 c: ]1 M; Z  D  R

  {1 b+ e  U/ v1 T: ], k) _2 U现在解决的方法是人工放射块属性，MText字体，用下面代码来格式文件。

/ f' G& X+ F: N4 r- h+ A
太麻烦
% k# h+ l) [; H

1. Private Sub ll3()
   4 o1 @5 M% V+ S* f
2.    
   
3.       
   . ^  h9 k$ \$ t4 ^" H0 T7 J
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
   % F9 d/ }0 N6 d# k
7.          Set Ent = ThisDrawing.ModelSpace.Item(ii)
   + ~* u1 v( c1 H" T9 S3 v1 P
8.          Select Case Ent.ObjectName
   
9.              Case "AcDbText"
   
10.                 Set TxtEnt = Ent
    
11.                 TxtEnt.ScaleFactor = 0.7
    
12.                
    ; v& J4 t/ S1 W) O% k
13.          End Select
    
14.       Next ii
    
15. End Sub
    ' R" e& c- l, m7 l4 u5 E" Z

复制代码

& Z/ f* l# {  |6 U
4 {. n9 y0 N: G# b  I9 n5 ~2 o7 P

阿帕奇

字体不要选那么刁钻

秋韵舞-江枫

2 d* f3 j+ `" A! T1 K SW转CAD.rar (99.76 KB, 下载次数: 29)

2015-10-12 23:57 上传

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

  Q  t7 a) R) o  e
' b5 q4 @* j! F) c1 u( Y
* x" s/ R' B% w% o. n8 ~
0 W+ M# X1 ?8 i& U

$ @" l7 g0 q% g( l5 [
% W, K+ O" w3 x7 B
3 K1 \, M4 k$ a
& r! A1 B% Q2 G7 q( t) L- P, }. w
) P$ q; ]3 D) l; K" I  O4 G

5 A, Y% B  H/ ]

俊逸清峰

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