VBA转换多段线.docxVIP

CAD VBA源码实例（2）多段直线构筑多段线 多条直线来代替多段线:Sub myl()Dim p1 As Variant 申明端点坐标Dim p2 As Variantp1 = ThisDrawing.Utility.GetPoint(, 输入点:) 获取点坐标z = 0 用户输入Z坐标值p1(2) = z 将Z坐标值赋予点坐标中On Error GoTo Err_Control 出错陷井Do 开始循环p2 = ThisDrawing.Utility.GetPoint(p1, vbCr 输入下一点:) 获取下一个点的坐标 z = ThisDrawing.Utility.GetReal(Z坐标:) 用户输入Z坐标值p2(2) = 0 将Z坐标值赋予点坐标中Call ThisDrawing.ModelSpace.AddLine(p1, p2) 画直线p1 = p2 将第二点的端点保存为下一条直线的第一个端点坐标LoopErr_Control:End Sub***右键可以退出 总结：1.鼠标获得第一点p1 = ThisDrawing.Utility.GetPoint(, 输入点:) 获取点坐标 2.鼠标获得???二点p2 = ThisDrawing.Utility.GetPoint(p1, vbCr 输入下一点:) 获取下一个点的坐标 3.说明鼠标选取点坐标，并把坐标值赋给p1、p2两个变量ThisDrawing.Utility.GetPoint（）在ACAD中这是最常用的方法之一，它需要两个参数，在逗号前面的参数应该是一个点坐标，它的作用是在屏幕上画一条线，前一个端点位于点坐标位置，后一个端点跟随鼠标移动，逗号之前可以什么都不填，这时没有线条会跟随鼠标移动，但逗号必须保留。逗号后面使用一串字符，程序在命令行显示这串字符，这不难理解。VbCr通常代表一个回车符，而在这个语句中，它的作用是在命令行不显示命令：的作用是连接字符。z = ThisDrawing.Utility.GetReal(Z坐标:) 用户输入Z坐标值由用户输入一个实数人为控制跳出循环，可以在代码中用Exit Do语句跳出循环。在For 变量 和Next 变量之间如果要跳出循环，那么只要在循环体内加一个Exit for 就可以跳出循环Call ThisDrawing.ModelSpace.AddLine(p1, p2) 画直线画直线方法也是很常用的，它的两个参数是点坐标变量 ----------------------------------------------多段线 AddLightweightPolyline后面需一个参数，存放顶点坐标的数组画三维多段线语句这样写:Set lobj = ThisDrawing.ModelSpace.Add3DPoly(fitpoint)Add3dpoly后面需一个参数，就是顶点坐标数组画二维样条线语句这样写:Set lobj = ThisDrawing.ModelSpace.AddSpline(FitPoints, startT, endT)Addspline后需要三个参数，第一个是拟合点数组，后面两个分别是起点切向和终点切向。下面看例题?这个程序是第三课例程的改进版?原题是这样的:绘制三维多段线时X、Y值在屏幕上用鼠标选取，Z值用键盘输入。细心的读者是否还记得这个小程序已经在第三课的回贴中发布了?先分析一下编程细路:用动态数组存放多段线的所有顶点坐标，获得新坐标后就把前一次画的多段线删除，画出多段线，并将线段第二点的端点保存为下一条线段的第一个端点坐标，以下是源码： Sub myl()Dim p1 As Variant 申明端点坐标Dim p2 As VariantDim l() As Double 声明一个动态数组Dim templ As Object ReDim l(0 To 2) 定义动态数组l(0) = 4867l(1) = 3481l(2) = 0On Error GoTo Err_Control 出错陷井Do 开始循环p2 = ThisDrawing.Utility.GetPoint(p1, vbCr 输入下一点:) 获取下一个点的坐标z = 0p2(2) = z 将Z坐标值赋予点坐标中lub = UBound(l) 获取当前l数组中元的元素个数ReDim Preserve l(lub + 3)For i = 1 To 3l(lub + i) = p2(i - 1)Next iIf lub 3 Thentempl.Delete 删除前一次画的多段线End If