运行autocad，创建一个新文件，Alt+F11（或者在菜单栏点“工具”→“宏”→“Visual Basic 编辑器”），在新出现的窗口菜单栏点“插入”→“模块”，输入下面的代码：
0 P6 I6 Z& m! d2 p. A& ~# f# }+ a6 T2 l( O+ j
Sub 我的第一个程序()
+ v- E+ H" Q. G( q; p Dim 直线1 As AcadLine
& v7 V+ q a. a. y* J2 G. ]0 x Dim 起点(2) As Double9 ~& g8 ?) L, T2 h' V0 V7 [
Dim 端点(2) As Double
+ D' X% t+ @+ K" [2 N1 E, q * q2 v0 K/ G: d0 v
起点(0) = 107 H8 E W, ]6 ], z3 u$ u/ R
起点(1) = 20( p2 Q) K1 L$ ~2 C/ l6 C4 \
端点(0) = 80, c. x0 ~2 y6 P& g* Z
端点(1) = 100- Q1 j+ e; ]+ [
! v/ @! |+ r- A7 n# e
Set 直线1 = ThisDrawing.ModelSpace.AddLine(起点, 端点)8 [. y& s. |4 w1 D0 N& ?
End Sub; f8 }. E5 {( A7 w
& C- Y1 M4 H2 f+ ^
检查一下，确信没有问题后按F5
3 G, v% F3 l6 o% o回到autocad窗口，看见了吗？一条直线，起点坐标(10,20)，端点坐标(80,100), ^* o7 a% s9 o% g% W
9 I# y! h0 ~$ l0 [- y这个程序的第一行里，“SUB”和“()”是必须有的（人家微软就是这么规定的，我也没办法），“我的第一个程序”是这个程序的名字（如果你不喜欢也可以改个别的名字，我无所谓）。$ d9 L4 V+ ?: T& l6 P. E3 ~
第二行里，“Dim”是定义一个变量，“直线1”是要画的直线的名字（随便改，中英文都行），后面的英文必须有，意思是说：这是一条autocad直线。0 O6 x: G# e) a! m+ N
第三行里，“起点(2)”是一个数组（因为我要用它给直线赋予起点，所以取了个直观的名字，又因为点的坐标是三维的，所以必须用能容纳三个数据的数组），后面的英文意思是“这个数据是双精度类型”。, V5 E& Y3 L; k% A3 t
第四行和第三行差不多，是用来给直线赋予端点的。
% {( g$ a! ?; v, }: \% [$ i第五行和第六行是分别赋值给起点的x和y坐标（因为起点的z坐标是0，而定义这个数组的时候，默认数据就是(0,0,0)，所以就不用管z坐标了）。, w. q2 f+ N" E# @$ H T7 M2 l
第七行、第八行赋值给端点x和y坐标。- {7 r) [5 y5 |5 u9 f8 N1 e4 e
第九行画直线，在“当前文件”的“模型空间”“画直线（按起点和端点）”。, j. r: N4 @3 R" E* ~
第十行，完事了。
4 C9 S) g) M' p2 V5 i1 v5 J% ~
. P1 x" _4 l. G2 D/ w" p. X有的网友一看见英文，头就会变大。别怕，如果你是用“复制/粘贴”把这段代码拷贝到VB编辑器里，就不会知道autocad有多么友善。试试用键盘把这段代码输入进去，你会发现，每到关键时刻，VBA就会提醒你下面该做什么了。( f3 ^% v. f2 S$ L8 h5 ]
别听旁人瞎说autocad这不行、那不行，那是因为autocad的两个万能命令（一个是VBA，一个是lisp）你还没学会。这两个命令你只要学会一个（不用太精通，差不多就行），就没人敢说你不是高手。 |
发表于 2008-8-6 23:28
发表于 2008-8-7 08:11
