Ha, ha,
Of course, the standard 1 and 0 worked like a charm!
But what confused me when I tried them at first was that when you query any
of the "kNumberLabelsOn" etc. at runtime, they return values of 5, 6, 11...
Obviously, this was misleading (in my case, anyway...).
So, the right way to do it is:
...snip code
Set parcelPref = AeccApplication.ActiveProject.Preferences.parcel
Dim ti(12) As Long
ti(0) = parcelPref.GetInteger(kAreaUnitLabelsOn)
ti(1) = parcelPref.GetInteger(kAreaUnitPrecision)
ti(2) = parcelPref.GetInteger(kAutoLabelPlacement)
...snip
parcelPref.SetInteger kAreaUnitLabelsOn, 0
parcelPref.SetInteger kAreaUnitPrecision, 1
parcelPref.SetInteger kAutoLabelPlacement, 1
...snip
parcelPref.SetInteger kAreaUnitLabelsOn, ti(0)
parcelPref.SetInteger kAreaUnitPrecision, ti(1)
parcelPref.SetInteger kAutoLabelPlacement, ti(2)
etc...
Thanks for everyone's support (or patience...)
Regards,
Rad