;=============================RAPPIDDIM MAKRO================
;THIS MACRO HAS BEEN WRITTEN IN 02-nov-2003 ,edited at 09-09-04;
;PLACE:    GREECE
:AUTHOR:   ANASTASIOS N.NEROUTSOS;
:COMMENTS: THE MACRO MAKES QUICK DIMENSIONS LIKE THE (_qdim) COMMAND IN ACAD 2002;
;MENU:     aytonomous;
;LICENCE:  FREE FOR ANYONE 
; E MAIL:  anero@tee.gr
;=====================================================================;
;
  .ARXIKOPOIHSH;	arxh toy macro
  /MSP,++;
  /XMD,++;
   MO;                    
  ;
   .APXH;
   /PMT,1,#,/PMT,2,#,/PMT,3,#;      
   /PMT,1,'Pick Line to [DIMENSION]...',#; 
   SO,@;  
  /if,$derr[eq]-2,/gto,telos;

   /CEL,F,L,!,A,!,O,TK,L,PU,!;          epilegei grammh 
   /EEX,1,P,1,A,/VPT,1,$PNTX,$PNTY;     exagei ta X, Y
   /EEX,1,P,2,A,/VPT,2,$PNTX,$PNTY;         "
;
   /PMT,1,'Pick [DIRECTION] .................',#; 
     	A1,$X(1),$Y(1),$X(2),$Y(2),!,@,!;
        /del;
      /GTO,APXH;
     ;
    .TELOS;
   /pmt,2,#,/pmt,3,#;
   /PMT,1,' ...By [ANA]Soft and Ana[STASIOS] 2004...',#,/cin;    
   /MSP,--,;
   /XMD,--,;
  ;............TELOS  TOY MACRO....................................;