VB中对圆的定义和相关属性说明

Private Sub btn_queren_Click()
Dim yuan1 As AcadCircle
Dim yuanxinzuobiao(2) As Double
Dim banjing As Double
yuanxinzuobiao(0) = Val(tex_yuanxin_x.Text)
yuanxinzuobiao(1) = Val(tex_yuanxin_y.Text)
yuanxinzuobiao(2) = Val(tex_yuanxin_z.Text)
banjing = Val(tex_yuan_banjing.Text)
Set yuan1 = ThisDrawing.ModelSpace.AddCircle(yuanxinzuobiao, banjing)
ZoomAll
End Sub

'yuan1.Application 只读 代表当前对象的应用对象，可以通过应用对象的.name方法读取应用对象的名称
'yuan1.Area 只读代表当前对象的面积
'yuan1.Center 只读达标当前对象的圆心，如果是圆弧也是圆心
'yuan1.Circumference 只读代表当前圆的周长
'yuan1.Diameter 只读代表当前圆的直径
'yuan1.Document 代表当前对象的文件名,不包含路径,可以通过文档对象的.name方法读取文档对象的名称
'yuan1.Handle代表对象的句柄 , 可以理解为当前线对象的地址或者学生学号
'yuan1.HasExtensionDictionary判断当前对象是否有扩展字典,字典结构为键-值
'yuan1.Hyperlinks 当前对象的超链接
'yuan1.Layer返回当前对象的图层名
'yuan1.Linetype返回当前对象的图层名
'yuan1.LinetypeScale 返回当前对象的线型比例，数值越小线就缩小，数值越大线放大
'yuan1.Lineweight 返回当前对象线型的粗细,-1代表bylayer,-2代表byblock,-3代表默认,其余数值代表0.0几毫米
'yuan1.Normal 返回的是当前圆平面的法向量
'yuan1.ObjectID 返回的是当前对象的ID,可以理解为人的身份证号
'yuan1.OwnerID 返回当前对象的父容器的ID
'yuan1.PlotStyleName 返回当前对象的样式,如果是线则代表当前线的颜色代表名
'yuan1.Radius 返回当前对象的半径
'yuan1.Thickness 当前对象的厚度
'yuan1.TrueColor 返回当前对象的颜色对象,通过该颜色对象可以设置当前对象的颜色值
'yuan1.Visible 返回或设置当前对象的可视性