How to spot Round Walls in VW 2022+ (all scripts broken)

[_c_]

In case you didn't notice, round walls don't respond any longer to the flag 89. Now they are all object type 68. All your scripts relying on objectType =89 are broken.

Similarly, in Worksheets you cannot restrict your criteria to T=89 or ROUNDWALL.

 

Searching for some sort of identifier I found this approach with GetArc, do you have any better?

 

 

GetVersionEx(major, minor, maintenance, platf, build);
vwVersion := Str2num(Concat(major, minor, maintenance));

{...}
  
IF vwVersion < 2700 THEN 
    isRoundWall := (GetTypeN(wallHandle) = 89)
ELSE BEGIN
    GetArc(wallHandle, startAng, endAng);
    isRoundWall := (startAng + endAng <> 0);
END;

 

 

Edited May 19, 2022 by _c_

[Julian_Carr]

Use GetWallPathType():

https://developer.vectorworks.net/index.php/VS:GetWallPathType

[_c_]

And in worksheets?

[Julian_Carr]

Script?

Procedure WSGetWallType;
VAR
    s1 : STRING;
BEGIN
    CASE GetWallPathType(WSScript_GetObject) OF
        0: s1 := 'Straight';
        1: s1 := 'Round';
    END;
    WSScript_SetResStr(s1);
END;
Run(WSGetWallType);

[_c_]

Thank you Julian, I think we need that number back. It didn't hurt in the least and there was no reason to drop it.