leonn123 发表于 2003-11-11 21:12:00

vba可以直接调用cad内部命令吗?

efan2000 发表于 2003-11-11 21:32:00

当然可以，使用SendCommand。
Sub Example_SendCommand()
   ' This example sends a command for evaluation to the AutoCAD command line
   ' of a particular drawing
   
   ' Create a Circle in the active drawing and
   ' zoom to display the entire circle
   ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
   ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr
   
   ' Refresh view
   ThisDrawing.Regen acAllViewports
   
   MsgBox "A circle command has been sent to the command line of the current drawing."
End Sub

gzy 发表于 2003-11-11 22:33:00

我觉得如果要连续调用很多命令的话，可以将命令写到一个脚本文件，然后执行。

myfreemind 发表于 2003-11-12 00:00:00

用lisp来调用更方便些!

weixin7944 发表于 2006-7-9 22:22:00

<P>以上的一段程序在用作其他命令的时候可以，但是用到“XREF”时，就出了问题！程序如下：</P>
<P>ThisDrawing.SendCommand "_zoom" &amp; vbCr &amp; "a" &amp; vbCr &amp; "c:\text.dwg" &amp; vbCr &amp; "0,0,0" &amp; vbCr &amp; "1" &amp; vbCr &amp; "1" &amp; vbCr &amp; "0" &amp; vbCr</P>
<P>程序运行后只是执行到XREF为止，弹出了引用对话框，没有自动选择ATTACH，而是接着执行了“A”命令，即画弧命令。</P>
<P>应该怎么解决，谢谢？</P>
页: [1]
查看完整版本: vba可以直接调用cad内部命令吗?