Autocad VBA初级教程(7)

3.运用select方法

上面的例题已经运用了select方法,下面讲一下select的5种选择方式:1:择全部对象(acselectionsetall)

CAD论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级#E;?6?.F7r#p%G7I(askcad.com),为工程师增加动力1t#u:^7h!T6@,O0L'_,@$t

2.选择上次创建的对象(acselectionsetlast) 3.选择上次选择的对象(acselectionsetprevious)4.选择矩形窗口内对象(acselectionsetwindow)还是看代码来学习.其中选择语句是:Call sel1.Select(Mode, p1, p2)

(askcad.com),为工程师增加动力+o1g+Z3C5p,v#R*^2^&D!l2`/y;J#h7g

www.askcad.com#W&b$d9^1N's5.选择矩形窗口内以及与边界相交的对象(acselectionsetcrossing)

www.askcad.com1a&P8}3C$O%H(N

Mode已经定义为5,也就是选择矩形窗口内以及与边界相交的对象,p1和p2是两个点坐标,

Sub selnew()

Dim sel1 As AcadSelectionSet '定义选择集对象Dim p1(0 To 2) As Double '坐标1Dim p2(0 To 2) As Double '坐标2

www.askcad.com!~/h9c,t:(askcad.com),为工程师增加动力5l&Q:?;d1I&M&z0g:|-

(askcad.com),为工程师增加动力8b$T(i$[-tp1(0) = 0: p1(1) = 0: p1(2) = 0 '设置坐标1 p2(0) = 300: p2(1) = 300: p2(2) = 0 '设置坐标1 Mode = 5 '把选择模式存入mode变量中Call sel1.Select(Mode, p1, p2) '选择对象 sel1.Highlight (ture) '显示已选中的对象End Sub

0B+|.k$@9t-A4r4D4ewww.askcad.com-]-_']2x%P/D#N1|7h$p

Set sel1 = ThisDrawing.SelectionSets.Add(\新建一个选择集

Autocad VBA初级教程 (第十课:画多段线和样条线)

画二维多段线语句这样写：

set lobj= ThisDrawing.ModelSpace.AddLightweightPolyline(fitpoint) AddLightweightPolyline后面需一个参数，存放顶点坐标的数组Set lobj = ThisDrawing.ModelSpace.Add3DPoly(fitpoint) Add3dpoly后面需一个参数，就是顶点坐标数组画二维样条线语句这样写：

(askcad.com)是国内最专业发展最快的AutoCAD设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CA设计论坛为工程师增加动力请记住我们的网址:askcad.com;B;w7\\/O!wwww.askcad.com#k5Z1@,X#n!画三维多段线语句这样写：

CAD设计论坛(o/~)t5e-C9i X

(askcad.com)是国内最专业发展最快的utoCA设计讨论基地论坛云集高手提供CAD的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CAD设计论坛为工程师增加动力请记住我们的网址:askcad.com3W9s.j%[6`1?4D(`

Set lobj = ThisDrawing.ModelSpace.AddSpline(fitPoints,startT, endT)

Addspline后需要三个参数，第一个是拟合点数组，后面两个分别是起点切向和终点切向。下面看例题。这个程序是第三课例程的改进版。原题是这样的：

1D6a;K1V7j#A/O(askcad.com为工程师增加动力1O([(@)m/N(L4b#p;b*_绘制三维多段线时X、Y值在屏幕上用鼠标选取，Z值用键盘输入。

细心的读者是否还记得这个小程序已经在第三课的回贴中发布了。先分析一下编程细路：存为下一条线段的第一个端点坐标，以下是源码：Sub myl()

Dim p1 As Variant '申明端点坐标Dim p2 As Variant

Dim l() As Double '声明一个动态数组Dim templ As Object

www.askcad.com2n K)r S2Y7u:CAD论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级-r)D'|:N:d:n9z(askcad.com),为工程师增加动力!d&@7[6Y${(t.y%Z3Z(askcad.com为工程师增加动力4o:@:U*B/I

用动态数组存放多段线的所有顶点坐标，获得新坐标后就把前一次画的多段线删除，画出多段线，并将线段第二点的端点保

CAD设计论坛2U-d$G/\\&A8k:C'f(['d

(askcad.com),为工程师增加动力!s$`%Z,N v0N-lp1 = ThisDrawing.Utility.GetPoint(, \输入点:\获取点坐标p1(2) = z '将Z坐标值赋予点坐标中 ReDim l(0 To 2) '定义动态数组l(0) = p1(0)l(1) = p1(1)l(2) = z

On Error GoTo Err_Control '出错陷井 Do '开始循环

CAD设计论坛!l.i8E)g)h4L4b-G8LCAD设计论坛#U3u:c1E8q

z = ThisDrawing.Utility.GetReal(\坐标:\用户输入Z坐标值

A8T.u;y0D+Q/?

www.askcad.com#Z:_*e!G3i${

p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & \输入下一点:\获取下一个点的坐标 z = ThisDrawing.Utility.GetReal(\坐标:\用户输入Z坐标值 p2(2) = z '将Z坐标值赋予点坐标中 ReDim Preserve l(lub + 3) For i = 1 To 3

CA设计论坛-k%K1[#~5?1L\4x ]!s3{ A&]#U0U1u

lub = UBound(l) '获取当前l数组中元的元素个数

l(lub + i) = p2(i - 1)Next i

CA设计论坛2V)C5m\&F7l2F3T'h(askcad.com),为工程师增加动力+^8I.H'c#{%j

'S!b(]%N.K:W+c:D,mIf lub > 3 ThenEnd If

CAD论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级*S0@(K N#a\templ.Delete '删除前一次画的多段线

(askcad.com)是国内最专业发展最快的utoCA设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CAD设计论坛为工程师增加动力请记住我们的网址askcad.com,p z,x0V:q!O\%R8V'm#W

(askcad.com),为工程师增加动力%|;T\o,R&sSet templ = ThisDrawing.ModelSpace.Add3DPoly(l) '画多段线Loop

p1 = p2 '将第二点的端点保存为下一条直线的第一个端点坐标

CAD论坛,CA设计,PROE,autocad,CAD下载,CAD教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级,d/G({,U,Y$b1pErr_Control: End Sub

我们学一学动态数组，这是非常有用的。所谓动态数组，简单讲就是数组元素可以改变的特殊数组。这样定义数组：Dim l( ) As Double 赋值语句：ReDim l(0 To 2) l(0) = p1(0) l(1) = p1(1) l(2) = z

重新定义数组元素语句：

lub = UBound(l) '先要获取当前l数组中元的元素个数,用ubount函数计算。ReDim Preserve l(lub + 3)

重定义时数组中要加三个元素，用以存放坐标值，所以定义元素为lub+3。给数值赋值的语句是一 …… 此处隐藏：2391字，全部文档内容请下载后查看。喜欢就下载吧 ……