Я пытаюсь добавить точку в текущем открытом AutoCAD Drawning.В качестве ссылки я использую пример VBA из AddPoint руководства:
VBA:
RetVal = object.AddPoint(Point)
объект
Тип: Блок, ModelSpace, PaperSpace
Объекты, к которым применяется этот метод.
Точка
Доступ: Только для ввода
Тип: Вариант (трехэлементный массив пар)
Координаты создаваемой точки.
Sub Example_AddPoint()
' This example creates a point in model space.
Dim pointObj As AcadPoint
Dim location(0 To 2) As Double
' Define the location of the point
location(0) = 5#: location(1) = 5#: location(2) = 0#
' Create the point
Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
ZoomAll
End Sub
До сих пор я успешно подключен к объекту ActiveX и могу получить / установить многие вещи с ним (если это требуетсястроковый ввод), за исключением того, что я не могу понять, как создать
вариант (трехэлементный массив пар)
, необходимый для функции AddPoint
Вот код autoit, с которым я играю:
Local $location[3] = [5.0,5.0,0.0]
Local $oAcad = ObjGet("","AutoCAD.Application")
$oAcad.ActiveDocument.Modelspace.AddPoint($location)
Возвращает ошибку:
"1.au3" (3) : ==> The requested action with this object has failed.:
$oAcad.ActiveDocument.Modelspace.AddPoint($location)
$oAcad.ActiveDocument.Modelspace^ ERROR
Нет подробностей об ошибке даже с обработчиком ошибок, поэтому я предполагаю, что тип данныхПеременная $ location неверна.