[求助]新建标注样式时为什么会产生以“样式代替”？

lwd899

我用的vb2008和cad2007，我写了一下代码，但是会出现“样式代替”，请问这是怎么回事？

1. 
   
2. <CommandMethod("netDimStyle")> Public Sub CreateDimStyle()
   
3.         Dim db As Database = HostApplicationServices.WorkingDatabase
   
4.         Using trans As Transaction = db.TransactionManager.StartTransaction
   
5.             ' 得到标注样式表
   
6.             Dim dt As DimStyleTable = trans.GetObject(db.DimStyleTableId, OpenMode.ForWrite)
   
7.             Dim StyleName As String = "MyDim"
   
8.             ' 如果名为"MyDim"的样式不存在，则新建一个文字样式.
   
9.             If dt.Has(StyleName) = False Then
   
10.                 ' 新建一个标注样式表记录.
    
11.                 Dim dtr As New DimStyleTableRecord()
    
12.                 ' 设置标注样式名.
    
13.                 dtr.Name = StyleName
    
14.                 ' 箭头大小
    
15.                 dtr.Dimasz = 3
    
16.                 '' 尺寸线间距
    
17.                 dtr.Dimdli = 3.75
    
18.                 '' 小数分隔符
    
19.                 'dtr.Dimdsep = ","
    
20.                 '' 尺寸界线超出量
    
21.                 'dtr.Dimexe = 1.25
    
22.                 '' 尺寸界线偏移
    
23.                 dtr.Dimexo = 0.625
    
24.                 '' 文字偏移
    
25.                 'dtr.Dimgap = 0.625
    
26.                 '' 文字位置垂直
    
27.                 dtr.Dimtad = 1
    
28.                 '' 文字在内对齐
    
29.                 dtr.Dimtih = False
    
30.                 ' 文字高度
    
31.                 dtr.Dimtxt = 3
    
32.                 Dim DimstyleId As ObjectId = dt.Add(dtr)
    
33.                 ' 把标注样式表记录添加到事务处理中.
    
34.                 trans.AddNewlyCreatedDBObject(dtr, True)
    
35.                 ' 将标注样式"MyDim"设置为当前标注样式  
    
36.                 db.Dimstyle = DimstyleId
    
37.                 trans.Commit()
    
38.             End If
    
39.         End Using
    
40.     End Sub
    

<br /> <CommandMethod("netDimStyle")> Public Sub CreateDimStyle()<br />         Dim db As Database = HostApplicationServices.WorkingDatabase<br />         Using trans As Transaction = db.TransactionManager.StartTransaction<br />             ' 得到标注样式表<br />             Dim dt As DimStyleTable = trans.GetObject(db.DimStyleTableId, OpenMode.ForWrite)<br />             Dim StyleName As String = "MyDim"<br />             ' 如果名为"MyDim"的样式不存在，则新建一个文字样式.<br />             If dt.Has(StyleName) = False Then<br />                 ' 新建一个标注样式表记录.<br />                 Dim dtr As New DimStyleTableRecord()<br />                 ' 设置标注样式名.<br />                 dtr.Name = StyleName<br />                 ' 箭头大小<br />                 dtr.Dimasz = 3<br />                 '' 尺寸线间距<br />                 dtr.Dimdli = 3.75<br />                 '' 小数分隔符<br />                 'dtr.Dimdsep = ","<br />                 '' 尺寸界线超出量<br />                 'dtr.Dimexe = 1.25<br />                 '' 尺寸界线偏移<br />                 dtr.Dimexo = 0.625<br />                 '' 文字偏移<br />                 'dtr.Dimgap = 0.625<br />                 '' 文字位置垂直<br />                 dtr.Dimtad = 1<br />                 '' 文字在内对齐<br />                 dtr.Dimtih = False<br />                 ' 文字高度<br />                 dtr.Dimtxt = 3<br />                 Dim DimstyleId As ObjectId = dt.Add(dtr)<br />                 ' 把标注样式表记录添加到事务处理中.<br />                 trans.AddNewlyCreatedDBObject(dtr, True)<br />                 ' 将标注样式"MyDim"设置为当前标注样式  <br />                 db.Dimstyle = DimstyleId<br />                 trans.Commit()<br />             End If<br />         End Using<br />     End Sub<br />

雪山飞狐_lzh

                    db.SetDimstyleData(dtr);

lwd899

好了，太感谢您了！！

stuwhh

回复 雪山飞狐_lzh 的帖子

求助：请问版主在c#中引用VB的（非VB编程）？如何只修改标注的全局比例并设置为当前标注？

epwt

设置一下Dimscale，
然后绑定一下entity的style 试试。

希望会对你有用。