home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / BLUECAD / MACRO.RX_ / crsim.rxm < prev    next >
Encoding:
Text File  |  1995-09-29  |  2.2 KB  |  52 lines
  1. /*****************************************************************************/
  2. /*                                                                           */
  3. /*  BlueCAD REXX Macro                                                       */
  4. /*                                                                           */
  5. /*  Esempio dell'uso di macro in linguaggio REXX in BlueCAD                  */
  6. /*                                     -  Creazione di un simbolo  -         */
  7. /*                                                                           */
  8. /*  (c) 1995 CadWare s.r.l.                                                  */
  9. /*                                                                           */
  10. /*****************************************************************************/
  11.  
  12.    call CADOutMes 'Inserisci i due vertici di un rettangolo'
  13.  
  14.                                    /* Input dei due vertici di un rettangolo */
  15.    call CADInput 'POINT', 'p1'
  16.  
  17.    call CADInput 'POINT', 'p2'
  18.  
  19.                         /* Apro la coda delle primitive presenti nel disegno */
  20.    que = CADDbOpenQue( 'PRIQUE' )
  21.  
  22.                /* Creo i quattro segmenti lati del rettangolo e ne memorizzo */
  23.                                                          /* l'identificatore */
  24.    call CADCmd 'segmento' p1.x','p1.y p2.x','p1.y
  25.    id1 = CADDbLast( que, 'codice' )
  26.  
  27.    call CADCmd 'segmento' p2.x','p1.y p2.x','p2.y
  28.    id2 = CADDbLast( que, 'codice' )
  29.  
  30.    call CADCmd 'segmento' p2.x','p2.y p1.x','p2.y
  31.    id3 = CADDbLast( que, 'codice' )
  32.  
  33.    call CADCmd 'segmento' p1.x','p2.y p1.x','p1.y
  34.    id4 = CADDbLast( que, 'codice' )
  35.  
  36.                                                /* Chiedo il nome del simbolo */
  37.    call CADOutMes 'Inserisci il nome del simbolo'
  38.    call CADInput 'STRING', 'nomesim'
  39.  
  40.                      /* Inserisco i quattro segmenti nella coda di selezione */
  41.    call CADClearSel
  42.    call CADInsel id1
  43.    call CADInsel id2
  44.    call CADInsel id3
  45.    call CADInsel id4
  46.  
  47.                                                           /* Creo il simbolo */
  48.    ids = CADCrSim( nomesim.str, p1.x, p1.y )
  49.  
  50.                                            /* Chiudo la coda delle primitive */
  51.    call CADDbCloseQue que
  52.