VB控制AutoCAD精确绘图

最新推荐文章于 2022-02-03 17:01:59 发布

转载最新推荐文章于 2022-02-03 17:01:59 发布 · 493 阅读

本文介绍了如何使用VB对Viewport对象的栅格、捕捉和正交模式进行设置，以提高绘图精度。通过设置这些属性，可以更好地控制绘图过程中的定位，确保图形的准确性和一致性。

可以对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属性，可以设置正交的开关状态，当正交为打开状态时，可以绘制出一系列的正交线，在光标移动时会有一条橡皮条状的线，该线根据与水平或垂直的那根最近的线来确定绘制水平或垂直直线。