home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / BLUECAD / MACRO.RX_ / select.rxm < prev    next >
Encoding:
Text File  |  1995-09-29  |  1.5 KB  |  37 lines
  1. /*****************************************************************************/
  2. /*                                                                           */
  3. /*  BlueCAD REXX Macro                                                       */
  4. /*                                                                           */
  5. /*  Esempio dell'uso di macro in linguaggio REXX in BlueCAD                  */
  6. /*                              -  selezione di primitive -                  */
  7. /*                                                                           */
  8. /*  (c) 1995 CadWare s.r.l.                                                  */
  9. /*                                                                           */
  10. /*****************************************************************************/
  11.  
  12.  
  13.                                                /* Selezione di una primitiva */
  14.    err = CADSelect( 1 )
  15.  
  16.    if err = 1 then
  17.      do
  18.  
  19.                                  /* Apro la coda delle primitive selezionate */
  20.      sel = CADDbOpenQue( 'SELQUE' )
  21.  
  22.      id = CADDbFirst( sel, 'code' )
  23.      do while id > 0
  24.  
  25.        msg = 'id =' id 'codice primitiva =' code
  26.        CADMsgBox( msg, 'Primitiva selezionata' )
  27.  
  28.                                    /* Prossimo elemento in coda di selezione */
  29.        id = CADDbNext( sel, 'code' )
  30.        end
  31.  
  32.  
  33.  
  34.                                            /* Chiudo la coda delle primitive */
  35.      call CADDbCloseQue ( sel )
  36.      end
  37.