除了对块定行旋转外还要对属性进行旋转操作才行。
pt1 = blkTblRef.Position
y = blkTblRef.Rotation
blkTblRef.Rotation = math.pi/2
For Each id1 As ObjectId In blkTblRef.AttributeCollection
att = Trans.GetObject(id1, OpenMode.ForWrite)
mat = Matrix3d.Rotation(math.pi/2 - y, New Vector3d(0, 0, 1), pt1)
att.TransformBy(mat)
Next