我正在尝试在当前打开的Autocad绘图中添加一个点。作为参考,我使用的是AddPoint手册中的VBA示例:
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对象,并且可以使用它获取/设置很多东西(只要它需要输入字符串即可),除非我不知道如何创建
Variant(三元素的双精度数组)
AddPoint函数必需
这是我正在使用的自动代码:
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变量的数据类型是错误的。