在excle中数值当作坐标值，在已打开的某autocad文件中生成一段polyline.txt

VB技巧问答10000例 VB技巧问答10000例

1 先 定 义 Excel对 象 ： 
     public xxx as object 
     set xxx=createobject("excel.application") 
     xxx.visible=true 
     ...... 
     ...... 
     Get the polyline data from Excel's columns. Here we say the array is polylinepoints(). 
    2 定 义 AutoCAD的 对 象 ： 
     On Error Resume Next 
     Set AcadApp = GetObject(, "AutoCAD.Application") 
     If Err.Number = 429 Then 
     Set AcadApp = CreateObject("AutoCAD.Application") 
     Err.Clear 
     End If 
     
     Set AcadDoc = AcadApp.ActiveDocument 
     Set MoSpace = AcadDoc.ModelSpace 
    3 画 polyline 
     dim i as integer, x , y, stepx, stepy 
     x,y为 输 入 的 第 一 个 点 坐 标 ， stepx,stepy为 相 对 坐 标 
     '确 定 第 一 个 点 
     x=inputbox("first x?") 
     y=inputbox("first y?") 
     '确 定 相 对 坐 标 
     stepx=polylinepoints(0)-x 
     stepy=polylinepoints(0)-y 
     for i=0 to ubound(polylinepoints)-1 
     if i mod 2 =0 then 
     polylinepoints(i)=polylinepoints(i)-stepx 
     else 
     polylinepoints(i)=polylinepoints(i)-stepy 
     end if 
     next i 
     mospace.addpolyline(polylinepoints) 
    对 于 polyline,其 输 入 参 数 为 一 个 数 组 ， 如 果 有 四 个 点 ， 则 该 数 组 有 8个 元 元 素 ， 从 0至 7。 
    AUTOCAD很 长 时 间 未 动 了 ,不 知 道 对 不 对 。 以 上 例 子 未 经 试 验 ...... 
<END>