shrug-l: Display accuracy (solution)

[Bill_Beers@URSCorp.com]

Thanks for sharing that tip. I think you can make it work in the normal.mxt
if you make this change to the script:

Change "Set pDoc = ThisDocument" to "Set pDoc = Application.Document"

In the original script, as you must have figured out, ThisDocument returns
a reference to nomal.mxt, if the script is put in nomal template. In the
modified script, Application.Document should always return the actively
loaded document and not the template.

Hope this helps,

Bill Beers
URS Corporation
1625 Summit Lake Drive
Tallahassee, FL 32317
(850) 574-3197
bill_beers@urscorp.com


 This e-mail and any attachments are confidential. If you receive this
message in error or are not the intended recipient, you should not retain,
distribute, disclose or use any of this information and you should destroy
the e-mail and any attachments or copies.




                                                                           
             Larry.Kung@dca.st                                             
             ate.fl.us                                                     
             Sent by:                                                   To 
             shrug-l-admin@lis         shrug-l@lists.dep.state.fl.us       
             ts.dep.state.fl.u                                          cc 
             s                                                             
                                                                   Subject 
                                       shrug-l: Display accuracy           
             07/21/2005 04:26          (solution)                          
             PM                                                            
                                                                           
                                                                           
                                                                           
                                                                           
                                                                           





Thanks to Mark Nelson's suggestion and Valentina Boycheva's script (see
below).  After battling with it for a couple of days Valentina found out it
only works in the Project's .mxd not the Normal.mxt (a fine print from
ESRI).  Valentina was very patient with me and I appreciate a lot.
_________________________________

Larry H. Kung
DEM/GIS
Dept. of Community Affairs
(850) 413-9979





From: Valentina Boycheva
Sent: Wednesday, July 20, 2005 11:45 AM
To: Mark Nelson; Cheryl Mullane; David Jenkins
Subject: RE: shrug-l: Display accuracy

The macro below will change the display units to show 3 decimal points. It
has to be called in ThisDocument (Project only), MxDocument_NewDocument and
MxDocument _OpenDocument.


Sub SetMapUnits()

Dim pDoc As IMxDocument
    Set pDoc = ThisDocument
Dim pMap As IMap
    Set pMap = pDoc.FocusMap

Dim pNumericFormat As INumericFormat
    Set pNumericFormat = New NumericFormat
    With pNumericFormat
        .AlignmentOption = esriAlignRight
        .RoundingOption = esriRoundNumberOfDecimals
        .AlignmentWidth = 1
        .RoundingValue = 3      ' change as necessary
        .ShowPlusSign = True
        .UseSeparator = True
        .ZeroPad = False
    End With

Dim pReportUnitFormat As IReportUnitFormat
    Set pReportUnitFormat = pDoc
    pMap.DistanceUnits = esriDecimalDegrees
    Set pReportUnitFormat.NumericFormat = pNumericFormat


End Sub





From: shrug-l-admin@lists.dep.state.fl.us
[mailto:shrug-l-admin@lists.dep.state.fl.us] On Behalf Of
Larry.Kung@dca.state.fl.us
Sent: Monday, July 18, 2005 7:46 AM
To: shrug-l@lists.dep.state.fl.us
Subject: shrug-l: Display accuracy


Can someone tell me how to display more than 2 decimal points when I am
using Decimal Degrees as my display units?  I'm running ArcMap 9.0.
Thanks.
_________________________________

Larry H. Kung
DEM/GIS
Dept. of Community Affairs
(850) 413-9979