可以對Viewport對象的柵格Gride、捕捉Snap和正交Ortho模式進行設置,使繪圖定位更加精確。在VB中可以對上面的屬性進行控制。
ActiveViewport對象的GrideOn屬性可以改變柵格的顯示狀態,柵格顯示時,可作為繪圖的向導。
acadapp.ActiveDocument.ActiveViewport.GridOn = True
acadapp.ActiveDocument.ActiveViewport = acadapp.ActiveDocument.Activeport
ActiveViewport對象的SnapOn屬性可以設置捕捉的開關狀態,當捕捉為打開狀態時,可以限制光標每次移動均在捕捉間距點上,使繪圖更加精確。
Private Sub Command10_Click()
acadapp.ActiveDocument.ActivePViewport.SetGridSpacing 20, 20
acadapp.ActiveDocument.ActivePViewport.SetSnapSpacing 20, 20
acadapp.ActiveDocument.ActiveViewport.SnapRotationAngle = 30 * 3.14 / 180
acadapp.ActiveDocument.ActivePViewport.SnapOn = True
acadapp.ActiveDocument.ActiveViewport = acadapp.ActiveDocument.ActiveViewport
End Sub
ActiveViewport對象的OrthoOn屬性,可以設置正交的開關狀態,當正交為打開狀態時,可以繪制出一系列的正交線,在光標移動時會有一條橡皮條狀的線,該線根據與水平或垂直的那根最近的線來確定繪制水平或垂直直線。
AcadpApp.ActiveDocument.ActiveViewport.OrthoOn=true
在命令行中輸入坐標值,或指定一個捕捉對象,將忽略正交模式。