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

leonn123

efan2000

当然可以，使用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

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

myfreemind

用lisp来调用更方便些!

weixin7944

以上的一段程序在用作其他命令的时候可以，但是用到“XREF”时，就出了问题！程序如下：

ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr & "c:\text.dwg" & vbCr & "0,0,0" & vbCr & "1" & vbCr & "1" & vbCr & "0" & vbCr

程序运行后只是执行到XREF为止，弹出了引用对话框，没有自动选择ATTACH，而是接着执行了“A”命令，即画弧命令。

应该怎么解决，谢谢？