ACAD VBA初级教程

ACAD VBA初级教程第一课:入门

1.为什么要写这个教程

市面上ACAD VBA的书不多，它的帮助是英文版的，很多人看不懂。

2.什么是Autocad VBA？

VBA是Visual Basic for Applications的英文缩写，它是一个功能强大的开发工具，学好VBA可以成倍甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD命令不可能完成的，只要学好VBA就可以做到，相信到时候您一定会得到同事的佩服、老板的器重。

3、VBA有多难？

相信大家都知道Basic是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一定要提出批评，以便及时更正。

4、怎样学习VBA？

介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考，多想一些是什么、为什么。

5、现在我们开始编写第一个程序：画一百个同心圆

第一步：复制下面的红色代码

第二步：在模型空间按快捷键Alt+F8，出现宏窗口

第三步：在宏名称中填写C100，点“创建”、“确定”

第四步：在Sub c100()和End Sub之间粘贴代码

第五步：回到模型空间，再次按Alt+F8，点击“运行”

Sub c100()

Dim cc(0 To 2) As Double '声明坐标变量

cc(0) = 1000 '定义圆心座标

cc(1) = 1000

cc(2) = 0

For i = 1 To 1000 Step 10 '开始循环

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆

Next i

End Sub

也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。

第二课编程基础

本课主要任务是对上一课的例程进行详细分析

下面是源码：

Sub c100()

Dim cc(0 To 2) As Double '声明坐标变量

cc(0) = 1000 '定义圆心座标

cc(1) = 1000

cc(2) = 0

For i = 1 To 1000 Step 10 '开始循环

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆

Next i

End Sub

先看第一行和最后一行：

Sub C100()

……

End Sub

C100是宏的名称，也叫过程名称，当用户执行C100时程序将运行sub和end sub之间的所有指令。

第二行：

Dim cc(0 To 2) As Double '声明坐标变量

后半段“'声明坐标变量”自动变为绿色字体，它是代码语句的注释，它不会影响程序运行，它的作用是告诉阅读者程序员的想法。对于简单的程序，一般不需要写注释，如果要编写非常复杂的程序，最好要多加注

释，越详细越好，对于程序员来说，这是一个好习惯。

电脑真正编译执行的是这条语句：Dim cc(0 To 2) As Double

它的作用就是声明变量。

Dim是一条语句，可以理解为计算机指令。

它的语法：Dim变量名As 数据类型

本例中变量名为CC，而括号中的0 to 2声明这个CC是一个数组，这个数组有三个元素：CC(0)、CC(1)、CC(2)，如果改为CC(1 to 3)，则三个元素是CC(1)、CC(2)、CC(3)，有了这个数组，就可以把坐标数值放到这个变量之中。

Double是数据类型中的一种。ACAD中一般需要定义坐标时就用这个数据类型。在ACAD中数据类型的有很多，下面两个是比较常用的数据类型，初学者要有所理解。

Long（长整型），其范围从-2,147,483,648 到 2,147,483,647。

Variant 它是那些没被显式声明为其他类型变量的数据类型，可以理解为一种通用的数据类型，这是最常用的。

下面三条语句

cc(0) = 1000 '定义圆心座标

cc(1) = 1000

cc(2) = 0

它们的作用是给CC变量的每一个元素赋,值其顺序是X、Y、Z坐标。

For i = 1 To 1000 Step 10 '开始循环

……

Next i '结束循环

这两条语句的作用是循环运行指令，每循环一次，i值要增加10，当i加到1000时，结束循环。

i也是一个变量，虽然没有声明i变量，程序还是认可的，VB不是C语言，每用一个变量都要声明，不声明就会报错。简单是简单了，这样做也有坏处，如果不小心打错了一个字母，程序不会报错，如果程序很长，那就会出现一些意想不到的错误。

step后面的数值就是每次循环时增加的数值，step后也可以用负值。

例如：For i =1000 To 1 Step -10

很多情况下，后面可以不加step 10

如：For i=1 to 100，它的作用是每循环一次i值就增加1

Next i语句必须出现在需要结束循环的位置，不然程序没法运行。

下面看画圆命令：

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)

Call语句的作用是调用其他过程或者方法。

ThisDrawing.ModelSpace是指当前CAD文档的模型空间

AddCircle是画圆方法

Addcicle方法需要两个参数：圆心和半径

CC就是圆心坐标，i*10就是圆的半径，本例中，这些圆的半径分别是10、110、210、310……

本课到此结束，下面请完成一道思考题：

1.以(4,2)为圆心，画5个同心圆，其半径为1-5

第三课编程基础二

绘制三维多段线时X、Y值在屏幕上用鼠标选取，Z值用键盘输入

本课将讲解这个问题。

为了简化程序，这里用多条直线来代替多段线。以下是源码：

Sub myl()

Dim p1 As Variant '申明端点坐标

Dim p2 As Variant

p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标

z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入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) = z '将Z坐标值赋予点坐标中

Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线

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

Loop

Err_Control:

End Sub

先谈一下本程序的设计思路：

1、获取第一点坐标

2、输入第一点Z坐标

3、获取第二点坐标

4、输入第二点Z坐标

5、以第一、二点为端点，画直线

6、下一条线的第一点=这条线的第二点

7、回到第3步进行循环

如果用户没有输入坐标或Z值，则程序结束。

首先看以下两条语句：

p1 = ThisDrawing.Utility.GetPoint(, "输入点:") …获取点坐标

……

p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标

这两条语句的作用是由用户输入点用鼠标选取点坐标，并把坐标值赋给p1、p2两个变量。ThisDrawing.Utility.GetPoint（）在ACAD中这是最常用的方法之一，它需要两个参数，在逗号前面的参数应该是一个点坐标，它的作用是在屏幕上画一条线，前一个端点位于点坐标位置，后一个端点跟随鼠标移动，逗号之前可以什么都不填，这时没有线条会跟随鼠标移动，但逗号必须保留。

逗号后面使用一串字符，程序在命令行显示这串字符，这不难理解。

VbCr通常代表一个回车符，而在这个语句中，它的作用是在命令行不显示“命令：”

&的作用是连接字符。举例：

“爱我中华”&”抵制日货”&”从我做起”

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

由用户输入一个实数

On Error GoTo Err_Control '出错陷井

……

Err_Control:

On Error是出错陷井语句，在程序出错时将执行On Error 后面的语句

GoTo Err_contorl 是程序跳转语句，它的作用是在程序中寻找Err_control:，并执行这一行后面的语句，本例中Err_Control:后就是结束宏，所以只要出现错误，程序中止。

Do '开始循环

……

Loop …结束循环

这个循环就历害了，它会无休止地进行循环，好在本例中已经有了一个出错陷井，当用户输入回车时，由于程序没有得到点或坐标，程序出错，跳出循环，中止程序。如果要人为控制跳出循环，可以在代码中用Exit Do语句跳出循环。在For 变量和Next 变量之间如果要跳出循环，那么只要在循环体内加一个Exit for 就可以跳出循环，关于这方面的例程以后会讲到。

Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线

画直线方法也是很常用的，它的两个参数是点坐标变量

本课到此结束，请做思考题：

连续画圆，每次要求用户输入圆心、半径，当用户不再输入圆心或半径时程序才退出

第四课程序的调试和保存

人非圣贤，孰能无过，初学者在编写复杂程序时往往会出现一些意想不到的错误，所以程序的调试显得尤为重要，随着学习的深入，以后我们需要经常进行程序调试。事实上，对于那些资深程序员来说，调试程序也是一项不可或缺的重要工作。

首先，在程序输入阶段，应该充分利用VBA编辑器的智能功能。当你在写代码时，输入一些字母后，编辑器可以自动列出合适的语句、对象、函数供你选择，可以用上下键选择，然后按TAB键（它位于“Q”键左边）确认。当输入一个回车符后程序会自动对这条语句进行分

析，如果出现错误就会提示。

我们经常碰到的麻烦是程序的运行结果和预计的不一样，一般我会这样做：首先要想一想可能是哪一个变量有问题，然后去监视这个变量(或表达式)，在程序合适的位置设置断点，这样可以使程序停下来看一看这个变量有没有按照我的设想在变化。下面我举一个简单的例子，先看源代码：

sub test()

for i=2 to 4 step 0.6

next i

end sub

这是一个非常简单的循环，每一次循环i便会增加0.6，当循环3次后i值就变为4.4，但问题是每一次循环时i值变为多少？

第一步：在菜单中选“调试”—“添加监视”，在表达试中填“i”，点击确定，这时你会看到临视窗口中会多一行。

第二步：把光标移到代码窗口中的“next i”行，按一下“F9”，于是每当程序运行到这里时就会暂停了。

好，一切就绪，请按F5执行程序，在监视窗口中C值立刻变为2，再按F5继续，C值为2. 6，再按几次F5，直到程序结束，这样我们就成功监视了C值的变化。

第三步：在next i行再按一次F9，清除断点。监视的表达式的右键菜单选择“删除监视”。另外，还可以用“逐语句”、“逐过程”、“运行到光标处”等方法进行调试，这些都在调试菜单中，操作比较简单，请读者自行领悟。

到目前为止，我们所做的工程都是“嵌入式工程”，它只是嵌入在当前的Autocad图形文件中，以后打开这个文件时代码才会加载，如果别的dwg文件也要使用，那就需要把代码导出为. bas文件，供其他dwg文件导入。在VBA编辑器的“文件”菜单中有这两个功能，一试便知。ACAD VBA还有一种工程叫“通用式工程”，只要进入ACAD就可以运行，程序可以在不同用户、不同的图形文件中共享，但是由于VBA功能太强，有时候会出现一些意想不到的事情，所以在学习阶段请暂时不要这样做。

本课结束，请做思考题；监视下列代码中的i和j的值，注意，此题虽然要监视2个变量，但是在代窗口中只要设置1个断点就足够了。

sub test()

for i=2 to 4 step 0.6

for j=-5 to 2 step 5.5 next j

next i

end sub

第五课画函数曲线先画一组下图抛物线。

下面是源码：

Sub myl()

Dim p(0 To 49) As Double '定义点坐标

Dim myl As Object '定义引用曲线对象变量

co = 15 '定义颜色

For a = 0.01 To 1 Step 0.02 '开始循环画抛物线

For i = -24 To 24 Step 2 '开始画多段线

j = i + 24 '确定数组元素

p(j) = i '横坐标

p(j + 1) = a * p(j) * p(j) / 10 '纵坐标

Next i '至此p(0)-p(40)所有元素已定义，结束循环

Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线

myl.Color = co '设置颜色属性

co = co + 1 '改变颜色，供下次定义曲线颜色

Next a

End sub

为了鼓励大家积极思考，从本课开始，我不再解释每一条语句的作用，只对以前没有提过的语句进行一些解释，也许你一时很难明白，建议用上一课提到的跟踪变量、添加断点的办法领悟每一条语句的作用。

在跟踪变量p时请在跟踪窗口中单击变量p前的+号，这样可以看清数组p中每一个元素的变化。

ACAD没有现成的画抛物线命令，我们只能用程序编写多段线画近似抛物线。理论上，抛物线的X值可以是无限小、无限大，这里取值范围在正负24之间。

程序第二行：Dim myl As Object '定义引用曲线对象变量

Object也是一种变量类型，它可以把变量定义为对象，本例中myl变量将引用多段线，所以要定义为Objet类型。

看画多段线命令：

Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线

其中括号中的p是一个数组，这个数组的元素数必须是偶数，每两个元数作为一个点坐标。

等号前面部分“Set myl”的作用就将myl变量去引用画好的多段线。

myl.Color = co '设置颜色属性。在ACAD中，颜色可以用数字表示，本例中co会增值，这样就会有五彩缤纷的效果。

本课第二张图：正弦曲线，下面是源码：

Sub sinl()

Dim p(0 To 719) As Double '定义点坐标

For i = 0 To 718 Step 2 '开始画多段线

p(i) = i * 2 * 3.1415926535897 / 360 '横坐标

p(i + 1) = 2 * Sin(p(i)) '纵坐标

Next i

ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '画多段线

ZoomExtents '显示整个图形

End Sub

p(i) = i * 2 * 3.1415926535897 / 360 '横坐标

横坐标表示角度，后面表达式的作用是把角度转化弧度

ZoomExtents语句是缩放命令，它的作用是显示整个图形，消除图形以外的区域

本课思考题：画一条抛物线：y=0.5*x*x+3，其中X取值范围在正负50之间

第六课数据类型的转换

上一节课我们用一个简单的公式把角度转化为弧度，这样做便于大家理解。不过VBA中有现成的方法可以转换数据类型。

我们举例说明：

jd = ThisDrawing.Utility.AngleToReal(30, 0)

这个表达式把角度30度转化为弧度，结果是.523598775598299。

AngleToReal需要两个参数，前面是表示要转换角度的数字，而后面一个参数可以取值为0 -4之间的整数，有如下意义：

0：十进制角度；1：度分秒格式；2：梯度；3：弧度；4：测地单位

例：id= ThisDrawing.Utility.AngleToReal("62d30' 10""", 1)

这个表达式计算62度30分10秒的弧度

再看将字符串转换为实数的方法：DistanceToReal

需要两个参数，前一个参数是表示数值的字符串，后面可以取值1-5，表示数据格式，有如下意义：

1：科学计数；2：十进制；3：工程计数——英尺加英寸；4：建筑计数——英尺加分数英寸；5：分数格式。

例：以下表达式得到一个12.5的实数

temp1 = ThisDrawing.Utility.DistanceToReal("1.25E+01", 1)

temp2 = ThisDrawing.Utility.DistanceToReal("12.5", 2)

temp3 = ThisDrawing.Utility.DistanceToReal("12 1/2", 5)

而realtostring方法正好相反，它把一个实数转换为字符串。它需要3个参数

第一个参数是一个实数，第二个参数表示数据格式，含义同上，最后一个参数表示精确到几位小数。

temp1= ThisDrawing.Utility.RealToString(12.5, 1, 3)

得到这个字符串：“1.250E+01”，

下面介绍一些数型转换函数：

Cint，获得一个整数，例：Cint(3.14159) ，得到3

Cvar，获得一个Variant类型的数值，例：Cvar("123" & "00")，得到”12300”

Cdate，转换为date数据类型，例：MyShortTime = CDate("11:13:14 AM")

下面的代码可以写出一串数字，从000-099。

Sub test()

Dim add0 As String

Dim text As String

Dim p(0 To 2) As Double

p(1) = 0 'Y坐标为0

p(2) = 0 'Z坐标为0

For i = 0 To 99 '开始循环

If i < 10 Then '如果小于10

add0 = "00" '需要加00

Else '否则

add0 = "0" '需要加0

End If

text = add0 & CStr(i) '加零，并转换数据

p(0) = i * 100 'X坐标

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字

Next i

End Sub

重点解释条件判断语句：

If 条件表达式Then

……

Else

……

End if

如果满足条件那么程序往下执行，到else时不再往下执行，直接跳到End if后面如果不满足条件，程序跳到else后往下运行。

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字

这是写单行文本，需要三个参数，分别是:写的内容、位置、字高

第七课写文字

客观地说，ACAD写字功能不够历害，而用VBA可以使写字效率更高。比较正规的做法是把定义文字样式，用样式来控制文字的特性。我们还是用实例来学习，先看下面一段代码，它的作用是先创建一个文字样式，然后用这个文字样式写一段多行文本。

Sub txt()

Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式

Dim p(0 To 2) As Double '定义坐标变量

p(0) = 100: p(1) = 100: p(2) = 0 '坐标赋值

Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式

mytxt.fontFile = "c:\windows\fonts\simfang.ttf" '设置字体文件为仿宋体

mytxt.Height = 100 '字高

mytxt.Width = 0.8 '宽高比

mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0) '倾斜角度（需转为弧度）

ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt

Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，学到老}\P" & "此心自光明正大，过人远矣")

txtobj.LineSpacingFactor = 2 '指定行间距

txtobj.AttachmentPoint = 3 '右对齐（1为左对齐，2为居中）

End Sub

我们看这条语句

Set mytxt = ThisDrawing.TextStyles.Add("mytxt")

添加文本样式并赋值给mytxt变量，只需要一个参数：文本样式名

fontfile、height、width、ObliqueAngle是文本样式最常用的属性

Call ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，学到老}\P" & "此心自光明正大，过人远矣")

这条语句是写文本，需要三个参数。第一个参数p是坐标，1400是宽度，最后一个参数是文本内容，其中\p是一个回车符

扩大字符间距用\T数字，例：\T3abc，使文字abc的间距扩大3 部，n取值范围是0.75-3

在论坛中有一个经常被同好提及的问题：如何使用文字叠加。举例说明：123\S+0.12^-0.

34

\S是格式字符，^是分隔符，前面的数字在上，后面的数字在下。

\C是颜色格式字符，C后面跟一个数字表示颜色

\A是对齐方式，\A0，\A1,\A2分别表示底部对齐、中间对齐和顶部对齐

完

Excel+vba入门教程

VBA入门系列讲座 1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动 化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用excel的宏语言来使excel自动化,使用word BASIC使word自动化,等等.微软决定让它开 发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集.实际上VBA是”寄生于”VB应用程序的版本.VBA和VB的区别包括如下 几个方面: 1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(excel 等)自动化 2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序. 3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序 是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的”父”应用程 序,例如excel. 尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解 了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下坚实的基础.而且,当学会在excel中用VBA创建解决方案后,即已具备在word access OUTLOOK 中用VBA创建解决方案的大部分知识. FOXPRO PROWERPOINT VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化. VBA可以称作excel的“遥控器”. VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案. 此外,如果你愿意,还可以将excel用做开发平台实现应用程序. 1.2 Excel环境中基于应用程序自动化的优点 也许你想知道VBA可以干什么?使用VBA可以实现的功能包括: 1. 使重复的任务自动化. 2. 自定义excel工具栏,菜单和界面. 3. 简化模板的使用. 4. 自定义excel,使其成为开发平台. 5. 创建报表. 6. 对数据进行复杂的操作和分析.

Excel VBA实例教程 #055：在工作表中添加艺术字

工作表中的多个图形，如果使用系统缺省名称，如“文本框1”、“文本框2”这样前面是固定的字符串，后面是序号的，可以使用For...Next 语句遍历图形，如下面的代码所示。 1.Sub ErgShapes_1() 2. Dim i As Integer 3. For i = 1 To 4 4. Sheet1.Shapes("文本框 " & i).TextFrame.Characters.Text = "" 5. Next 6.End Sub 代码解析： ErgShapes_1过程清除工作表中四个图形文本框中的文字。 第3行到第5行代码，使用Shapes属性在工作表上的三个图形文本框中循环。 Shapes属性返回Shapes对象，代表工作表或图形工作表上的所有图形，可以使用Shapes （index）返回单个的Shape对象，其中index是图形的名称或索引号。 返回单个的Shape对象后使用TextFrame 属性和Characters方法清除文本框中的字符，关于Shape对象的TextFrame 属性和Characters方法请参阅技巧53 。 如果图形的名称没有规律，可以使用For Each...Next 语句循环遍历所有图形，根据Type 属性返回的图形类型进行相应的操作，如下面的代码所示。 1.Sub ErgShapes_2() 2. Dim myShape As Shape 3. Dim i As Integer 4. i = 1 5. For Each myShape In Sheet1.Shapes 6. If myShape.Type = msoTextBox Then 7. myShape.TextFrame.Characters.Text = "这是第" & i & "个文本框" 8. i = i + 1 9. End If 10. Next 11.End Sub 代码解析： ErgShapes_2过程在工作表中的所有图形文本框中写入文本。 第5行代码使用For Each...Next 语句循环遍历工作表中所有的图形对象。 第6行到第9行代码如果图形对象是文本框则在文本框中写入文本。其中第6行代码根据Type属性判断图形对象是否为文本框，应用于Shape对象的Type属性返回或设置图形类型，MsoShapeType类型，请参阅表格54 1 。 第7行代码根据返回的Type属性值在所有的文本框内写入相应的文本，如图1所示。

法语零基础自学

其实我这个不合格的老师能做的，也就是略指点一下方向，路还是得自己走。有条件最好是自己去法语联盟学上一段时间呵。想到可能有很多像慕回这样的豆友，我还是写出来好了。粗糙潦草口水飞溅之处，也暂时顾不上了。 本攻略主要是给慕回这样的：1，有一定英语基础，欲习法文读原著者；2，零法语基础，欲业余自学又无暇参加机构培训者。 至于应试什么的则不在考虑范围内，我又不是专家：） 首先需要一本字典：我偏爱《拉鲁斯法汉汉法双解》（https://www.wendangku.net/doc/577552087.html,/subject/1090900/），也可以考虑《罗贝尔法汉词典》（https://www.wendangku.net/doc/577552087.html,/subject/1107599/）。罗贝尔词汇量小些，但比较适合初学者；拉鲁斯一些用法讲解稍嫌欠缺，但有法语注释。不推荐太简陋的法汉小字典。 此外还有《现代法语疑难解析》（https://www.wendangku.net/doc/577552087.html,/subject/1229746/）可为补充。 然后说一下起步用的教材。我用的是马晓宏的法语专业教材，经典但也过时，可能对自学者难度高了点。有兴趣可以找一下电子书参考。作为二外自学的话，常见的《公共法语》（https://www.wendangku.net/doc/577552087.html,/subject/1256810/）似乎还可以，虽然没用过，但我认识某海归，参加TEF赴法前曾通背全书，想来应是不错的。

此外就是北大出版社王文融主编的《法语教程》（https://www.wendangku.net/doc/577552087.html,/subject/1184136/），配有听力和练习答案，内容倒是很跟得上时代，可惜才出了两册，略微单薄，但比较容易，自学者可以选用。 我认真翻过的还有《简明法语教程》（https://www.wendangku.net/doc/577552087.html,/subject/1189099/），分上下两册，有一本练习答案，我跟E弦小朋友都曾盛赞过此书脉络分明，重难点突出。好像现在有修订版了。 若论外文原版教材，说实话，Reflets （https://www.wendangku.net/doc/577552087.html,/subject/1465258/）虽然是培训机构常选教材，但比起来Taxi（https://www.wendangku.net/doc/577552087.html,/subject/2373606/）其实更适合初学者。 最后说一下网站。法语这两年学习者越来越多，相关网站也鱼龙混杂。这里有一份法语学习网站锦集，可供参考：https://www.wendangku.net/doc/577552087.html,/Article/Class32/200602/2776.html 而我则比较懒，国内网站最多不时去一下沪江法语，看法语电子书大多去的是Gallica（http://gallica.bnf.fr/），很喜欢那儿。 第一关，语音关。 重点是要掌握拼读规则。 发音关我推荐一下舒毅宁的《法语发音》

Excel_VBA实例教程_查找单元格

Excel VBA实例教程查找单元格 1、使用Find方法 在Excel中使用查找对话框可以查找工作表中特定内容的单元格，而在VBA中则使用Find方法，如下面的代码所示。 01.Sub RngFind() 02. Dim StrFind As String 03. Dim Rng As Range 04. StrFind = InputBox("请输入要查找的值:") 05. If Trim(StrFind) <> "" Then 06. With Sheet1.Range("A:A") 07. Set Rng = .Find(What:=StrFind, _ 08. After:=.Cells(.Cells.Count), _ 09. LookIn:=xlValues, _ 10. LookAt:=xlWhole, _ 11. SearchOrder:=xlByRows, _ 12. SearchDirection:=xlNext, _ 13. MatchCase:=False) 14. If Not Rng Is Nothing Then 15. Application.Goto Rng, True 16. Else 17. MsgBox "没有找到该单元格!" 18. End If 19. End With 20. End If 21.End Sub 代码解析： RngFind过程使用Find方法在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值，并查找该值所在的第一个单元格。 第6到第13行代码在工作表Sheet1的A列中查找InputBox函数对话框中所输入的值。应用于Range 对象的Find方法在区域中查找特定信息，并返回Range对象，该对象代表用于查找信息的第一个单元格。如果未发现匹配单元格，就返回Nothing，语法如下： 01.expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat) 复制代码参数expression是必需的，该表达式返回一个Range对象。 参数What是必需的，要搜索的数据，可为字符串或任意数据类型。 参数After是可选的，表示搜索过程将从其之后开始进行的单元格，必须是区域中的单个单元格。查找时是从该单元格之后开始的，直到本方法绕回到指定的单元格时，才对其进行搜索。如果未指定本参数，搜索将从区域的左上角单元格之后开始。 在本例中将After参数设置为A列的最后一个单元格，所以查找时从A1单元格开始搜索。 参数LookIn是可选的，信息类型。 参数LookAt是可选的，可为XlLookAt常量的xlWhole 或xlPart之一。 参数SearchOrder是可选的，可为XlSearchOrder常量的xlByRows或xlByColumns之一。 参数SearchDirection是可选的，搜索的方向，可为XlSearchDirection常量的xlNext或xlPrevious 之一。

新公共法语初年级教程课课文翻译

新公共法语初年级教程 课课文翻译 Document number【980KGB-6898YT-769T8CB-246UT-18GG08】

课文翻译 8A一个意大利人来到巴黎 ——请问罗什先生在吗？ ——我就是。 ——你好，先生，我是马克?波尼。 ——啊！您好，马克。请进，坐吧。您从罗马来，是吗？您累吗？ ——不，我不累。我们的汽车舒适而且车速又快。 ——啊！这是我的妻子。弗朗索瓦兹，这是马克?波尼，索菲的男友，你知道的，他从罗马来。 ——马克，您好，您和我们一起吃午饭吗？ ——好的，谢谢，太太。 ——好，请您把大衣给我。索菲中午12点从索邦大学回来。 B这里讲各种外语 一个外国人来到法国外省的一家旅馆，旅馆的门上写着“这里讲各种外语”。他用英语、德语、西班牙语、意大利语、俄语跟店主说话……可是没有反应。于是，他用法语问道： “这里谁讲各种外语？” “是游客们，”店主答道。 9A 我有一些朋友 ——哟！我的朋友！你好，塞西尔！你好，卡丽娜！你们好吗？ ——好的，弗雷德，你呢？ ——还好。你们下午有课？ ——是的，从两点到三点半。你呢？ ——我呀，上午有课，从八点到十点…… ——上午八点开始上课！你准时到吗？ ——准时到的，因为我有汽车……那你们呢？你们有车吗？ ——唉，没有。不过公交车经过住所附近。 ——啊！你们住在市区？ ——是的，我们住在一个老太太的公寓里有一间房间。我们的房间挺大。你呢？ ——我嘛，在郊区有一间单身公寓。 ——在郊区？离这里远吗？你在郊区有朋友吗？ ——当然咯！我有一些男朋友……也有一些女朋友！你瞧我女朋友的照片，她叫玛丽娜，她父母住在威尼斯。 ——她喜欢巴黎吗？ ——喜欢的，但她更喜欢威尼斯。 B电话号码 课堂上，玛丽举起了手。

geomagic studio 11 培训教材之一软件熟悉

Geomagic studio 11界面熟悉 1 软件的界面 应用程序窗口布局主要分为两部分： 模型管理器：包含了控制激活模型的各种按钮和激活命令的对话框 视窗：显示模型和所有交互选择的结果。 视窗：显示当前工作对象，在视窗里可做选取工作。 菜单栏：菜单栏里提供了软件的所有命令。 工具栏：不同于菜单栏，工具栏提供的是常用命令的快捷按钮。 管理器面板：包含了管理器的按钮，允许你控制用户界面的不同项目。 模型管理器——显示在打开的模型中可获得的所有对象。 基本体素管理器——控制对象的各种显示项目。 材质管理器——控制应用材质贴图到激活对象上的设置。 显示管理器——控制在视窗中各种项目的显示，比如坐标轴指示器。 对话框管理器——管理每个命令的所有主要对话。

覆盖：提供信息，模型信息，边界框尺寸信息和内存使用信息。其显示内容是由管理器面板上的显示管理器中的设置控制的。 坐标轴指示器：显示相对于模型的坐标轴的当前方向（这不是系统坐标0,0,0）。 状态文本：给你提供信息，系统正在做什么和你能执行什么任务。 计时器：显示一个操作的进程。 时钟：显示当前时间。 2 软件的操作 2.1鼠标的使用 中键：旋转 按住中键拖动：旋转 滑动中键滚轮：放大或缩小 按住中键滑动+ ALT：移动 2.2 常用快捷键 新建：Ctrl+N 打开： Ctrl+O 保存： Ctrl+S 撤销：Ctrl+Z 全屏显示： Ctrl+D 选项设置：Ctrl+X 选择一个显示： Alt+1 全部显示：Alt+8 封闭多折线：空格 全部选择：Ctrl+A 取消选择：Ctrl+C 取消选择的部分：Ctrl+左键 Ctrl 不间断的选择 shift 连续的选择 2.3 选项设置 菜单“工具”-“选项”，快捷键：Ctrl+X 进入选项设置。需设置的参数有封装（曲面封装的最大圆周孔设为0）、语言设置为中国大陆。

Excel VBA实例教程指南

Excel VBA教程之一：写在前面 VBA功能如何强大，这已勿庸费言，但如何才能很快进阶，写出自己满意的程序，却取决于个人努力和悟性。我下了很大功夫却收效甚微，有时，高手一句点拨却胜读三天书。所以，我把个人学习所得作一点整理，希望有助于后学。 只所以会有看书没用之感，一来是因为市面（我国）上大多数计算机类图书多为粗制滥造之作（这话稍有唐突），二来因为计算机这东西太呆板，不见得新出现的问题就能立即得到某本书籍上的解释，新问题总是层出不穷的。 想把一门编程语言全部搞懂，再去写点程序，是一个十分愚蠢的想法。你想盖房子，难道你想先学会制造砖头、玻璃等？我承认，把语言弄懂再做事情会很顺手，但是，你知道吗，有多少人在弄懂一门晦涩难懂的语言之前就放弃了呢？比如，什么叫面向对象编程？OOP和以前的流线性编程有什么异同？我还是大力提倡学以致用，别指望什么事你都能成专家，计算机世界的“罗氏定理”就是：“毕其一生，不能穷其万一”，你记住了吗？ 那么，对于没有编程基础的人，怎样才能进步得快呢？我有几点思考： 1.你一定要带着明确的目的去做一件具体的事。这样，才会在做的过程中发现问题，并逐步去解决这些问题。比如，我想做一个《学生成绩分析系统》，我就会想到怎么才能把学生分数分成不同的班、怎么才能算出总分、平均分、标准差等、怎样比较各班的情况，怎样用图形显示更直观，怎么样才能把某个学生的历次成绩放在一起比较等。 2.你动手去做一做，一点一点地完成你上面的设想，不必因为这个大工程没做出来而忽略你在局部的突破，这样，你会越来越有信心，这就够了，还有什么比有信心做事的感觉更好的了吗？ 3.合理及时利用网络资源，这绝对是个好东西，或许你看起来很了不起的问题，在别人看来简直不算什么，一定会有人为你解答。上网并不只是QQ和game啊！同时要好好利用软件的帮助系统，这才是最权威的解释，很多计算机书籍抄自帮助，你想，微软的专家写的，绝对原创，他还能去抄谁？ 4.做了一些工作之后，再回过头来看书，就会感觉很亲切，觉得写书的人原来也不是一无是处，也是很辛苦的（不要过分自我批评了）。不过，要看书，计算机类的，我百分之一万地推荐你看外国人写的，首先，软件是人家编的，当然更了解。其次，外国人写的，又被介绍到中国来，也是比较优秀的了。三来，我确实作过对比，看老外的书收益最大。语言不通的问题怎么办？金山词霸一下呗。 我为什么要写这个东西？一是因为我想帮助别人，二是因为我想因此促进自己，三是因为我反感某些号称程序员的家伙，似乎编程是一件多么了不起的事，用一些极端人士的话来说：“编程有什么了不起？不就是判断和循环吗”，说得很有道理，从本质上说，计算机就是在做判断和循环，不信你就跟着我来吧。 好了，Let’s go Excel VBA教程之二：从一个界面设计开始 一个好的软件，除了运算速度快、体积小后，更重要的是，它的用户界面是不是很友好、亲切，“友好、亲切”这样的词汇在开始接触计算机语言时，感觉很好笑，但现在不一样了，我感觉这两个词最贴切！界面友好，就是引导用户能很快找到他需要的服务，最能想到他的心思，最体贴他，让他不时地心动，不时地赞叹！界面友好，就是能让用户在不经意间学到好多知识，无形中丰富了他自己，让他有美的享受！界面友好，还在于一目了然的界面却能让他需要的功能呼之即来，挥之即去！如此等等。 那么，我想做一个《学生成绩分析系统》，我该怎么做呢？ 以下的界面你满意吗？

Excel VBA实例教程 #060：使用VBA自动生成图表

在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。 1.Sub ChartAdd() 2. Dim myRange As Range 3. Dim myChart As ChartObject 4. Dim R As Integer 5. With Sheet1 6. .ChartObjects.Delete 7. R = .Range("A65536").End(xlUp).Row 8. Set myRange = .Range("A" & 1 & ":B" & R) 9. Set myChart = .ChartObjects.Add(120, 40, 400, 250) 10. With myChart.Chart 11. .ChartType = xlColumnClustered 12. .SetSourceData Source:=myRange, PlotBy:=xlColumns 13. .ApplyDataLabels ShowValue:=True 14. .HasTitle = True 15. .ChartTitle.Text = "图表制作示例" 16. With .ChartTitle.Font 17. .Size = 20 18. .ColorIndex = 3 19. .Name = "华文新魏" 20. End With 21. With .ChartArea.Interior 22. .ColorIndex = 8 23. .PatternColorIndex = 1 24. .Pattern = xlSolid 25. End With 26. With .PlotArea.Interior 27. .ColorIndex = 35 28. .PatternColorIndex = 1

新公共法语初级教程12课到19课汉译法翻译答案

1你忘了什么东西吗？Tu oublies quelque chose? 2她看上去很安心。Elle a l’air tranquille. 3你爸爸每月挣多少钱？Ton pe re gagne combien par mois? 4 经理的妻子跳舞跳得好。La femme du directeur danse bien 5罗什太太带孩子们去看电影.Madame Roche emm ene ses enfants au cine?ma 6有人在牛奶里放了一点威士忌。 On met un peu de whisky dans le fait. 1午餐有鱼有肉，有绿叶蔬菜和奶酪。Pour le de?jeuner ,il y du poisson, de la viande des le?gumes verts et du fromage. 2孩子一天吃一个鸡蛋L’enfant mange un oeuf par jour. 3每隔三分钟有一班地铁。Il y a un metro toutes les trois minutes 4我的那些朋友都喜欢体育运动。Mes amis aiment tous le sport. 5要吃蔬菜和水果，这有益于健康。Il faut manger des le gumes et des fruits,c’est bon pour la sante? 6如果您想拥有健康，请不要喝白酒。Si vous volez avoir une bonne sante , ne buvez pas d’alcool 1节假日人们不工作。On ne travaille pas les jours de fe?te 2 我对我的工作感到满意。Je suis content de mon travail. 3 我们有两周的休假。 Nous avons quinze jours de conge 4工人们每月加一次班。Les ouvriers font des heures supple mentaires une fois par mois 5我想在八月份度假. Je veux bien prendre mes vacances en aou?t 6一月一日罗十一家去度假。Le L er janvier ,les Roche vont partir en Vacances. 1 我们这里刮风还时常下雨il fait du vent et il pleut souvent chez vous 2雨要一直要下到周末。Il pleut jusqu’a la fin de la semaine . 3我们在巴黎待一个星期。Nous restons a Paris pour une semaine 4 我很匆忙，因为我迟到了。Je suis presse ,parce que je suis en retard. 5,天气晴朗，我们去散步。Il fait beau,on va faire une promenade. 6十分钟过后，游客又来了，我不知道为什么？ Dix minutes apre s,le voyageur revient ,je ne sais pas pourquoi. 1罗氏先生起得早睡得晚。Monsieur Roche se le ve to?t et se couche tard 2我们去海边度假，我喜欢沐海水浴。Nous allons passer nos vacances a la mer . J’aime me baigner dans la mer. 3,他很喜欢露营，很喜欢乡间散步。Il adore faire du camping et se promenerer en pleine campagen. 4,马克在国外工作，索菲和他生活在一起。Macro travaille a l’e?tranger, Sophie vit avec lui. 5喝咖啡的时间已过，开始工作吧。La pause-cafe? est fini ,allez ,au travail. 6孩子不停的哭，因为他受到父母的训斥。L’enfant n’arre?te? pas de plurer,parce qu’il est gronde? pas ses parents 1这条马路很嘈杂。Cette rue est bruyante. 2这做城市有许多绿地。Dans cette ville,il y a beaucoup d’espaces verts.

EXCEL宏编程简明教程(有实例),

Excel宏编程简明教程 一)、宏学习 首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏： 点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二)、基本概念 为了学习Excel中的宏，我们需要先了解以下一些基本概念。 1、工作簿： Workbooks、Workbook、ActiveWorkbook、ThisWorkbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic 代码正在运行的工作簿。 在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks (1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。 2、工作表： Worksheets、Worksheet、ActiveSheet

Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。 可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets (1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置： 第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是： 在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表： Chart、Charts、ChartObject、ChartObjects、ActiveChart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。 Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index)可引用单个Chart 图表，其中index是该图表工作表的索引号或名称；如Charts (1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts (1)是工作簿中第一个（最左边的）图表工作表； Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。

Excelvba入门教学教程

VBA 入门系列讲座 1.1 VBA 是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动 化的应用程序，人们不得不学习一种不同的自动化语言.例如:可以用excel 的宏语 言来使excel 自动化，使用word BASIC 使word 自动化，等等.微软决定让它开发出 来的应用程序共享一种通用的自动化语言 -------------------------- V isual Basic For Application （VBA ）,可以认为VBA 是非常流行的应用程序开发语言 VASUAL BASIC 的子集.实际上VBA 是”寄生于”VB 应用程序的版本.VBA 和VB 的区别包 括如下几个方面： VB 是设计用于创建标准的应用程序，而VBA 是使已有的应用程序（excel 等）自动化 VB 具有自己的开发环境，而VBA 必须寄生于已有的应用程序. 要运行VB 开发的应用程序，用户不必安装VB,因为VB 开发出的应用程 序是 可执行文件（*.EXE ）,而VBA 开发的程序必须依赖于它的”父”应用 程序， 例如excel. 尽管存在这些不同,VBA 和VB 在结构上仍然十分相似.事实上,如果你已经了 解了 VB,会发现学习VBA 非常快.相应的，学完VBA 会给学习VB 打下坚实的基 础.而且，当学会在excel 中用VBA 创建解决方案后，即已具备在 word access OUTLOOK FOX PRO P ROWER POINT 中用VBA 创建解决方案的大部分知识. VBA 一个关键特征是你所学的知识在微软的一些产品中可以相互转化 . VBA 可以称作excel 的“遥控器”. VBA 究竟是什么？更确切地讲，它是一种自动化语言，它可以使常用的程序自动 化,可以创建自定义的解决方案. 此外，如果你愿意，还可以将excel 用做开发平台实现应用程序. 1.2 Excel 环境中基于应用程序自动化的优点 也许你想知道VBA 可以干什么？使用VBA 可以实现的功能包括： 使重复的任务自动化. 自定义excel 工具栏,菜单和界面. 简化模板的使用. 自定义exceI 使其成为开发平台. 创建报表. 对数据进行复杂的操作和分析. 1. 2. 3. 1. 2. 3. 4. 5. 6.

法语入门学习心得体会

法语入门学习心得体会 同学可以在自己学习的过程中摸索出一套适合自己的学习方法。我想说的学法语cestfaciletjelaimbeaucoup.法语是简单的爱法语。 此过程中逐步地对这门“世界上最美丽的语言”学习在感性认识的基础上摸索出了一些理性认识。下面我想针对初学法语的同学，已经学习了法语十几年。结合自己的学习和教学经验，谈一下在法语入门的过程中如何进行高效学习的一些感受。 认为兴趣始终是人类学习任何一门知识的原动力。对于大多数把法语做为二外来学习的同学而言，首先。估计一开始总是怀着满腔热情和雄心壮志进入到语音阶段的学习的大多数同学认为这门语言和英语如此相象，自己有了良好的英语基础肯定会事半功倍的但可能有为数不少的同学在语音阶段还未结束之时就开始打退堂鼓了正因为自己对法语有先入为主的印象，法语和英语开始了拉锯战，而很多同学在两种语言的交锋中无所适从，于是导致学习兴趣下降，甚至于有人为了不影响自己的英语学习，而放弃了法语学习。实际上学习如何一门语言，初学者可能都会把新学的语言和自己的母语或自己较为熟悉的另一门外语对比来学，这实际上是很正常的现象，但在这个过程中如何调整自己的学习状态以适应新的知识的吸收和消化才是同学更应该关注的问题。学习兴趣的下降实际上是随同着新知识难度的提升以及自己学习时间布置的不合理等诸多因素造成的所以在初学阶段应该特别注意坚持自己的学习兴趣，学习语音阶段的过程中和刚接触到系统语法的过程中，应该让自己尽可能多地感受法语气氛，比方说可以通过看法语电影，听法语歌曲，上相关网站等来让自己更多地体会到一门活的语言，从而感觉到学习的意义。生活中也可以学会做个有心人，留心诸如法国时尚，法国艺术，甚至于是法国饮食方面的知识。其实包括上“家乐福”超市你都应该能吸收到相关的法语知识。实际上同学在感觉到法语是触手可及的过程中也是从侧面了解和掌握法语的最佳手段，也只有这样同学才干坚持自己的学习兴趣，而不形成“越学越厌－越厌越憎－越憎越难－越难越厌”恶性循环中去。同时也只有这样才干让学习达到低投入，高产出”效果。 认为在初学法语的阶段，第二。同学要正确处置好法语和英语的关系。正如我第一点中所谈到那样，大多数同学选择法语是因为觉得法语和英语有很多相似的地方，但正是因为这个印象，接下来的学习过程中，一旦碰到法语和英语不相似的地方，同学可能会固守在英语的思维上，而实际上这会给初学者带来很大的困惑。所以我建议同学在刚开始学法语的时候，可以稍微将英语放一放，不是说绝对将二者对立起来，而是强调这毕竟是两门不同的语言，存在不同点是必定的应该从一开始就习惯接受这些不同点，并且把学习的重点放在这些不同点上，只有这样同学才干逐步适应法语的思维。而实际上随着学习的深入，同学会慢慢发现实际上这两种语言还是有很多共同点的已经学会如何区分这两种语言的基础之上，再逐渐摸索这两种语言的共同点，这会同时有益于这两种语言的学习。通过实践证明，如果真正将法语学习融汇贯通，这个过程肯定会对同学的英语学习有很大的

geomagicstudio教程

1、元素认识 每一种某一领域的专业软件中都有其专业的特殊术语、元素等。逆向中最常见就是点云、多边形等。 不同阶段的对应的元素为下一阶段作准备。现在的软件层次性都很好，一个阶段一个阶段的往下走，比如逆向的一般过程在软件中就有体现。在一个阶段中对应相应的操作。那么逆向的一般过程是怎么样的了？ 下面就是GEOMAGIC操作一般流程。这里要说的是它与IMAGEWARE、CATIA构面过程有所不同GEOMAGIC一般为检测（轮廓）----PATCH----GRIDS----SURIMAGEWARE、CATIA一般为从点云提取线再铺面与我们常规的曲面操作有所相同，不同的时它生成面的命令有点作为参照。GEOMAGIC这种生成曲面的过程个人认为如果是简单的模型还可以比较顺，但如是较复杂的模型那就需要耐心了。 看了上面的介绍，不知大家有没有一个大概的认识。如果没有我们先不管接下来往下看，结合例子，再回头看一下，学完全书再看一看以前不懂的。下面我们讲基本的一些操作，如果你用过AUTOCAD，PROE，UG等任一个类似的软件你就会发现在操作中我们打交道最多为视图操作、选择操作、管理面板操作还有就是命令了。先看一看管理面板操作 下面是视图操作 再接下来为选择操作 三大基本操作讲完了。下面是操作实例讲解与例子文档 实例演练Demo Head - Point 第二章点云阶段 希望通过系统的讲解，大家能对GEOMAGICS有个基本的认识，会基本的操作！ 二、常用命令与操作

最后就是Wrap（裹覆）后，帮助里这样写到想象成把一将塑料薄膜裹在点云上，这时就能大概看出是个什么样的形状，就有这一步就可以进入到下一步，也是流程中比较重要的一个阶段，即多边形阶段！ 第三章拼接与合并的命令讲解 点云的拼齐（拼接与对齐）（Registration）与合并（Merge），对Registration我是这么理解的，很多扫描仪自带的软件中都有这一项，且也叫Registration，我听他们培训时叫注册，当然也不错，字典中就有这么一个常见意思。我更愿意接受它为拼齐。 Registrationistheprocessofaligningtwoormorescansthatrepresentdifferentportio nsofthesamephysicalobject.Whiletheregistrationcommandsaretypicallyused in Point Phase, they are also available to align polygon objects.基本操作流程 有这几个功能就够了，对于合并的理解类于PS中的图层的概念，有了图层的概念，就好理解，每天在模型树中，要选定一个才可以操作的思路了！当然不等同于图层，相信用过其它软件再用这个没什么大问题。 第四章多边形阶段-----初级 分初级与高级，初级是一些常用命令，高级是一些有用的命令！终于进行这一章了，扫描完了，点处理过了，下面干什么，做多边形了，即三个点形成一个面，这个玩分析的人应该都知道！这种多边形的形成更有利于我们进行操作来进一步完善扫描的不足。老样子，先来个 流程图，我喜欢这种方式，让你一下子在总体上进行把握，而不要一开始就执著于每个命令。 其实有些命令你只要默认的设置就可以了，当然有些还要调调，不过这种情况不多！首先我们要做的就是少的补，多的去掉，先介绍FILL命令 多的去，不顺的地方也要处理，命令是相对的，得到一种效果，另一种效果就不能得到了！所以只有适合你的，没有绝对！

Excel VBA实例教程 #022：选择工作表的方法

在VBA中需要激活或者选择某个工作表时使用Select方法或Activate方法，如下面的代码所示。 1.Sub SelectSh() 2. Worksheets("Sheet2").Select 3.End Sub 4.Sub ActivateSh() 5. Worksheets("Sheet2").Activate 6.End Sub 代码解析： SelectSh过程使用Select方法选择“Sheet2”工作表，而ActivateSh过程则使用Activate 方法选择“Sheet2”工作表，从表面看两者的作用是相同的，但是如果“Sheet2”工作表是隐藏的，Activate方法可以正常运行，而Select方法将会出现错误，如图1所示。 图 1 Select方法无效提示 如果需要同时选中工作簿中的所有工作表，则只能使用Select方法而不能使用Activate 方法，如下面的代码所示。 1.Sub SelectShs() 2. Dim Shs As Worksheet 3. For Each Shs In Worksheets 4. Shs.Select False 5. Next 6.End Sub 7.Sub SelectSheets() 8. Worksheets.Select 9.End Sub 10.Sub ArraySheets() 11. Worksheets(Array(1, 2, 3)).Select

12.End Sub 代码解析： SelectShs过程遍历工作表并使用带参数的Select方法选中所有工作表。应用于Worksheet对象的Select方法的语法如下： Select(Replace) 参数Replace是可选的。如果该值为True，则用指定对象替代当前选定对象。如果该值为False，则延伸当前选定对象以包括任何以前选定的对象。 SelectSheets过程使用Worksheets集合的Select方法选中集合中所有的对象。 ArraySheets过程使用Array 函数返回工作簿中的前三张工作表并使用Worksheets集合的Select方法选中前三张工作表。

Excel VBA基础教程两篇

Excel VBA基础教程两篇 篇一：Excel VBA基础教程 Excel VBA教程是把VB编程应用在Excel平台的一套实用教程，Excel +VBA双剑合壁，他可以帮助我们实现Excel原本实现不了的功能，可以让工作变得更高效，可以让操作变得变方便，可以把重复性的操作变得更有趣，随心所欲的定制自己的工作平台，还可以针对企业来开发各种系统如，人事管理系统、仓库系统、进存销系统等，对于经常要处理大量数据工作的朋友，学会了这套VBA教程你的工作将游刃有余。 标题 Excel VBA基础教程 Excel VBA基础教程 第一章：Excel VBA基础知识 1-1、Excel VBA教程简介 1-2、宏在工作中的运用

1-3、Excel VBA基础 1-4、Excel VBA窗口介绍 1-5、Excel VBA代码编写规则1-6、对象 1-7、属性 1-8、方法 1-9、常量与变量 1-10、数据类型 1-11、判断语句之IF 1-12、判断语句IF之多条件1-12B、If条件判断小结

1-13、判断语句之SELECT 1-14、循环语句之DO...LOOP 1-15、循环语句之DO...LOOP实例 1-16、循环语句之DO WHILE...LOOP 1-17、循环语句之DO UNTIL...LOOP 1-18、循环语句之WHILE与UNTIL位置变化1-18B、DO...LOOP 语法小结 1-19、.循环语句之FOR EACH...NEXT 1-20、循环语句之FOX...NEXT 1-20B、For...NEXT小结与实例 1-21、用语句FOR...NEXT制作九九乘法表

Geomagic系列教程 曲面的建立

Studio Tutorial Surface Creation - Fender Objective:Learn how to create a NURBS surface on a polygonal model and perform some basic editing to reorganize the patch layout. Files:\…\Geomagic Studio 6\TutorialData\rear_fender.wrp 1. Open rear_fender.wrp.This is scan data of a car fender containing about 80,000 polygons. 2.Change to the Front View. Use Ctrl+D to fit the view to screen. 3.Before creating patch boundaries, it is recommended that the user first define entities called Contour Lines, which can be specified manually or detected automatically by the software based on the model’s curvature. Contour Lines are used to guide the construction of surface patches and allow for easy editing and organization of the patch layout. 4. Select Detect Curvature from the Patches menu. This function will automatically highlight Contour Lines on the model based on surface curvature. 5. Toggle on the Auto Estimate checkbox. This will allow the software to estimate how complex the curvature is on this model and display the necessary number of contour