|
|
发表于 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 |
|
置顶卡
