Topic: VB Newbie - Cloning Styles for a Conversion Routine, Difficulty Level

[Chillme1]

I would like to ask questions or see examples from those who have developed a conversion routine involving dimension and/or text styles and that are based on a cloned version of a CAD Standard-based DIMSTYLE?

QUESTION 1: How difficult in the length or in the complexity of code is it to obtain a clone and apply the clone's proerties to these (dimension or text) type of entities? 

[Jeff H]

If I understand your question I think DeepClone will do fine then change whatever properties needed
 

Code: [Select]

        <CommandMethod("CloneTextDimStyle")> _
        Public Sub CloneTextDimStyle()
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor
 
            Using trx As Transaction = db.TransactionManager.StartTransaction()
 
                Dim dimTbl As DimStyleTable = trx.GetObject(db.DimStyleTableId, OpenMode.ForWrite)
                Dim dimBtr As DimStyleTableRecord = trx.GetObject(dimTbl("Standard"), OpenMode.ForRead)
 
                Dim dimMap As New IdMapping
                Dim newDimBtr As DimStyleTableRecord = dimBtr.DeepClone(dimTbl, dimMap, True)
                newDimBtr.Name = String.Format("{0} (Clone)", dimBtr.Name)
 
                newDimBtr.Dimalt = Not newDimBtr.Dimalt
                newDimBtr.Dimaltd = newDimBtr.Dimaltd + 1
 
                dimTbl.Add(newDimBtr)
                trx.AddNewlyCreatedDBObject(newDimBtr, True)
 
                trx.Commit()
            End Using
        End Sub
 


[Chillme1]

I appreciate the code snippet and will try it and get back to you. It may be a while!