用EXCEL控制cad的问题

杜红元

非常迫切的需要知道：

如何在EXCEL中通过VBA实现 EXCEL表格中的数据粘贴到CAD命令行这么一个过程，就是通常使用的在excel中复制，然后在cad命令行中的右键粘贴这一过程。盼望知道的解答。

xinghesnak

很简单啊。。定义一个变量或者数组，用来存储EXCEL数据，在EXCEL中提出数据，然后用Thisdrawng.utility.prompt aa(),就可以啦。。。。

杜红元

非常感谢楼上的回复，我是刚刚开始学习vba的，还是搞不定呀！！

现在将我得示例文件发上来，请知道的帮忙

杜红元

忘点上传了

xinghesnak

Private Sub CommandButton1_Click()
Dim acadApp As Object
On Error Resume Next
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
    MsgBox Err.Description
    Exit Sub
End If
Dim aa As Variant
Range("c1:C11").Select
aa = Selection
Dim bb
For bb = 1 To UBound(aa)
    acadApp.ActiveDocument.Utility.Prompt aa(bb, 1) & vbCrLf
Next
acadApp.Visible = True
End Sub

杜红元

好像还不行，我把我编的lisp程序上传上去，能不能帮助调试一下

lisp程序需要提前加载到cad的LISP启动组当中。非常感谢

xinghesnak

什么意思？到底用VBA还是用LISP?

杜红元

用vba，lisp程序直接加载就能用了

xinghesnak

你说不行，是指什么啊？传的那个程序在我这没有问题啊。。。

杜红元

以前我用时是先将在cad中将上面的LISP程序提前加载，然后依次复制EXCEL中的两大块数据并在CAD的命令行中粘贴，就能够形成一副初步的容器排版图。

感觉上面的步骤太麻烦，想直接在excel中输完数据后直接能够完成上述工作。