关于块定义AttributeDefinition

davehuhudave

我用的cad2007,net2005

davehuhudave

主要代码再贴一下：

Dim pg As MyPropertyGrid.CustomClass = PropertyGrid1.SelectedObject
        Dim ed As Editor = AcadApp.DocumentManager.MdiActiveDocument.Editor
        Dim db As Database = AcadApp.DocumentManager.MdiActiveDocument.Database
        Dim lock As DocumentLock = AcadApp.DocumentManager.MdiActiveDocument.LockDocument()
        Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim attref As AttributeDefinition = trans.GetObject(selID, OpenMode.ForWrite)
            'attref.TextString = pg.Item("属性值").ToString
            Dim mCustomer As CustomerFilter = pg.Item("属性值")
            attref.TextString = mCustomer.path
            Dim s As String = pg.Item("显示否").ToString
            If String.Compare(s, "True") = 0 Then
                attref.Visible = True
            Else
                attref.Visible = False
            End If
            Dim c As Color = pg.Item("颜色")
            Dim cc As Autodesk.AutoCAD.Colors.Color = Autodesk.AutoCAD.Colors.Color.FromColor(c)
            attref.Color = cc
            s = pg.Item("大小").ToString
            attref.Height = Int(Val(s))
            s = pg.Item("旋转角").ToString
            attref.Rotation = Double.Parse(s)

    ''''''''''''''''''''''''''''''''''''''''''''''''上面的属性全部改掉了
            Dim p As Point = pg.Item("相对位置")
            attref.Position = New Point3d(p.X, p.Y, 0)

''''''''''''''''''''''''''''''''''''''''''''''''''''''此时跟踪得到也改掉了
            trans.Commit()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''跟踪又改回去了Position的值，而其他属性已经改掉，没有变回去
            ed.Regen()
        End Using
        lock.Dispose()

davehuhudave

？？anyone help?

雪山飞狐_lzh

用7楼的代码测试下

cobalt

原因就是你的属性定义的对齐点没有更新。

加入下面的代码试一试吧。

 

                    If attdef.HorizontalMode <> TextHorizontalMode.TextLeft Then

                        attdef.AlignmentPoint = attdef.Position

                    End If

雪山飞狐_lzh

cobalt说的没错

如果dbtext、attdef、attref的式样不是左下或调整

Position是无效的

davehuhudave

果然好主意，可是新问题出现了，这样我采取了不使用任何对齐方式的方式，结果AttributeDefinition 可以改变任何属性了，但是她的块参照属性AttributeReference却改不了TextString了，现象差不多，只不过变成了TextString属性，以前是可以的

davehuhudave

所有属性都不能改，晕

davehuhudave

o了，搞错了，

davehuhudave

现在发现都能改了，但是文字却不能显示了，实际位置没错，显示状态没错，就是没看到，点击属性也发现名称是有的，就是显示不出来