可以对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
在命令行中输入坐标值,或指定一个捕捉对象,将忽略正交模式。