異常：帶有comtypes的無效對象數組

我嘗試通過Python中的COM實現兩個Autocad文檔之間的簡單複製操作。異常：帶有comtypes的無效對象數組

from pyautocad import Autocad, APoint 
from comtypes.client import GetBestInterface 
# Get acad application 
acad = Autocad(create_if_not_exists=True) 
# Create a new document 
doc1 = GetBestInterface(acad.Application.Documents.Add()) 
# add a circle in this document and make it visible 
circle = GetBestInterface(doc1.ModelSpace.AddCircle(APoint(0.0, 0.0), 1.0)) 
doc1.Application.ZoomExtents() 
# create another document 
doc2 = GetBestInterface(acad.Application.Documents.Add()) 
# and copy the circle to the new document 
doc1.CopyObjects([circle], doc2.ModelSpace)

此拋出：

Traceback (most recent call last): 
    File "copy_bug.py", line 13, in <module> 
    doc1.CopyObjects([circle], doc2.ModelSpace) 
    File "Anaconda2\lib\site-packages\comtypes\__init__.py", line 655, in call_with_inout 
    rescode = func(self_, *args, **kw) 
_ctypes.COMError: (-2145320837, None, (u'Invalid object array', u'AutoCAD.Application', u'C:\\Program Files\\Autodesk\\AutoCAD 2015\\HELP\\OLE_ERR.CHM', -2145320837, None))

同樣的事情可以在VBA與實現：

Dim doc1 As AcadDocument 
Set doc1 = ThisDrawing.Application.Documents.add 
Dim pt(0 To 2) As Double 
pt(0) = 0#: pt(1) = 0#: pt(2) = 0# 
Dim circ As AcadCircle 
Set circ = doc1.ModelSpace.AddCircle(pt, 1) 

ThisDrawing.Application.ZoomExtents 

Dim doc2 As AcadDocument 
Set doc2 = ThisDrawing.Application.Documents.add 

Dim arry(0 To 0) As AcadEntity 
Set arry(0) = circ 
doc1.CopyObjects arry, doc2.ModelSpace

我試過numpy的陣列，我試圖鑄造到IDispatch接口方面，IAcadEntity接口和IAcadObject沒有成功（可能是一個愚蠢的嘗試）。

circle = circle.QueryInterface(IAcadEntity)

我也想看看裏面site-packages\comtypes\automation.py但是這是我上面的薪酬等級。將self.vt設置爲VT_ARRAY | VT_DISPATCH in _set_value沒有什麼好處，但我懷疑問題出在這些方面，因爲如果我們將Dim arry(0 To 0) As AcadEntity更改爲Dim arry(0 To 0) As Variant，那麼VBA示例也會拋出Invalid object array。

我要指出，我取消註釋中site-packages\comtypes\automation.py兩行：

# These are not yet implemented: 
POINTER(IUnknown): VT_UNKNOWN, 
POINTER(IDispatch): VT_DISPATCH,

所以....幫助？

來源

2016-06-10 Nicu Tofan

同時，也有一些醜陋的黑客一樣：

Dim doc1 As AcadDocument 
Set doc1 = ThisDrawing.Application.Documents.add 
Dim pt(0 To 2) As Double 
pt(0) = 0#: pt(1) = 0#: pt(2) = 0# 
Dim circ As AcadCircle 
Set circ = doc1.ModelSpace.AddCircle(pt, 1) 

ThisDrawing.Application.ZoomExtents 
Dim EXTMIN As Variant: EXTMIN = ThisDrawing.GetVariable("EXTMIN") 
Dim EXTMAX As Variant: EXTMAX = ThisDrawing.GetVariable("EXTMAX") 

Call ThisDrawing.SendCommand(_ 
    "_SELECT Window " & CStr(EXTMIN(0)) & "," & CStr(EXTMIN(1)) & _ 
    " " & CStr(EXTMAX(0)) & "," & CStr(EXTMAX(1)) & vbNewLine) 
doc1.SendCommand ("_COPYBASE 0,0" & vbNewLine) 

Dim doc2 As AcadDocument 
Set doc2 = ThisDrawing.Application.Documents.add 
doc2.SendCommand ("_PASTECLIP 0,0" & vbNewLine)

from pyautocad import Autocad, APoint 
from comtypes.client import GetBestInterface 

acad = Autocad(create_if_not_exists=True) 
doc1 = GetBestInterface(acad.Application.Documents.Add()) 
circle = GetBestInterface(doc1.ModelSpace.AddCircle(APoint(0.0, 0.0), 1.0)) 
doc1.Application.ZoomExtents() 

EXTMIN = doc1.GetVariable("EXTMIN") 
EXTMAX = doc1.GetVariable("EXTMAX") 

doc1.SendCommand("_SELECT Window %f,%f %f,%f\n\r" % (
    EXTMIN[0], EXTMIN[1], EXTMAX[0], EXTMAX[1])) 
doc1.SendCommand ("_COPYBASE 0,0\n\r") 

doc2 = GetBestInterface(acad.Application.Documents.Add()) 
doc2.SendCommand ("_PASTECLIP 0,0\n\r")

（當然你可以創建一個選擇集，但你不能讓一個選擇集活動，這將是瘋狂）

請發佈一個更好的答案！

來源

2016-06-10 23:22:00

異常：帶有comtypes的無效對象數組

回答

相關問題