//
//     Shaft DDE Menu
//     Version 2.0 for Release 13 Windows
//
//     Copyright (C) 1986, 1987, 1989, 1990, 1991, 1992, 1993, 
//     1994 by Autodesk, Inc.
//
//     Permission to use, copy, modify, and distribute this software
//     for any purpose and without fee is hereby granted, provided
//     that the above copyright notice appears in all copies and
//     that both that copyright notice and the limited warranty and
//     restricted rights notice below appear in all supporting
//     documentation.
//
//     AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
//     AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
//     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
//     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
//     UNINTERRUPTED OR ERROR FREE.
//
//     Use, duplication, or disclosure by the U.S. Government is subject to
//     restrictions set forth in FAR 52.227-19 (Commercial Computer
//     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
//     (Rights in Technical Data and Computer Software), as applicable.
//
//.
//-------------------------------------------------------------------
//  Partial menu; use MENULOAD to load, then insert this
//  menu into the Pull Down menu area in AutoCAD R13.
//
//  Sample DDE communication.  Parametric design using link
//  between Excel spreadsheet (SHAFT.XLS) and AutoCAD drawing. 
//
//  Commands defined by (xload "shaft"):
//
//      C:IMPORT_SHAFT -- import changes from Excel, shaft.xls
//      C:EXPORT_SHAFT -- sends data from AutoCAD to spreadsheet
//      C:VLENGTH      -- view side-on with length dimensions
//      C:VDIAM        -- view end-on with diameter dimensions
//      C:V3D          -- generates an isometric view of the shaft
//      C:UPDATE_SHAFT -- updates model from linked spreadsheet
//      C:SHAFT        -- displays available commands
//      C:SHAFTDIALOG  -- display DDE Initiate dialog for Shaft
//

***MENUGROUP=SHAFT

***POP1
ID_Shaft    [/SShaft]
            [/SDDE Export Selection Set]^C^C^P(if (null ddesset) (xload "ddeads"))(ddesset);^P
            [/BDDE Export Blocks ]^C^C^P(if (null ddesset) (xload "ddeads"))(ddeblocks);^P
            [/wDDE Export Drawing]^C^C^P(if (null ddedrawing) (xload "ddeads"))(ddedrawing);^P
            [--]
            [/IDDE Import Changes]^C^C^P(if (null ddeupdate) (xload "ddeads"))(ddeupdate);^P
ID_Dialog   [/aDDE Dialog...     ]^C^C^P(if (null ddedialog) (xload "ddeads"))(ddedialog);^P
            [--]
            [/NNo Filters    ]^C^C^P(if (null ddeformat) (xload "ddeads"))(ddeformat 1);^P
            [/1Attribute Filter 1 ]^C^C^P(if (null ddeformat) (xload "ddeads"))(ddeformat 2);^P
            [/2Attribute Filter 2 ]^C^C^P(if (null ddeformat) (xload "ddeads"))(ddeformat 3);^P
            [--]
            [/UUnload DDE    ]^C^C^P(xunload "ddeads");^P
            [--]
            [Shaft Parametrics]
            [/m   Import]^C^C(if(null C:IMPORT_SHAFT)(xload "shaft"));_IMPORT_SHAFT
            [/p   Update]^C^C(if(null C:IMPORT_SHAFT)(xload "shaft"));_update_shaft
            [/r   Stretch]^C^C_stretch;_c
            [/x   Export]^C^C_export_shaft
            [/3   View 3D]^C^C_v3d _layer _thaw _ddimen;;
            [/V   View Front]^C^C_vlength
            [/H   Hidden]^C^C_hide
            [/g   Dialog...]^C^C(if(null c:import_shaft)(xload "shaft"));_shaftdialog
            [/o   Unload]^C^C^P(xunload "shaft");^P

***HELPSTRINGS
ID_Shaft        [Shaft DDE Sample Application Menu]
ID_Dialog       [Display DDE Initiate dialog]

