vb.net二次开发AutoCAD中画圆示例

Imports Autodesk
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Geometry

Imports System

 Private Sub btnCircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCircle.Click
        '定义圆的圆心

        Dim center As Point3d = New Point3d(100, 100, 0)

        '定义圆的半径
        Dim radius As Double = 50

        '定义一个Circle对象来表示你要生成的圆，传入的第二个参数为圆的法向，
        '就是把圆生、//成在什么面上，因为AutoCAD程序一般都是平面问题，
        '因此你一般都把这个法向量定义成//z轴方向。
        Dim circle A