[教学]：VBA和AutoLISP有何不同，两者如何转换

灯火

问：VBA和AutoLISP有何不同，两者如何转换？

答：如果你已经熟知AutoLISP并且想学习VBA，通过把VBA和AutoLISP表达式联系起来的方法就可以容易地做到。以下就是一个关于两种语言的比较。由于大量的AutoLISP代码可以利用，转换一个已有的AutoLISP代码段为VBA远比重新编制VBA代码来得容易。如果两者的变量名字保持一致，那么比较两者的代码也就变得容易了。

点：

在AutoLISP中，你用(setq)函数来设置一个点。下面这一行把点(0,0,0)分配给PT1变量。(0,0,0)代表这个点位置的x,y,z坐标。

(setq PT1 '(0 0 0))

在VBA中，这个操作需要更多的代码行来完成：

Dim PT1(0 To 2) As Double

PT1(0) = 0#

PT1(1) = 0#

PT1(2) = 0#

在VBA中，你使用Dim语句来声明变量。点总是保存在一个三维双精度值数组中。一个数组就是一个变量列表。在数组中的变量都拥有相同的名字。数组中的第一个元素使用索引值0，即PT1(0)。第二个元素使用索引值1，即PT1(1)。依次类推。

VBA使用#号作为双精度值类型的后缀字符。在这个数组中，PT1(0)保存x坐标值，PT1(1)保存y坐标值，PT1(2)保存z坐标值。

既然你已经知道如何保存一个点，我们就可以写一个VBA宏来在两点之间画一条线。

在AutoLISP中，你使用(defun)来定义一个名叫Line1的函数。在函数名字前的C: 意味着拥护可以直接从AutoCAD命令行上执行这个函数。下一步，分配两个点，然后用AutoCAD的LINE命令在两点之间画一条线了。

在VBA中，一个子例程创建一个与AutoLISP相当的函数。下面是AutoLISP和VBA的源代码。

AutoLISP code

(defun C:LINE1 ()
(setq PT1 '(0 0 0))  
(setq PT2 '(4 4 0))
(command "._line" PT1 PT2 "")
)
VBA code
Sub Line1()
Dim NewLine As Object
Dim PT1(0 To 2) As Double
Dim PT2(0 To 2) As Double
PT1(0) = 0#
PT1(1) = 0#
PT1(2) = 0#
PT2(0) = 4#
PT2(1) = 4#
PT2(2) = 0#
Set NewLine = ModelSpace.AddLine(PT1, PT2)
End Sub
子例程的第一行声明变量NewLine为一个对象。对象是一个应用程序的一个元素。线，视图和层都是对象的例子。下一步，点数组声明了两个点值。最后，AutoCAD从(0,0,0)到(4,4,0)画一条线。添加一条线到模型空间中，你需要使用ModelSpace对象集合中的AddLine方法和一条线的起始和终止点。

获取点：

用AutoLISP，你经常需要提示拥护选择一个点。你可以在VBA中用Utility对象的GetPoint方法达到这个目的。你需要声明一个额外的VarRet变量来保存返回值。以下是Line2的AutoLISP和VBA的代码对照：

AutoLISP code

(defun C:LINE2 ()

(setq PT1 (getpoint "\nStart Point: "))  

(setq PT2 (getpoint PT1 "\nEnd Point: "))

(command "._line" PT1 PT2 "")

)

VBA code

Sub Line2()

Dim VarRet As Variant

Dim NewLine As Object

Dim PT1(0 To 2) As Double

Dim PT2(0 To 2) As Double

VarRet = Utility.GetPoint(, "Start Point: ")

PT1(0) = VarRet(0)

PT1(1) = VarRet(1)

PT1(2) = VarRet(2)

VarRet = Utility.GetPoint(PT1, "End Point: ")

PT2(0) = VarRet(0)

PT2(1) = VarRet(1)

PT2(2) = VarRet(2)

Set NewLine = ModelSpace.AddLine(PT1, PT2)

End Sub

这一次，GetPoint方法返回一个Variant数据类型。这种数据类型可以保存任何类型的数据。为了使用你选择的并且保存在变量VarRet之中的开始和终止点，你必须转换Variant数据为一个双精度值的数组并且把他们付值给PT1和PT2。

现在两个VBA子例程已经建立起来了，如何运行它们呢？

启动AutoCAD，打开一个新图；

加载工程；

选择 工具|宏|运行宏；

选择宏位置（缺省为所有活动图形和工程）；

5. 从窗口中选择宏名称；

6. 点击运行按钮。