home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / BLUECAD / MACRO.RX_ / dbscan.rxm < prev    next >
Encoding:
Text File  |  1995-09-30  |  2.0 KB  |  47 lines
  1. /*****************************************************************************/
  2. /*                                                                           */
  3. /*  BlueCAD REXX Macro                                                       */
  4. /*                                                                           */
  5. /*  Esempio dell'uso di macro in linguaggio REXX in BlueCAD                  */
  6. /*                              -  Scansione del data base disegni -         */
  7. /*                                                                           */
  8. /*  (c) 1995 CadWare s.r.l.                                                  */
  9. /*                                                                           */
  10. /*****************************************************************************/
  11.  
  12.  
  13.                          /* Apro la coda delle primitive presenti nel disgno */
  14.    sel = CADDbOpenQue( 'PRIQUE' )
  15.  
  16. /*------------- Scansione del data base di un disegno in memoria ------------*/
  17.  
  18.                                              /* Primo elemento nel data base */
  19.    id = CADDbFirst( sel, 'code' )
  20.    do while id > 0
  21.  
  22.      msg = 'id =' id 'codice primitiva =' code
  23.      CADMsgBox( msg, 'Scansione data base' )
  24.  
  25.                                  /* Riconosce una primitiva di tipo segmento */
  26.      if code = 10 then
  27.        do
  28.        CADDbSegm( id, 'pt', 'attrib' )
  29.        msg = pt.P1x','pt.P1y  pt.P2x','pt.P2y
  30.        CADMsgBox( msg, 'Estremi segmento' )
  31.        end
  32.  
  33.                                      /* Riconosce una primitiva di tipo arco */
  34.      if code = 1 then
  35.        do
  36.        CADDbArc( id, 'arc', 'attrib' )
  37.        msg = arc.Cenx','arc.Ceny arc.Rad
  38.        CADMsgBox( msg, 'Centro e raggio arco' )
  39.        end
  40.  
  41.                                           /* Prossimo elemento nel data base */
  42.      id = CADDbNext( sel, 'code' )
  43.      end
  44.  
  45.                                            /* Chiudo la coda delle primitive */
  46.    call CADDbCloseQue ( sel )
  47.