GameStar Special 2002 April/GSSH42002.iso/EDITOREN/DS/gmax/gmaxinst_1-1.exe/gmaxsetup11.cab/Macro_EditableSpline.mcr

Text File | 2002-02-13 | 18KB | 661 lines

-- EditSpline Operations MacroScript File
--
-- Created:          June 12 2000
-- Last Updated:     June 17 2000
--
-- Author :   Frank DeLise
-- Version:  3ds max 4
--
--
-- EditSpline operations Macroscript file.
--***********************************************************************************************
-- MODIFY THIS AT YOUR OWN RISK
--
-- Renamed flt_EditS --> Filters.Is_EditSpline

MacroScript ESpline_Attach
ButtonText:"Attach"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Attach (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        ApplyOperation Edit_Spline Splineops.startAttach

    )

)
MacroScript ESpline_Detach_Segment
ButtonText:"Detach Segment"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Detach Segment (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 2 then subobjectlevel = 2
        else if subobjectlevel == 2 do Try(ApplyOperation Edit_Spline Splineops.Detach)Catch(MessageBox "Operation Failed" Title:"Spline Editing")

    )

)

MacroScript ESpline_Detach_Spline
ButtonText:"Detach Spline"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Detach Spline (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.Detach)Catch(MessageBox "Operation Failed" Title:"Spline Editing")

    )

)
MacroScript ESpline_Weld
ButtonText:"Weld Vertices"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Weld Vertices (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1

        ApplyOperation Edit_Spline Splineops.Weld

    )

)
MacroScript ESpline_Hide
ButtonText:"Hide (Spline)"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Hide (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        Try(ApplyOperation Edit_Spline Splineops.Hide)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)
MacroScript ESpline_UnHide
ButtonText:"Unhide All (Spline)"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Unhide All (Splines)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        Try(ApplyOperation Edit_Spline Splineops.UnHideAll)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )
)

MacroScript ESpline_Reverse
ButtonText:"Reverse Spline"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Reverse (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (

        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.Reverse)Catch(MessageBox "Operation Failed" Title:"Spline Editing")

    )

)

MacroScript ESpline_Insert
ButtonText:"Insert"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Insert Selection (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        Try(ApplyOperation Edit_Spline Splineops.StartInsert)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Trim
ButtonText:"Trim"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Trim (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.StartTrim)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)
MacroScript ESpline_Break
ButtonText:"Break Vertices"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Break Vertices (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartBreak)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)
MacroScript ESpline_UnBind
ButtonText:"Unbind"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Unbind (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.Unbind)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Divide
ButtonText:"Divide"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Divide (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 2 then subobjectlevel = 2
        Try(ApplyOperation Edit_Spline Splineops.Divide)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Explode
ButtonText:"Explode"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Explode (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.Explode)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Create_Line
ButtonText:"Create Line"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Create Line (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        Try(ApplyOperation Edit_Spline Splineops.StartCreateLine)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_MirrorHoriz
ButtonText:"Mirror Horizontally"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Mirror Horizontally (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.MirrorHoriz)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Refine
ButtonText:"Refine"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Refine (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartRefine)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Refine_Connect
ButtonText:"Refine Connect"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Refine Connect (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartRefineConnect)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Extend
ButtonText:"Extend"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Extend (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.StartExtend)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Make_First
ButtonText:"Make First"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Make First (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.MakeFirst)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Close
ButtonText:"Close"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Close (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.Close)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Delete_Vertex
ButtonText:"Delete Vertex"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Delete Vertex (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.Delete)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)
MacroScript ESpline_Delete_Segment
ButtonText:"Delete Segment"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Delete Segment (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 2 then subobjectlevel = 2
        Try(ApplyOperation Edit_Spline Splineops.Delete)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)
MacroScript ESpline_Delete_Spline
ButtonText:"Delete Spline"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Delete Spline (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.Delete)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_MirrorVert
ButtonText:"Mirror Vertically"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Mirror Vertically (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.MirrorVert)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Fillet
ButtonText:"Fillet"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Fillet (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartFillet)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Outline
ButtonText:"Outline"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Outline (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.StartOutline)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Cross_Insert
ButtonText:"Cross Insert"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Cross Insert (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartCrossInsert)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Subtract
ButtonText:"Subtract"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Subtract (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        Try(ApplyOperation Edit_Spline Splineops.StartSubtract)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Bind
ButtonText:"Bind"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Bind (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartBind)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Attach_Multiple
ButtonText:"Attach Multiple"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Attach Multiple (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        Try(ApplyOperation Edit_Spline Splineops.AttachMultiple)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Cycle
ButtonText:"Cycle Vertices"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Cycle Vertices (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline SplineOps.Cycle)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Connect
ButtonText:"Connect"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Connect (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        Try(ApplyOperation Edit_Spline Splineops.StartConnect)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)

MacroScript ESpline_Mirror_Both
ButtonText:"Mirror Both"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Mirror Both H&V (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 3 then subobjectlevel = 3
        Try(ApplyOperation Edit_Spline Splineops.MirrorBoth)Catch(MessageBox "Operation Failed" Title:"Spline Editing")
    )

)



-- *******************************************************************
--  Spline Ops:  Vertex Mode
--
--  SO LEVELS: 1 = vertex; 2 = Segment; 3 = Spline
--
-- *******************************************************************

MacroScript ESpline_VChamfer
ButtonText:"Chamfer Vertex"
Category:"Editable Spline Object"
internalCategory:"Editable Spline Object"
Tooltip:"Chamfer Vertex (Spline)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditSpline()
    On IsVisible Return Filters.Is_EditSpline()

    On Execute Do
    (
        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 1
            ApplyOperation Edit_Spline Splineops.startchamfer
        )
        Catch(MessageBox "Operation Failed" Title:"Spline Editing")

    )

)