求助:看《AutoCAD VBA 开发精彩实例》遇到的问题
几天看到了关于选择集的部分,可是以下代码不明白Public Sub UseSelectionSet()
'创建在实例中使用的对象<BR> Dim pt1(0 To 2) As Double<BR> Dim pt2(0 To 2) As Double<BR> Dim pt3(0 To 2) As Double<BR> Dim pt4(0 To 2) As Double<BR> Dim pt5(0 To 2) As Double<BR> Dim ObjLine As AcadLine<BR> Dim objCir As AcadCircle<BR> Dim objArc As AcadArc<BR> <BR> pt1(0) = 0: pt1(1) = 0: pt1(2) = 0 ?????<BR> pt2(0) = 5: pt2(1) = 8: pt2(2) = 0 ?????<BR> pt3(0) = 10: pt3(1) = 0: pt3(2) = 0 ?????<BR> pt4(0) = 15: pt4(1) = 8: pt4(2) = 0 ?????<BR> pt5(0) = 20: pt5(1) = 0: pt5(2) = 0 ?????
<FONT face=宋体 color=#f70909>请问以上几句是什么意思啊?“:”干什么的呢?</FONT><BR> <BR> '圆形<BR> Set objCir = AddCirCR(<FONT color=#f73809>pt1, 1</FONT>) <BR> AddCirCR pt3, 3<BR> AddCirCR pt5, 5<BR> '直线<BR> Set ObjLine = AddLine(pt1, pt2)<BR> AddLine pt4, pt5<BR> '圆弧<BR> Set objArc = AddArc3Pt(pt1, pt3, pt4)
我是新新人,希望大家多帮助!! pt1(0) = 0: pt1(1) = 0: pt1(2) = 0
和<BR>pt1(0) = 0<BR>pt1(1) = 0<BR>pt1(2) = 0<BR>相同
<FONT color=#f70909>“:”表示在一行中分割语句</FONT>
页:
[1]