home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / demo / wgelectr / cameval / cam31 / misc.z / DELOUT.SCR < prev    next >
Text File  |  1995-07-20  |  2KB  |  70 lines
  1. ;########################## START ##########################
  2. ;###############    DELETE OUTSIDE AREAS    ################
  3. ;###########################################################
  4. ; G. Murray 7/11/95     Version 1.3
  5. Print "This script deletes selected data from ON layers."
  6. OK_Cancel "Do you need to delete data OUTside a window?",OK
  7. if OK=0 then goto 100
  8. ;layer_alloff@ 0
  9. view_minrepaint@ 0
  10. ;view_all@
  11. Print_msg "Click upper left corner of area to keep"
  12. getmousepos@ "Upper left corner"
  13. mx1#=mouseposx!
  14. my1#=mouseposy!
  15. Print_msg "Now click lower right corner of area to keep"
  16. getmousepos@ "Lower right corner"
  17. mx2#=mouseposx!
  18. my2#=mouseposy!
  19. edit_delete@
  20. edit_group@
  21. edit_cross@
  22. ;
  23. axy@ dbminx!,dbmaxy!
  24. axy@ mx1#,dbminy!
  25. ;
  26. axy@ dbminx!,my2#
  27. axy@ dbmaxx!,dbminy!
  28. ;
  29. axy@ mx2#,dbmaxy!
  30. axy@ dbmaxx!,dbminy!
  31. ;
  32. axy@ dbminx!,dbmaxy!
  33. axy@ dbmaxx!,my1#
  34. back@
  35. delete_edits@ 4,1
  36. back@
  37. 100
  38. OK_Cancel "Do you need to delete data Inside a window?",OK
  39. if OK=0 then end
  40. ;layer_alloff@ 0
  41. view_minrepaint@ 0
  42. ;view_all@
  43. 101
  44. Print_msg "Click upper left corner of window to delete"
  45. getmousepos@ "Upper Left Corner"
  46. mx1#=mouseposx!
  47. my1#=mouseposy!
  48. Print_msg "Now click lower right corner of window to delete"
  49. getmousepos@ "Lower Right Corner"
  50. mx2#=mouseposx!
  51. my2#=mouseposy!
  52. edit_delete@
  53. edit_group@
  54. edit_cross@
  55. axy@ mx1#,my1#
  56. axy@ mx2#,my2#
  57. back@
  58. delete_edits@ 4,1
  59. back@
  60. OK_Cancel "Any more areas to delete?",OK
  61. if OK=0 then goto 200
  62. goto 101
  63. 200
  64. View_all@
  65. end
  66. ;########################## END ############################
  67. ;###################    DELETE AREAS    ####################
  68. ;###########################################################
  69.                  
  70.