Topic: Changing a property on a single dimension

[MickB]

Hi,

If i'm using AutoCAD and change the properties on a single dimension (i.e. turn alt units on)
this will change only this dimension and not others.

Is there any way to do this in code using the objectid of the dimension?

Thanks

Mick

[T.Willey]

If your ObjectId is a dimension, then just cast it to a Dimension object.  There you can change a ton of properties, and some have to do with alternative items.

[MickB]

Thanks for that, I'll have a go tomorrow and let you know how i get on.

Thanks
Mick

[MickB]

Hi Tim,

I got it working, thanks for the help.

Mick

[T.Willey]

Good to hear Mick.

If you can, would you post the code so others who have the same issue can find a working example?

[MickB]

Hi Tim,

Here is the code I got to work. It's very simple, just pass in the ObjectID of a dimension.
There is no error checking in this.

Code: [Select]

Public Shared Sub ChangeDimension(ByVal MyDim As ObjectId)

        ' This code will overide the current dimension setting the alternative units to true
        ' Setting the precision of the alternative units to 2 and giving the alternative units
        ' a prefix of the symbol for diameter

        Dim myDwg As Document = DocumentManager.MdiActiveDocument

        Using myTrans As Transaction = myDwg.TransactionManager.StartTransaction

            Using (myDwg.LockDocument())

                'Open the database for Read
                Dim myBT As BlockTable = myDwg.Database.BlockTableId.GetObject(OpenMode.ForRead)

                'Open ModelSpace for Write
                Dim myBTR As BlockTableRecord = myBT(BlockTableRecord.ModelSpace).GetObject(OpenMode.ForWrite)

                Dim NewDim As Dimension = TryCast(myTrans.GetObject(MyDim, OpenMode.ForWrite), Dimension)

                NewDim.Dimalt = True
                NewDim.Dimaltd = 2
                NewDim.Dimapost = "%%C[]"

                'Commit the transaction
                myTrans.Commit()

            End Using

        End Using
    End Sub
Thank again for your help.

Mick