O.K., the AutoCAD addCircle() method reports a VARIANT for a center position (a point in three
dimensions) where in fact it explicitly expects a VT_ARRAY,VT_R8 of three VT_R8 (decimal) elements.
Currently, orexxole.cpp only creates and returns VT_ARRAY,VT_VARIANT only.
Further experiments show, that the following is necessary:
* SafeArrayCreate(...) must be done with VT_R8
* the array's type must be set to VT_ARRAY,VT_R8 (and not VT_ARRAY,VT_VARIANT)
If trying to fool AutoCAD to accept the supplied array by telling its type to be VT_ARRAY,VT_R8 but
SafeArrayCreate(..) used VT_VARIANT as its type leads to a crash of AutoCAD.
Conclusions:
* orexxole.cpp must be changed to allow to submit an explicit type for an
array which needs to be
used in SafeArrayCreate() and which needs to be used for typing the variant
that includes that
typed safe array,
* OLEVariant should be enabled to allow typed arrays (rather than
VT_ARRAY,VT_VARIANT allow e.g.
VT_ARRAY,VT_R8, etc.) which in orexxole.cpp then gets honored and cause the
creation of the
accordingly typed safe array and typed resulting variant containing that
safe array.
Any comments or questions?
---rony
On 29.05.2022 18:07, Rony G. Flatscher wrote:
The reason why looking into orexxole is a problem with an AutoCAD method/function that expects a
single dimensioned array with three elements (double, R8).
No matter what I try, even forcing manual fixed R8 typed values for that array does not yield in
success. The error that AutoCAD raises (in this case for the addCircle(point,radius) is 80070057
("The Parameter is incorrect."). The types orexxole creates look correct:
...
arrived in addCircle, space: an OLEObject
addCircle(), center:
center: (1000.1,2000.1,3000.1)
addCircle(), radius:
radius: 50.0
orexxole.cpp # 2276 ArrayClass2SafeArray: <--- VarArray: type=[VT_EMPTY]
value=[VT_EMPTY]
orexxole.cpp # 2284 ArrayClass2SafeArray: <--- VarArray: type=[VT_ARRAY
VT_VARIANT] value=[VT_ARRAY VT_VARIANT]
orexxole.cpp # 2084 Rexx2Variant: R8 -> [VT_R8 -> 1000,1] |
val=[1000.100000]
orexxole.cpp # 2084 Rexx2Variant: R8 -> [VT_R8 -> 2000,1] |
val=[2000.100000]
orexxole.cpp # 2084 Rexx2Variant: R8 -> [VT_R8 -> 3000,1] |
val=[3000.100000]
orexxole.cpp # 2344 ArrayClass2SafeArray: <--- VarArray: type=[VT_ARRAY
VT_VARIANT] value=[VT_ARRAY VT_VARIANT]
orexxole.cpp # 2121 Rexx2Variant: R8 -> [VT_R8 -> 50] | val=[50.000000]
addCircle(): syntax error raised ...
SYNTAX, line: 160 code: 92.906 OLE error. msg: OLE exception: Code: 80070057 Source:
unavailable Description: unavailable (80070057 "The parameter is incorrect.").
*-* Compiled method "UNKNOWN" with scope "OLEObject".
160 *-* res=space~addCircle(center,radius)
29 *-* res=addCircle(space,center,radius)
...
The array should be o.k., its three values for the center point are all of type R8. Still, AutoCAD
issues the "Parameter wrong" error.
Also forcefully setting to VT_ARRAY,VT_R8 (must be currently done by hardcoding this in
orexxole.cpp) does not change the error.
Not being really familiar with the COM/OLE datatypes, I am currently lost,
hence requesting help.
---rony
P.S.: orexxole.cpp array handling works, e.g. using a two-dimensional Rexx array with titles
(strings) and values (numbers) for assigning them in one step in Excel
("range~value=rexx2dimArray) works. E.g. an example transcribed from Perl (at the end):
--
2022-05-29:<https://www.mail-archive.com/[email protected]&q=subject:%22Win32%5C%3A%5C%3AOLE%22&o=newest&f=1>
excel = .OleObject~new("Excel.Application")
excel~visible = .true
book = excel~workbooks~add
sheet = book~worksheets(1)
range = sheet~range("A2:C7")
-- array of arrays will get transformed to an ooRexx 2-dim array by the
routine to2dim()
range~value=to2dim( (("Delivered", "En route", "To be shipped"), -
( 104, 102, 86) , -
( 670, 150, 174) , -
( 891, 261, 201) , -
(1274, 471, 321) , -
(1563, 536, 241)) )
chart = excel~charts~add
chart~chartType = excel~getConstant("xlAreaStacked")
plotBy = excel~getConstant("xlColumns")
chart~setSourceData(range, plotBy)
chart~hasTitle = .true
::routine to2dim -- transform an ooRexx array of arrays into a
2-dimensional ooRexx array
use arg arr
newArr=.array~new(0,0) -- create 2-dimensional array
do counter c1 with item o1 over arr
do counter c2 o2 over o1
newArr[c1,c2]=o2
end
end
return newArr
/*
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE-new(Excel.Application);
$Excel-{Visible} = 1;
$Win32::OLE::Warn = 3;
my $Book = $Excel-Workbooks-Add;
my $Sheet = $Book-Worksheets(1);
my $Range = $Sheet-Range(A2:C7);
$Range-{Value} =
[['Delivered', 'En route', 'To be shipped'],
[504, 102, 86],
[670, 150, 174],
[891, 261, 201],
[1274, 471, 321],
[1563, 536, 241]];
my $Chart = $Excel-Charts-Add;
$Chart-{ChartType} = xlAreaStacked;
$Chart-SetSourceData({Source = $Range, PlotBy = xlColumns});
$Chart-{HasTitle} = 1;
___
*/
_______________________________________________
Oorexx-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oorexx-devel
