VB控制AutoCAD精确绘图

可以对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

在命令行中输入坐标值，或指定一个捕捉对象，将忽略正交模式。