I cannot get the OrthoOn to work. Dim viewportObj as AcadViewport Set viewportObj = ThisDrawing.ActiveViewport MsgBox "Ortho mode is: " & IIf(viewportObj.OrthoOn,"On","Off" This either gives me an error or always returns Off. The same is true for SnapOn Why??