|
|
几天看到了关于选择集的部分，可是以下代码不明白
Public Sub UseSelectionSet()
'创建在实例中使用的对象
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
Dim pt3(0 To 2) As Double
Dim pt4(0 To 2) As Double
Dim pt5(0 To 2) As Double
Dim ObjLine As AcadLine
Dim objCir As AcadCircle
Dim objArc As AcadArc
pt1(0) = 0: pt1(1) = 0: pt1(2) = 0 ？？？？？
pt2(0) = 5: pt2(1) = 8: pt2(2) = 0 ？？？？？
pt3(0) = 10: pt3(1) = 0: pt3(2) = 0 ？？？？？
pt4(0) = 15: pt4(1) = 8: pt4(2) = 0 ？？？？？
pt5(0) = 20: pt5(1) = 0: pt5(2) = 0 ？？？？？
请问以上几句是什么意思啊？“:”干什么的呢？
'圆形
Set objCir = AddCirCR(pt1, 1)
AddCirCR pt3, 3
AddCirCR pt5, 5
'直线
Set ObjLine = AddLine(pt1, pt2)
AddLine pt4, pt5
'圆弧
Set objArc = AddArc3Pt(pt1, pt3, pt4)我是新新人，希望大家多帮助！！ |
|
置顶卡
