系统变量设置问题

翔羽

系统变量设置问题：

在VBA中怎么样用程序实现打开捕捉模式，并且设置捕捉X,Y轴的间距,谢谢大家~

具体用OSMODE怎么设置，问题很着急，谢谢大家~~

alin

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

翔羽

谢谢斑竹~~

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

MJTD_7777

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=43341