home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / DesignCAD 3D Max PLUS trial 30 / DATA1.CAB / Example_Files / Sample_Macros / Offset Objects.d3m < prev    next >
Encoding:
Text File  |  2003-09-29  |  913 b   |  35 lines
  1. ' This simple macro asks users for X and Y offsets,
  2. ' then moves the selected items by the entered distances.
  3. ' 
  4. ' Make sure something is selected before starting
  5.     if Sys(80) = 0 then
  6.         Message "Please select an object before using this macro."
  7.         goto Ender
  8.     endif
  9. ' Un-remark these next 2 lines to make the input box appear in the upper 
  10. ' left corner of the DesignCAD window, so it does not cover the drawing area.
  11.     ' Sys(130) = 5
  12.     ' Sys(131) = 5
  13. ' Get Distances from user
  14.     Input "DX Movement", DX
  15.     Input "DY Movement", DY
  16. ' Get Coordinates of the Selection Handle
  17.     ' X value of 1st handle
  18.         OrgX = Sys(190) 
  19.     ' Y value of 1st handle
  20.         OrgY = Sys(191) 
  21. ' Move Objects with DragMove instead of SelectMove or Move
  22. ' since it only considers the primary selection handle.
  23.     >DragMove
  24.     {
  25.     <PointRel [OrgX + DX], [OrgY + DY], 0
  26.     }
  27. ' Refresh the Screen
  28.     >Regenerate
  29.     {
  30.     }
  31. Ender:
  32. End
  33.  
  34.  
  35.