Here is my script for auto-generate the dimension to the object info. However, it only works for the objects that are totally 0, 90, and 180 degrees, or the dimensions are off due to the angle. Is there anyone who can help me with my script? Thanks very much.
------------------------------------------------------------------------------------------------------------------------------------------------
PROCEDURE InputData3D;
CONST
RECD = 'PanelSizes';
VAR
h:HANDLE;
W,T,D:REAL;
W1,T1,D1:STRING;
BEGIN
h:=FSActLayer;
REPEAT
Get3DInfo(h, T, W, D);
W1:=Num2Strf(W);
T1:=Num2Strf(T);
D1:=Num2Strf(D);
SetRecord(h,RECD);
SetRField(h,RECD,'Width',W1);
SetRField(h,RECD,'Height',T1);
SetRField(h,RECD,'Depth',D1);
h:=NextSobj(h);
UNTIL(h=NIL)
END;
RUN(InputData3D);