乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 55|回复: 4

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

[复制链接]

6

主题

18

帖子

2

银币

初来乍到

Rank: 1

铜币
42
发表于 2010-6-22 21:31:00 | 显示全部楼层 |阅读模式
我用的vb2008和cad2007,我写了一下代码,但是会出现“样式代替”,请问这是怎么回事?
  1. Public Sub CreateDimStyle()
  2.         Dim db As Database = HostApplicationServices.WorkingDatabase
  3.         Using trans As Transaction = db.TransactionManager.StartTransaction
  4.             ' 得到标注样式表
  5.             Dim dt As DimStyleTable = trans.GetObject(db.DimStyleTableId, OpenMode.ForWrite)
  6.             Dim StyleName As String = "MyDim"
  7.             ' 如果名为"MyDim"的样式不存在,则新建一个文字样式.
  8.             If dt.Has(StyleName) = False Then
  9.                 ' 新建一个标注样式表记录.
  10.                 Dim dtr As New DimStyleTableRecord()
  11.                 ' 设置标注样式名.
  12.                 dtr.Name = StyleName
  13.                 ' 箭头大小
  14.                 dtr.Dimasz = 3
  15.                 '' 尺寸线间距
  16.                 dtr.Dimdli = 3.75
  17.                 '' 小数分隔符
  18.                 'dtr.Dimdsep = ","
  19.                 '' 尺寸界线超出量
  20.                 'dtr.Dimexe = 1.25
  21.                 '' 尺寸界线偏移
  22.                 dtr.Dimexo = 0.625
  23.                 '' 文字偏移
  24.                 'dtr.Dimgap = 0.625
  25.                 '' 文字位置垂直
  26.                 dtr.Dimtad = 1
  27.                 '' 文字在内对齐
  28.                 dtr.Dimtih = False
  29.                 ' 文字高度
  30.                 dtr.Dimtxt = 3
  31.                 Dim DimstyleId As ObjectId = dt.Add(dtr)
  32.                 ' 把标注样式表记录添加到事务处理中.
  33.                 trans.AddNewlyCreatedDBObject(dtr, True)
  34.                 ' 将标注样式"MyDim"设置为当前标注样式  
  35.                 db.Dimstyle = DimstyleId
  36.                 trans.Commit()
  37.             End If
  38.         End Using
  39.     End Sub

回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2010-6-23 20:35:00 | 显示全部楼层
db.SetDimstyleData(dtr);
回复

使用道具 举报

6

主题

18

帖子

2

银币

初来乍到

Rank: 1

铜币
42
发表于 2010-6-23 21:10:00 | 显示全部楼层
好了,太感谢您了!!
回复

使用道具 举报

0

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
4
发表于 2011-1-16 23:40:00 | 显示全部楼层
回复
求助:请问版主在c#中引用VB的(非VB编程)?如何只修改标注的全局比例并设置为当前标注?
回复

使用道具 举报

22

主题

99

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2011-1-17 19:22:00 | 显示全部楼层
设置一下Dimscale,
然后绑定一下entity的style 试试。
希望会对你有用。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 12:42 , Processed in 2.429377 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表