您的位置:网站首页 > CAD新闻

VB控制AutoCAD精确绘图

时间:2012-01-20 07:19:24 来源:未知

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

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