AutoCAD Platform Program MainPlatform Script

Main Platform Script

layer1 - Layer_new creates a new grey layer, "platform"

layer1 <-- layer_new("platform", grey)

box1 - Creates a box based on two points.

box1 <-- box(platform1_origin, platform1_origin + platform1_dim)

platform1_origin =

• x:
• y:
• z:

platform1_dim

• x:
• y:
• z:

box2 -

box2 <-- box(platform2_origin, platform2_origin + platform2_dim)

platform2_origin =

• x:
• y:
• z:

platform2_dim

• x:
• y:
• z:

box3 -

box3 <-- box(column1_origin, column1_origin - column1_dim)

column1_origin =

• x:
• y:
• z:

column1_dim

• x:
• y:
• z:

box4 -

box4 <-- box(column2_origin, column2_origin - column2_dim)

column2_origin =

• x:
• y:
• z:

column2_dim

• x:
• y:
• z:

box5 -

box5 <-- box(column3_origin, column3_origin - column3_dim)

column3_origin =

• x:
• y:
• z:

column3_dim

• x:
• y:
• z:

union1 -

union1 <-- union_allA

layerset - Layer_set selects the layer "0".

layerset <-- layer_set("0")

layerfreeze1 - Layer_freeze locks the layer "platform" so that it cannot be edited.

layerfreeze1 <-- layer_freeze("platform")