社区 › VB › 系统变量设置问题

翔羽 发表于 2005-10-19 10:57:00

系统变量设置问题

系统变量设置问题：
在VBA中怎么样用程序实现打开捕捉模式，并且设置捕捉X,Y轴的间距,谢谢大家~
具体用OSMODE怎么设置，问题很着急，谢谢大家~~

alin 发表于 2005-10-19 14:00:00

ThisDrawing.SetVariable "OSMODE", 695
HELP FILE...
Sub Example_SetSnapSpacing()
    ' This example finds the current Snap spacing and changes it.
   
    ' Find the current active viewport
    Dim viewportObj As AcadViewport
    Set viewportObj = ThisDrawing.ActiveViewport
   
    ' Turn on Snap spacing and reset the viewport.
    viewportObj.SnapOn = True
    ThisDrawing.ActiveViewport = viewportObj
   
    ' Find the current Snap spacing
    Dim XSpacing As Double
    Dim YSpacing As Double
   
    viewportObj.GetSnapSpacing XSpacing, YSpacing
    MsgBox "X =" & XSpacing & ", Y =" & YSpacing, Title:="SetSnapSpacing Example"
   
    ' Change the Snap spacing
    XSpacing = XSpacing * 0.5
    YSpacing = YSpacing * 0.5
    viewportObj.SetSnapSpacing XSpacing, YSpacing
    ThisDrawing.ActiveViewport = viewportObj
    MsgBox "X =" & XSpacing & ", Y =" & YSpacing, Title:="SetSnapSpacing Example"
   
End Sub

翔羽 发表于 2005-10-19 14:28:00

谢谢斑竹~~
还有一个问题请教：控制极轴捕捉的是哪一个系统变量？

查看完整版本: 系统变量设置问题