autocad二次开发(VBA)就这么简单

woaishuijia

运行autocad，创建一个新文件，Alt+F11（或者在菜单栏点“工具”→“宏”→“Visual Basic 编辑器”），在新出现的窗口菜单栏点“插入”→“模块”，输入下面的代码：

Sub 我的第一个程序()
    Dim 直线1 As AcadLine
4 O) I: Q' l; P& A    Dim 起点(2) As Double
    Dim 端点(2) As Double
   
    起点(0) = 10
- c/ B3 f% `8 h6 c. I  p8 V9 b    起点(1) = 20
5 J8 e- H9 G3 l    端点(0) = 80
    端点(1) = 100
   
6 G0 w/ W$ P1 E% f2 l' H$ f    Set 直线1 = ThisDrawing.ModelSpace.AddLine(起点, 端点)
End Sub
" z, O& l& r8 N) C  C
* ^6 F2 `+ F# q# e' h( \检查一下，确信没有问题后按F5
回到autocad窗口，看见了吗？一条直线，起点坐标(10,20)，端点坐标(80,100)

这个程序的第一行里，“SUB”和“()”是必须有的（人家微软就是这么规定的，我也没办法），“我的第一个程序”是这个程序的名字（如果你不喜欢也可以改个别的名字，我无所谓）。
& F; W  i) u: l  i第二行里，“Dim”是定义一个变量，“直线1”是要画的直线的名字（随便改，中英文都行），后面的英文必须有，意思是说：这是一条autocad直线。
第三行里，“起点(2)”是一个数组（因为我要用它给直线赋予起点，所以取了个直观的名字，又因为点的坐标是三维的，所以必须用能容纳三个数据的数组），后面的英文意思是“这个数据是双精度类型”。
% }6 r5 B0 N8 h% X% O" N3 }) G4 F第四行和第三行差不多，是用来给直线赋予端点的。
; \: l: b+ _2 A! T9 o- t1 O# O第五行和第六行是分别赋值给起点的x和y坐标（因为起点的z坐标是0，而定义这个数组的时候，默认数据就是(0,0,0)，所以就不用管z坐标了）。
第七行、第八行赋值给端点x和y坐标。
第九行画直线，在“当前文件”的“模型空间”“画直线（按起点和端点）”。
第十行，完事了。

6 I) ]/ F$ H1 B1 ?7 ]" s) m! q" D有的网友一看见英文，头就会变大。别怕，如果你是用“复制/粘贴”把这段代码拷贝到VB编辑器里，就不会知道autocad有多么友善。试试用键盘把这段代码输入进去，你会发现，每到关键时刻，VBA就会提醒你下面该做什么了。
别听旁人瞎说autocad这不行、那不行，那是因为autocad的两个万能命令（一个是VBA，一个是lisp）你还没学会。这两个命令你只要学会一个（不用太精通，差不多就行），就没人敢说你不是高手。

aishengchen

赞成楼主的观点！学习的敌人就是畏惧！

daguan8

看来真的是比较容易，该找本书看目的地。

cqjiang

既然楼主说这么容易，那我就试试吧

weizhou737

增加我的学习信心,谢谢你啊,楼主

730514shq

为了更好的利用CAD工具，听从楼主的意见。学习一下干净二次开发知识。

woaishuijia

既然有网友对这个话题感兴趣，就再画个圆玩玩。

Sub 画个圆玩玩()
* c1 [6 Z/ d! \$ r7 T& O    Dim 我真的是圆吗 As AcadCircle
- ~9 K& ~- Y7 R3 U3 p6 ^5 v8 n! v5 J1 q    Dim 我才是圆心呵呵(2) As Double
    Dim 我是半径我愿意 As Double
' y1 F4 {5 D* b$ t2 w    我才是圆心呵呵(0) = 27.5555555555556
: y0 l. f7 R" w, u0 C# H/ U    我才是圆心呵呵(1) = 69.12345678798
6 j0 m# Z, S3 I4 I* U2 i: G    我是半径我愿意 = 38
    Set 我真的是圆吗 = ThisDrawing.ModelSpace.AddCircle(我才是圆心呵呵, 我是半径我愿意)
End Sub

用键盘输入时，第一行输入完程序名直接按回车，不用输入“（）”，VBA会替你把括号和最后一行填好的。其它的关键字也用不着每个字母都用键盘敲，自己试。
' h, k4 y4 f$ h. I
[ 本帖最后由 woaishuijia 于 2007-1-9 10:20 编辑 ]

ch8948203

还是不会哦
/ W9 K: K2 O2 H; J* K郁闷,有高手教教我吗/?想学学.

swidge

我想学习一下cad的基本的二次开发，不知道哪位高手能交一下我啊
- a! m' A8 _  M; O, n& l我的qq是125720096，谢谢啦

haodongdong

谢谢搂主，真的想在这方面学的深刻一点

woaishuijia

有了autocad基础，学习它的VBA并不难，关键是要找准突破口。下面是根据在下的学习经验编写的一个自认为有代表性的简单程序，只要你按步骤做下来，就会发现你已经进入了VBA的天地。
( k" U7 q2 I' Z% r    首先，在autocad上创建一个新文件，按Alt+F11进入Visual Basic编辑器。
    下面这项工作是我强烈建议你做的：在菜单栏点“工具”→“选项”，在选项窗口选中“要求变量声明”--这可以减少我们的低级错误。
5 S) ]; b: h# K9 D    下面开始编写我们的第一个VBA程序：让VBA在autocad的模型空间按我们指定的位置画一条直线。
" v" |' @7 X; T! d# M9 @0 @    在编辑器的菜单栏点“插入”→“模块”，屏幕上出现了“模块1(代码)”窗口。在代码窗口的第一行是“Option Explicit”--如果你按我的建议在选项窗口选中了“要求变量声明”的话--在它的下面输入“sub A”，回车。窗口出现下面的代码：
, l( h0 S* Q( a0 [) e6 l7 U( ~3 Z- ?
Sub A()
) z5 s8 @0 {) ^; I' H1 e' L+ U% r
4 ^0 u, W: N+ K$ f! v; T' KEnd Sub

' x  c, J0 ^3 O7 A, o) X    “A”是这个宏的名字。你可以按自己的喜好随便给它取个什么名字，但必须是唯一的，因为它是这段程序的标志。取名字时最好不要用汉字，因为autocad的命令行不支持汉字参数，如果用了汉字，每次运行这段程序的时候就必须使用“宏”对话框，而不能使用命令行。
+ N7 o+ h  H7 M: T8 P, @    在两行代码中间的空行键入“thisdrawing.”，屏幕上会出现一个提示窗口--后面的代码可以在这里面选择，而不是所有文本都靠键盘输入--继续键入“m”，提示窗口高亮显示的是“ModelSpace”--我们要的就是它。继续键入“.”，“ModelSpace.”自动进入了代码行，并且出现了一个新的提示窗口；继续键入“addlin”，提示窗口高亮显示的是“AddLine”，键入空格，它就自动上去了，而屏幕上又出现了一个提示行“AddLine(startpoint,endpoint)as acadline”，其中“startpoint”用粗体显示，这是在提示我们给出直线的起点。继续按下面的顺序键入字符“thisdrawing.ut.getp,thisdrawing.ut.getp”--VBA会像前面一样把我们的代码补全--再敲一下空格，整段代码就是现在这个样子：
4 F5 w; ?5 o1 Y% i6 @7 d
Sub A()
4 |3 t7 B# w8 A, ]+ P    ThisDrawing.ModelSpace.AddLine ThisDrawing.Utility.GetPoint, ThisDrawing.Utility.GetPoint
End Sub

6 J& V* B$ e9 `3 d  o    这行代码中，“ThisDrawing.ModelSpace.AddLine”的意思是：在“当前文档”的“模型空间”“画直线”。这个画直线方法需要两个必不可少的参数，一个是起点三维坐标，另一个是端点三维坐标。在这行里，起、端点的坐标是由后面两部分代码提供的--“ThisDrawing.Utility.GetPoint”的意思是：在“当前文档”上“由用户输入”而“得到点坐标”。
    我们的第一个宏已经完成了，现在回到autocad窗口运行一下：
    在命令行键入“-vbarun”，回车，再键入"a"，回车。光标已经变成了十字线，autocad在等着我们指定点。在屏幕上不同的位置点两下(也可以在命令行输入坐标)，一条直线就画好了。
3 n; w$ Z6 B- O% ~; L    我们的第一个程序编写成功。
0 T7 a) j( Q, ^+ M- S  T; F    不过别高兴得太早，这段程序有个BUG：再运行一次程序，指定第一个点后别指定第二个点，而是按“Esc”键，会跳出来一个窗口告诉我们程序有错误。
9 f7 T$ X' q" p) _7 |    按“结束”关闭这个窗口，回到VBA编辑器，在程序中添加两行代码，让它变成现在这个样子。
. X3 V( S7 `. {/ l6 }  e
Sub A()
On Error GoTo 10
    ThisDrawing.ModelSpace.AddLine ThisDrawing.Utility.GetPoint, ThisDrawing.Utility.GetPoint
10
4 A" T  {' L. z% ~  U, ?End Sub

' z" u! `( c: r/ n, X2 b    这两行新增的代码告诉计算机“在出错时”“转向执行”“行号为10”的程序行。这个程序里“行号为10”的程序行是空行，程序就会继续向下执行“End Sub”结束程序。
    再来告诉朋友们一个小技巧。刚才在键入代码时要键入三次“thisdrawing”，太麻烦了。现在把中间这行画直线的程序删掉，在原位置按照下面的方法重新输入：
- ~, Y% I! j# _* w    键入“with thisdrawing”，两次回车，键入“end with”。在中间的空行按下面的顺序键入“.m.addlin .ut.getp,.ut.getp”，空格。代码现在是这个样子：
+ U8 E; g& D' j! v( J+ N9 N
: w$ D* \& m* v  L+ e. ySub A()
) n6 x" D. E3 v! `% _On Error GoTo 10
; p: s) @1 A( {! ^* {" C: u    With ThisDrawing
4 Y2 S! X2 c$ `3 Z  y& j        .ModelSpace.AddLine .Utility.GetPoint, .Utility.GetPoint
8 u0 z+ n, `+ `( j5 g    End With
- \5 Z# U# `6 }10
End Sub
4 h6 Q' l1 W1 i$ w. D/ D
( j3 f- T5 L! V) ]2 C$ d+ _    在“With”和“End With”两行之间的所有代码可以省掉“ThisDrawing”，键入的工作量减少了很多。
# B/ G+ `' K! p    程序是能用了，但还不够完美。比如说：指定第二个点时看不到第一个点在哪里；命令行里没有提示，不知道下一步要做什么。
    现在来改进一下程序，让它在指定第二个点时从第一个点处引出一条线，像autocad画线时一样，还要在命令行加上提示内容。
    在上面的程序里，两个点的位置只有画线命令知道，我们并不知道。如果要在程序中不止一次使用这个点的坐标，就必须把这个坐标放到一个地方存放起来，用到的时候就去取。
    在上面的程序中补充、修改一些代码，让它变成这个样子：

Sub A()
On Error GoTo 10
; i* i& K0 ^! K    Dim B As Variant
9 L" i: b* j$ p    With ThisDrawing
* e3 z4 G+ P/ D4 _+ N$ x5 _        B = .Utility.GetPoint(, vbCrLf & "指定起点：")
- T$ x1 s4 c6 d8 A        .ModelSpace.AddLine B, .Utility.GetPoint(B, vbCrLf & "指定端点：")
( C  y# s3 a) Q, l3 v" b    End With
10
! e4 F" I% }6 f) R7 R5 B1 uEnd Sub
1 F% J- n/ n6 Y+ o
2 v5 S6 R5 ^. P  Z) V. j    新增加的第三行意思是：定义一个“变体”类型(相当于万能)变量，名字叫“B”--其实这就是一个存放数据的地址。
- {: p" Y. A8 B4 O" u, N5 c    第五行的意思是把“当前文档”上“由用户输入”而“得到点的三维坐标”存放到“B”。有一个变化，就是“GetPoint”(得到点坐标)的后面增加了一对括号，里面是参数。该方法共有两个参数：第一个参数是一个三维坐标，第二个参数是命令行提示符。两个参数都是可省略的，在前面的程序中这两个参数就被省略了。
# f) U( t8 d4 _4 J    第六行中，画直线方法的起点坐标直接用“B”，端点坐标还是使用得到点坐标方法，和前面不同的是得到点坐标方法的第一个参数被指定为“B”，它的作用是在“B”点和十字光标间显示一条提示性的直线。
    字符串要用""括起来，让计算机知道这是一串字符而不是别的东西。字符串前面的“vbCrLf &”是这个字符串的另一部分。其中“vbCrLf”是一个VB常数，相当于“回车+换行”；“&”是连接符，用来把两个部分连接起来(也可以用“+”号)。提示符中有了“vbCrLf &”，该字符串就会在命令行中以单独的一行出现；如果把它去掉，提示符就会和“命令：”在同一行里显示。
( d+ D5 ?7 c! f% E6 j3 y    在这段程序里，我们用到了错误陷阱、定义变量、赋值语句、操作autocad对象画直线的方法和一个VB常数。下面再把这个程序扩展一下，学习更多的VB语句和对象操作方法。
    按用户的指令决定是否画一个圆，这个圆以刚才画的直线中点为圆心、以直线长度为直径。
    下面是修改后的代码：

Sub A()
On Error GoTo 10
' G) N1 K# q! C0 ?2 k    Dim B As Variant '定义一个变体类型变量，用于存放直线起点坐标，被赋值后变为数组
. }8 U. F1 S3 d7 h2 i3 Y    Dim C As AcadLine '定义一个Acad直线对象类型变量，用于存放直线对象
7 t$ h- M( V% l8 X5 D7 Q    Dim D As Variant '定义一个变体类型变量，用于存放直线端点坐标，被赋值后变为数组
    Dim E As String '定义一个字符串类型变量，用于接收用户键盘输入的参数
    Dim F(2) As Double '定义一个双精度类型数组，用于存放圆心三维坐标
    Dim R As Double '定义一个双精度类型变量，用于存放圆的半径
% U& e3 K' W  J7 u3 s   
    With ThisDrawing
* h' B7 x" I: ?        B = .Utility.GetPoint(, vbCrLf + "指定起点：") '由用户指定一个点的位置，将坐标赋值给B
        Set C = .ModelSpace.AddLine(B, .Utility.GetPoint(B, vbCrLf + "指定端点：")) '从上一个点出发，由用户指定另一个点的位置，在两点间画一条直线，将此直线赋值给C
3 t9 H2 u+ \  I5 Q: Q/ m# p! b& f        D = C.EndPoint '将直线C的端点坐标赋值给D
        .Utility.InitializeUserInput 0, "Y N" '规定用户输入Y或N关键字，可以接受直接按回车键或空格键做为默认输入
        E = .Utility.GetKeyword(vbCrLf & "是否画圆[是(Y)/否(N)]<Y>:") '得到用户输入的关键字并赋值给E
        If E = "Y" Or E = "" Then '如果用户输入的是Y或直接按的回车或空格，则执行下面画圆的代码，否则跳过下面五行代码
; @+ i7 ]7 f$ q1 \2 v4 X$ ~            F(0) = (B(0) + D(0)) / 2 '这三行是计算圆心即直线中点坐标，取直线起点X坐标和端点X坐标的平均值赋值给圆心的X坐标变量
            F(1) = (B(1) + D(1)) / 2 '取直线起点Y坐标和端点Y坐标的平均值赋值给圆心的Y坐标变量
9 |  t8 A! N( r5 h            F(2) = (B(2) + D(2)) / 2 '取直线起点Z坐标和端点Z坐标的平均值赋值给圆心的Z坐标变量
( c  ~* J+ B& I. t! B) P            R = Sqr((D(0) - B(0)) ^ 2 + (D(1) - B(1)) ^ 2 + (D(2) - B(2)) ^ 2) / 2 '用勾股定理计算圆的半径
            .ModelSpace.AddCircle F, R '在当前文档的模型空间画圆，以F为圆心，R为半径
        End If
% c* b# X! E' H    End With
8 R! e% y1 R, R2 X! O  g/ X1 V10
2 ]; @& o6 {0 n. P6 ]End Sub

0 a9 g$ x- t1 M! A# ~/ B    这段程序和前面程序的主要区别有：
) w8 y) T" X" ^7 p5 C1、使用了注释语句。单引号后面的文字在程序运行时不被执行，仅起到对编程者的提示作用。这在编制大一点的程序时是很有用的，否则过段时间你自己都会忘记当初是怎么编的了。
2、定义变量时，同样是三维坐标，B和D被定义为变体类型，F被定义为双精度数组。这是因为B和D是由方法或对象的属性直接用“点”赋值的，B和D得到数据后自动变为数组；F是由我们对三维坐标分别运算后赋值，只能用数组。
3、“Set C =...."这行，对直线赋值时，参数用括号括起来了。在前面的程序中，直线只是画了出来，并没有赋值给某个变量(没有=号)，参数就不能用括号；现在它被赋值给一个变量了，参数要括起来。这是语法。
- A# l- L1 ^2 H7 j9 k+ H; h4、“InitializeUserInput”方法有两个参数，第二个参数是关键字列表；第一个参数是对输入方式的限制，这里用了0，可以接受直接按回车键或空格键做为默认输入，但默认输入的是空字符串，而不是关键字列表中的一个。
( _0 _+ s& b; X' M5、“If...Then...End If”使用了条件转移语句。具体用法可以参见VB资料。
6 Q! Z& _' w9 G6 ^    弄懂了这段程序，其实你对VBA已经初窥门径了。当然，VB语法和autocad对象远不止这些，但也都大同小异，学会了这些，再学其它的就容易了，就像我们学会了WORD，再学EXCEL就很容易一样。不要被VBA帮助文件那浩如烟海的资料所吓倒，其实那里面绝大部分东西用法都差不多。学会了基本的几个，再浏览一下帮助文件，知道这里面都有什么东西，用到的时候现查都来得及。
    上传一个《Visual Basic 语言参考-函数速查》，希望对学习VBA的朋友有用。

[ 本帖最后由 woaishuijia 于 2007-1-14 16:17 编辑 ]

andy_syl

偶也CAD几年了啊,对这是一巧不通啊,真是惭愧啊,楼主能指点下吗?万分感谢啊

huangma

非常感谢，学习学习，想完了做几个程序试试

shaoshuai968

我的宏里怎么一片空白啊  没有Visual Basic 编辑器

woaishuijia

可能安装autocad时用的是“简单”模式，没有选择安装VBA编辑器吧？用安装盘添加试试。

honza

真的!速度會讓你感動。

hys623723

看来论坛里面是强手如云啊，以前我还自认为自己的水准还可以的，现在看来差远了！！

maoyangmy

能不能开辟一个二次开发的专栏?

daguan8

楼主真是有心，深入浅出地引导大家对VBA和LISP的兴趣，不久，我们坛子一定会出现好多高手了，这样也就能提高我们的工作效率，远一点地说就能提高我们国民的水平。多有楼主这样的人，我们国家早晚都会成为世界的强国。

冷雨秋

vba对我来说实在是很难，难的是不知道从哪里下手啊？
请高手指点~

spy0028

由简到难嘛

eric.bo

嘿嘿,偶也正在学习.如果开一个二次开发的子板块就好了.

nyh2000

为什么我打开以后插入菜单下为灰色，不能使用呢？

WXJLDH

题目不错,我看不简单.要达到实际应用更不简单!

而软件开发更注重的应该是实际应用!

天龙八部

嘻嘻哈哈，现在是.NET的时代了，VB,C++都已经升级了，VISUAL STUDIO 的开发环境是非常棒的