杜红元 发表于 2006-2-2 19:38:00

用EXCEL控制cad的问题

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

xinghesnak 发表于 2006-2-4 10:29:00

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

杜红元 发表于 2006-2-5 17:20:00

<P>非常感谢楼上的回复，我是刚刚开始学习vba的，还是搞不定呀！！</P>
<P>现在将我得示例文件发上来，请知道的帮忙</P>

杜红元 发表于 2006-2-6 08:18:00

<P></P>
<P>忘点上传了</P>

xinghesnak 发表于 2006-2-6 08:53:00

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

杜红元 发表于 2006-2-6 09:23:00

<P>好像还不行，我把我编的lisp程序上传上去，能不能帮助调试一下</P>
<P>lisp程序需要提前加载到cad的LISP启动组当中。非常感谢</P>

xinghesnak 发表于 2006-2-6 11:26:00

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

杜红元 发表于 2006-2-6 13:53:00

<P>用vba，lisp程序直接加载就能用了</P>

xinghesnak 发表于 2006-2-6 14:02:00

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

杜红元 发表于 2006-2-6 14:13:00

<P>以前我用时是先将在cad中将上面的LISP程序提前加载，然后依次复制EXCEL中的两大块数据并在CAD的命令行中粘贴，就能够形成一副初步的容器排版图。</P>
<P>感觉上面的步骤太麻烦，想直接在excel中输完数据后直接能够完成上述工作。</P>
页: [1] 2 3
查看完整版本: 用EXCEL控制cad的问题