正交模式的设置，怪了

baysmy · 发表于 2005-10-17 20:10:00

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

alin · 发表于 2005-10-17 22:57:00

看看帮助文件
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 · 发表于 2005-10-18 09:49:00

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

alin · 发表于 2005-10-18 10:05:00

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.