Maximum CD 2002 April/maximum-cd-2002-04.iso/Software/Apps/gmax/gmaxinst.exe/gmaxsetup11.cab/Macro_EditablePolygon.mcr

Text File | 2001-09-12 | 19.3 KB | 832 lines

-- EditPoly Operations MacroScript File
--
-- Created:          Aug 19 2000
-- Last Updated:     Dec 6 2000
--
-- Author :   Fred Ruff
-- Version:  3ds max 4
--
--
-- EditPoly operations Macroscript file.
--***********************************************************************************************
-- MODIFY THIS AT YOUR OWN RISK
--


MacroScript EPoly_Attach
ButtonText:"Attach List"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Attach List (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        ApplyOperation Edit_Poly Polyops.attachlist

    )

)
MacroScript EPoly_Detach
ButtonText:"Detach"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Detach (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        if SubObjectLevel >=4 do Try(ApplyOperation Edit_Poly Polyops.Detach)Catch(MessageBox "Operation Failed" Title:"Poly Editing")

    )

)

MacroScript EPoly_Hide
ButtonText:"Hide (Poly)"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Hide (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        Try(ApplyOperation Edit_Poly Polyops.Hide)Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_UnHide
ButtonText:"Unhide All (Poly)"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Unhide All (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        Try(ApplyOperation Edit_Poly Polyops.UnHide)Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )
)
MacroScript EPoly_Collapse
ButtonText:"Collapse"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Collapse (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        Try(ApplyOperation Edit_Poly Polyops.collapse)Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )
)



-- *******************************************************************
--  Poly Ops:  Vertex Operations
-- *******************************************************************
MacroScript EPoly_Weld
ButtonText:"Weld"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Weld Vertices (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        if subobjectlevel == undefined then max modify mode
        if subobjectlevel != 1 then subobjectlevel = 1
        else ApplyOperation Edit_Poly Polyops.Weld

    )

)

MacroScript EPoly_VChamfer
ButtonText:"Chamfer Vertex"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Chamfer Vertex (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 1
            ApplyOperation Edit_Poly Polyops.startchamferVertex
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")

    )

)
MacroScript EPoly_VCreate
ButtonText:"Create Vertices"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Create Vertices (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 1
            ApplyOperation Edit_Poly Polyops.startCreateVertex
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_VBreak
ButtonText:"Break Vertices"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Break Vertices (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            If SubObjectLevel != 1 then SubObjectLevel = 1
            else ApplyOperation Edit_Poly Polyops.break
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_RemoveIsolatedVerts
ButtonText:"Remove Isolated Verts"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Remove Isolated Vertices (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            ApplyOperation Edit_Poly Polyops.removeisolatedverts
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)


MacroScript EPoly_TargetWeld
ButtonText:"Target Weld"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Target Weld (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if SubObjectLevel == 1 do ApplyOperation Edit_Poly Polyops.startWeldTarget
            if SubObjectLevel == 2 do ApplyOperation Edit_Poly Polyops.startWeldTarget
            if SubObjectLevel > 2 do
                (
                subobjectlevel = 1
                ApplyOperation Edit_Poly Polyops.startWeldTarget
                )
            if SubObjectLevel == 0 do
                (
                subobjectlevel = 1
                ApplyOperation Edit_Poly Polyops.startWeldTarget
                )
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_CutVertex
ButtonText:"Cut Vertex"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Cut Vertex (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 1
            ApplyOperation Edit_Poly Polyops.startCutVertex
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
-- *******************************************************************
-- Poly Ops:  Edge Operations
-- *******************************************************************
MacroScript EPoly_SlicePlane
ButtonText:"Slice Plane"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Slice Plane (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            If SubObjectLevel == 0 then SubObjectLevel = 4
            ApplyOperation Edit_Poly Polyops.startsliceplane
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)



MacroScript EPoly_EChamfer
ButtonText:"Chamfer Edge"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Chamfer Edge (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 2
            ApplyOperation Edit_Poly Polyops.startChamferEdge
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_ECut
ButtonText:"Cut Edge"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Cut Edge (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 2
            ApplyOperation Edit_Poly Polyops.startCutEdge
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)


MacroScript EPoly_EDivide
ButtonText:"Divide Edges"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Divide Edges (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 2
            ApplyOperation Edit_Poly Polyops.startDivideEdge
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)


MacroScript EPoly_ShapeFromEdges
ButtonText:"Shape from Edges"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Create Shape from Edges (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            SubObjectLevel = 2
            ApplyOperation Edit_Poly Polyops.createShapeFromEdges
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

-- *******************************************************************
--  Poly Ops: Polygon Operations
-- *******************************************************************
MacroScript EPoly_View_Align
ButtonText:"View Align"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"View Align (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try(ApplyOperation Edit_Poly Polyops.viewAlign)Catch(MessageBox "Operation Failed" Title:"Poly Editing")

    )

)

MacroScript EPoly_Grid_Align
ButtonText:"Grid Align"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Grid Align (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try(ApplyOperation Edit_Poly Polyops.gridAlign)Catch(MessageBox "Operation Failed" Title:"Poly Editing")

    )

)
MacroScript EPoly_Make_Planer
ButtonText:"Make Planar"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Make Planar (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        If SubObjectLevel == undefined then Max Modify Mode
        If SubObjectLevel == 0 then SubObjectLevel = 4
        else Try(ApplyOperation Edit_Poly Polyops.makeplanar) Catch(MessageBox "Operation Failed" Title:"Poly Editing")

    )

)
MacroScript EPoly_Flip
ButtonText:"Flip Normals Element"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Flip Normals Selected (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (
        If SubObjectLevel == undefined then Max Modify Mode
        If SubObjectLevel != 5 then SubObjectLevel = 5
        else Try(ApplyOperation Edit_Poly Polyops.flipnormal)Catch(MessageBox "Operation Failed" Title:"Poly Editing")
        --If SubObjectLevel == 5 do Try(ApplyOperation Edit_Poly Polyops.flipnormal)Catch(MessageBox "Operation Failed" Title:"Poly Editing")

    )

)

MacroScript EPoly_FExtrude
ButtonText:"Extrude Polygon"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Extrude Polygon (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            ApplyOperation Edit_Poly Polyops.startExtrudeFace
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_FBevel
ButtonText:"Bevel Polygon"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Bevel Polygon (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            ApplyOperation Edit_Poly Polyops.startBevel
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_FCreate
ButtonText:"Create Polygon"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Create Polygon (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            ApplyOperation Edit_Poly Polyops.startCreateFace
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_FCut
ButtonText:"Cut Polygon"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Cut Polygon (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 3 then subobjectlevel = 3
            ApplyOperation Edit_Poly Polyops.startCutFace
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_FDivide
ButtonText:"Divide Polygon"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Divide Polygon (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            ApplyOperation Edit_Poly Polyops.startDivideFace
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_Tesselate
ButtonText:"Tessellate"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Tessellate (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel == 0 then subobjectlevel = 4
            else ApplyOperation Edit_Poly Polyops.tessellate
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_Autosmooth
ButtonText:"Auto Smooth Polygon"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Auto Smooth Polygon (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            else ApplyOperation Edit_Poly Polyops.Autosmooth
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_EditTri
ButtonText:"Edit Triangulation"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Edit Triangulation (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            ApplyOperation Edit_Poly Polyops.startEditTri
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)

MacroScript EPoly_Cap
ButtonText:"Cap"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Cap (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 3 then subobjectlevel = 3
            else ApplyOperation Edit_Poly Polyops.Cap
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_ClearSmoothing
ButtonText:"Clear All Smoothing Groups"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Clear All Smoothing Groups (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            else ApplyOperation Edit_Poly Polyops.clearAllSG
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_Meshsmooth
ButtonText:"Meshsmooth"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Meshsmooth (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel == 0 then subobjectlevel = 4
            else ApplyOperation Edit_Poly Polyops.Meshsmooth
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_retriangulate
ButtonText:"Retriangulate"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Retriangulate (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 4 then subobjectlevel = 4
            else ApplyOperation Edit_Poly Polyops.retriangulate
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_Split
ButtonText:"Split"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Split (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel != 2 then subobjectlevel = 2
            else ApplyOperation Edit_Poly Polyops.Split
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)
MacroScript EPoly_resetPlane
ButtonText:"Reset Plane"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"Reset Plane (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
            If SubObjectLevel == undefined then Max Modify Mode
            if subobjectlevel == 0 then subobjectlevel = 4
            ApplyOperation Edit_Poly Polyops.resetPlane
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )
)
MacroScript EPoly_NURMS_Toggle
ButtonText:"NURMS Toggle"
Category:"Editable Polygon Object"
internalCategory:"Editable Polygon Object"
Tooltip:"NURMS Toggle (Poly)"
-- Needs Icon
(
    On IsEnabled Return Filters.Is_EditPoly()
    On IsVisible Return Filters.Is_EditPoly()

    On Execute Do
    (

        Try
        (
        $.surfSubdivide = (not $. surfSubdivide)
        )
        Catch(MessageBox "Operation Failed" Title:"Poly Editing")
    )

)