正交模式的设置，怪了

baysmy

用程序设置绘图模式为正交模式，是不是用这句啊，ThisDrawing.ActiveViewport.OrthoOn = True，怎么就不好使呢？
各位给看看！

alin

看看帮助文件

Once changes have been completed, the viewport must be reset as the active viewport for the changes to appear. To reset the active viewport, simply call the ActiveViewport property again with the updated Viewport object.

Sub Example_OrthoOn()
    ' This example toggles the setting of OrthoOn.

    Dim viewportObj As AcadViewport
   
    ' Set the viewportObj variable to the activeviewport
    Set viewportObj = ThisDrawing.ActiveViewport
   
    ' Display the current setting of OrthoOn
    MsgBox "Isometric snap mode is: " & IIf(viewportObj.OrthoOn, "On", "Off"), , "OrthoOn Example"

    ' Toggle the setting of OrthoOn
    viewportObj.OrthoOn = Not (viewportObj.OrthoOn) ' Reset the active viewport to see the change on the AutoCAD status bar ThisDrawing.ActiveViewport = viewportObj MsgBox "Isometric snap mode is now: " & IIf(viewportObj.OrthoOn, "On", "Off"), , "OrthoOn Example"
   
End Sub

baysmy

我把这段程序运行了一下，还是不好用阿，正交模式还是不变啊

alin

Probably you have misundertood the OrthoOn property. OrthoOn property specifices the status of the Isometric snap mode for the viewport. It is different from Orthomode. You should set the system variable of "ORTHOMODE" to change orthomode.

idoo

我也有同样问题啊～～～～具体怎么写？？

idoo

怎么操作啊？？？？

用程序设置绘图模式为正交模式，是不是用这句啊，ThisDrawing.ActiveViewport.OrthoOn = True，怎么就不好使呢？
各位给看看！

idoo

不行，解决不了，还望高手指点啊！

mccad

直接设置系统变量ORTHOMODE的值