home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / truecad / macro / movept.mac < prev    next >
Encoding:
Text File  |  1993-04-19  |  404 b   |  25 lines
  1. rem macro to move a point to another point
  2. while(1)
  3.    {    
  4.    curmode j
  5.    cur "Select point to move" x y k
  6.    if(k)
  7.       {
  8.       curmode f
  9.       end
  10.       }
  11.    curmode a
  12.    cur "Enter point it should move to" x1 y1 k
  13.    if(k)
  14.       {
  15.       curmode f
  16.       end
  17.       }
  18.    enquire zoom x2 y2 x3 y3
  19.    i=(x3-x2)*.001
  20.    stretch "Y" [x-i,y-i] [#x+i,y+i] [x,y] [x1,y1] 
  21.    }
  22. end
  23.  
  24.  
  25.