davehuhudave 发表于 2010-7-15 10:01:00

如何在已有的块上添加块定义

如题,我写的代码如下,好像没出错,但是重新打开之后没有发现块有定义
      Dim db As Database = New Database(False, True)
      db.ReadDwgFile(Path, System.IO.FileShare.ReadWrite, True, "")
      Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
            If Not bt.Has(curUnitName) Then
                Return
            End If
            Dim btr As BlockTableRecord = trans.GetObject(bt(curUnitName), OpenMode.ForWrite)
            Dim attdef As New AttributeDefinition
         attdef.Tag = “SP"
         attdef.TextString = "SPText"
         btr.AppendEntity(attdef)
         trans.Commit()
      End Using
      db.Dispose()

雪山飞狐_lzh 发表于 2010-7-15 10:39:00

没有保存到文件:)

davehuhudave 发表于 2010-7-20 11:15:00

nice
页: [1]
查看完整版本: 如何在已有的块上添加块定义