Topic: Set System Variable

[GumbyCAD]

On previous Post it was discussed on how to set DIMSCALE.

http://www.theswamp.org/index.php?topic=39250.0

The final reponse said:

No, it doesn't. It will depend entirely on the context of where it's being called from.

Can anyone explain further as to different senarios would differ and to how this would be done?
i.e.  Modal Dialog, Modeless Dialog, Non Dialog etc

Stephan

[GumbyCAD]

The reason I ask is that if I run the following code it works on all varaibles so far except for DIMSTYLE.

I get eInvalidnput as marked below.

Code - Visual Basic: [Select]

1.     Public Sub SetSysVariable(ByVal VariableName As String, ByVal Value As Object)
2.  
3.         Dim Doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
4.  
5.         Using DocKock As DocumentLock = Doc.LockDocument
6.             Autodesk.AutoCAD.ApplicationServices.Application.SetSystemVariable(VariableName, Value) '<-- Error Here
7.        End Using
8.  
9.     End Sub
10.  

Thanks in advance.
Stephan

[Kerry]

That would be because DIMSTYLE is ReadOnly

[GumbyCAD]

Oops.

How would you suggest to set the Dimstyle?

[Kerry]

Hi Stephan,
Try this ( or part of it)

http://adndevblog.typepad.com/autocad/2012/04/creating-a-new-dimension-style-and-make-it-as-current.html


added:
Sorry 
Most of the good stuff is in C#

[GumbyCAD]

Too funny, googled it and found that one too.

Thanks Kerry

End Solution

Code - Visual Basic: [Select]

1.     Public Sub SetDimStyleCurrent(DimStyleName As String)
2.  
3.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
4.         Dim db As Database = doc.Database
5.  
6.         Using DockLock As DocumentLock = doc.LockDocument
7.  
8.             Using tr As Transaction = doc.TransactionManager.StartTransaction()
9.  
10.                 Dim dst As DimStyleTable = DirectCast(tr.GetObject(db.DimStyleTableId, OpenMode.ForRead), DimStyleTable)
11.                 Dim dimId As ObjectId = ObjectId.Null
12.  
13.                 dimId = dst(DimStyleName)
14.  
15.                 Dim dstr As DimStyleTableRecord = DirectCast(tr.GetObject(dimId, OpenMode.ForRead), DimStyleTableRecord)
16.  
17.                 db.Dimstyle = dstr.ObjectId
18.                 db.SetDimstyleData(dstr)
19.  
20.                 tr.Commit()
21.  
22.             End Using
23.  
24.         End Using
25.  
26.     End Sub
27.  

Code - C: [Select]

1.         public static void SetDimStyleCurrent(string DimStyleName)
2.         {
3.             // Establish connections to the document and its database
4.             Document doc = Application.DocumentManager.MdiActiveDocument;
5.             Database db = doc.Database;
6.  
7.             // Establish a transaction
8.             using (Transaction tr = doc.TransactionManager.StartTransaction())
9.             {
10.                 DimStyleTable dst = (DimStyleTable)tr.GetObject(db.DimStyleTableId, OpenMode.ForRead);
11.                 ObjectId dimId = ObjectId.Null;
12.  
13.                 dimId = dst[DimStyleName];
14.  
15.                 DimStyleTableRecord dstr = (DimStyleTableRecord)tr.GetObject(dimId, OpenMode.ForRead);
16.                
17.                 db.Dimstyle = dstr.ObjectId;
18.                 db.SetDimstyleData(dstr);                
19.  
20.                 tr.Commit();
21.             }
22.         }
23.  

[Kerry]

Stephan,
Sometime you may want to check for the existence of the DimStyle in the table before you try to set it current.

[GumbyCAD]

You are right.  But i my case it will only have available Styles to set.

[BlackBox]

Be sure to add these to the Library Routines, as they may help others as well. 

Cheers