Mccad老师:请教SendCommand的详细用法

WTYLMF · 发表于 2005-2-24 10:40:00

Mccad老师: 感谢您对我以前的问题的回答。请问您有SendCommand函数的用法的详细说明吗？

clement · 发表于 2005-2-24 10:42:00

看帮助，按F1

WTYLMF · 发表于 2005-2-24 11:31:00

谢谢！语法是很简单的，详细用法就很复杂。

clement · 发表于 2005-2-24 15:10:00

&ltRE class=Code>这个函数没有什么复杂的地方啊，而且除非没有对应的Method，尽量不要用。&ltRE class=Code>Sub Example_SendCommand()
' This example sends a command to the AutoCAD commandline
' of a particular drawing for evaluation

' We will create a Circle in the active drawing and will
' 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