Search the Community

Not sure what this error is telling me, Most the code below works up to: $oAcadActDoc.SummaryInfo.addCustomSummaryInfo($tTemp3,$tTemp4) And thats where I get the COM error 80020006, description 'UNKNOW NAME.'. (additional info on method 'addCustomSummaryInfo': http://docs.autodesk.com/ACDMAC/2012/ENU/ObjectARX%20Reference/index.html?frmname=topic&frmfile=!!MEMBERTYPE_Methods_AcDbDatabaseSummaryInfo.html) Thank you for any insights. $oMyError = ObjEvent("AutoIt.Error","MyErrFunc"); Install a custom error handler Dim $oAcad $oAcad = ObjGet("","AutoCAD.Application") If Not IsObj($oAcad) Then $oAcad = ObjCreate("AutoCAD.Application") If NOT IsObj($oAcad) Then msgbox(0,"0010","error capturing autocad") EndIf EndIf $oAcadActDoc_Cnt = $oAcad.documents.count $oAcadActDoc = $oAcad.activedocument $oAcadBlocks = $oAcadActDoc.blocks msgbox(0,"$oAcad.activedocument",$oAcad.activedocument.Name) Local Const $iSize0 = StringLen('Key') + 1 Local Const $iSize1 = StringLen('value') + 1 Local Const $tTemp3 = DllStructCreate("wchar[" & $iSize0 & "]") Local Const $tTemp4 = DllStructCreate("wchar[" & $iSize1 & "]") DllStructSetData($tTemp3, 1, "Key") DllStructSetData($tTemp4, 1, "Value") msgbox(0,"test",DllStructGetData ($tTemp4, 1)) msgbox(0,"testing","Custom entries: "& $oAcadActDoc.SummaryInfo.NumCustomInfo ,3) $oAcadActDoc.SummaryInfo.addCustomSummaryInfo($tTemp3,$tTemp4) For $i = 1 to $oAcadActDoc.SummaryInfo.NumCustomInfo - 1 $oAcadActDoc.SummaryInfo.getCustomSummaryInfo($i,$tTemp3,$tTemp4) ;Msgbox(0,"test returns",$tTemp1 &@CRLF&$tTemp2) ;$oAcadActDoc.SummaryInfo.deleteCustomSummaryInfo() ;msgbox(0,"testing","Custom entries: "& $oAcadActDoc.SummaryInfo.NumCustomInfo ,1) Next ;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ Com Error Handler ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ ;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤ Func MyErrFunc() Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & hex($oMyError.number,8) & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) Local $err = $oMyError.number If $err = 0 Then $err = -1 SetError($err) Endfunc AcDbDatabaseSummaryInfo::addCustomSummaryInfo C++ virtual Acad::ErrorStatus addCustomSummaryInfo( const ACHAR* key, const ACHAR* value ) = 0; Parameters const ACHAR* key Input key or name of the custom field to add to the list of custom fields const ACHAR* value Input value or contents of the custom field