getting current values of some objects and retaining them at the end

[Yancka]

Hi,
I'm doing my first big VBA programming and having very meny questions. I want to get values of current Layer, Text style, Linetype, Lineweight and Color then set what I want and then set back these 5 values to what they were at the beginning.
With Layer, Textstyle and Linetype I can get through like this:

    Set BeginningLayer = ThisDrawing.ActiveLayer
    Set BeginningTextStyle = ThisDrawing.ActiveTextStyle
    Set BeginningLinetype = ThisDrawing.ActiveLinetype

but I can't do same with lineweight and color properties. What are other ways how to do this?



Also, additional question about making blocks. In block definition I place some polylines and Mtexts. I want to have their properties BYBLOCK but this far I succeed only with Linewight and it looks like this:

   pl.Lineweight = acLnWtByBlock
    mTextObj.Lineweight = acLnWtByBlock

How do I set Color and Linetype properties BYBLOCK?

OK, I got it myself about block:
in the begining of block definition I place:
ThisDrawing.ActiveLinetype = ThisDrawing.Linetypes.Item("BYBLOCK")
this makes every object's linetype BYBLOCK
And with color for each object I use:
pl.color = acByBlock
For some reason VB doesn't offer "color" in the drop-down list after typing "pl." but it offers a drop-down list after typing "=".
So, I'm done BYBLOCK question and the only unclear is about active lineweight and color properties. Anyway, any thaughts about how it could be done better are welcome!

[jonesb33145]

I think the easiest way would be to pull these from the active layer...what are the downsides of doing this?

[Yancka]

I think the easiest way would be to pull these from the active layer...what are the downsides of doing this?

What exactly do you mean with "pull these from the active layer"?
For example, in existing dwg active color is blue, active linetype is Continuous and active lineweight is 0.25 mm. I want to place some objects with all these 3 properties BYLAYER. Because I don't want to specify for each new object that these 3 properties are BYLAYER I'm looking if there is an option to record these properties, set as active BYLAYER and after I'm done to restore Blue, Continuous and 0.25 mm as active properties. Same with active layer and text style.

[jonesb33145]

ah...gotcha...

How about looking at CECOLOR and CELWEIGHT system variable?

[Ed Jobe]

...for that, you will need to use ThisDrawing.GetVariable and ThisDrawing.SetVariable.

[Yancka]

Thank you guys!
With combining variables and ThisDrawing.Active... elements I got what I want.
The code now looks like:

'before processing:
    Set BeginningLineType = ThisDrawing.ActiveLinetype
    SysVarName = "CELWEIGHT"
    BeginningLineWeight = ThisDrawing.GetVariable(SysVarName)

'while processing:
    ThisDrawing.ActiveLinetype = ThisDrawing.Linetypes.Item("BYLAYER")
    SysVarName = "CELWEIGHT"
    ThisDrawing.SetVariable SysVarName , -1

'afterwards:
    ThisDrawing.ActiveLinetype = BeginningLineType
    SysVarName = "CELWEIGHT"
    ThisDrawing.SetVariable SysVarName , BeginningLineWeight

Btw, what's the way to get CODE tags other than write it manually each time?

[Ed Jobe]

Click on "Go Advanced" and use the # button.