Code:
'Load template drawing if required
If TempDwg <> "" Then
Set objDoc = Application.Documents.Open(drive & TmplDwgPath & TempDwg, True)
End If
.
.
.
.
If Save = True Then
DlFilename = drive & Path1 & Folder & DwgPath & SaveAsDwg.Dwg_Name.Text
NewDwgExst = DlFilename & ".dwg"
If Dir(NewDwgExst) <> "" Then
SaveExst = MsgBox("Drawing Already Exists. Overwrite?", vbYesNo)
If SaveExst = vbNo Then
GoTo saveDwg:
End If
End If
ThisDrawing.SaveAs (DlFilename)
Unload SaveAsDwg
Else
Unload SaveAsDwg
End If
What I have found is the problem only occurs with drawings that have been created with the VBA routine and are being saved as an earlier version of AutoCad. Until the drawing is closed the "AM Options\dimension standard" remains as "ANSI" even if it is saved again. Only when the drawing is closed and reopened does the "AM Options\Dimension Standard" change to "ISO". This does not seem to change if the drawing is saved as the same version of AutoCad that it was created in.