daydayup 发表于 2004-10-13 11:34:00

求助:看《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)



我是新新人,希望大家多帮助!!

雪山飞狐_lzh 发表于 2004-10-13 11:41:00

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]
查看完整版本: 求助:看《AutoCAD VBA 开发精彩实例》遇到的问题