Return to Statement

Plot a Drawing Example

The following is an example of translating the returned plot ID number into a string using ISTR.

   $$
   $$ EXAMPLE PLOT PROGRAM
   $$
   NUMBER/P
   $$
   $$ ENSURE A NEW ACTIVE PART
   $$
   FTERM/PART,IFERR,WC:
   WC:
   CREATE/PART,'DRAWING',INCHES
   $$
   $$ CREATE 11 X 11 DRAWING
   $$
   DRAWC/'DRAWING',11,11
   $$
   $$ PLOT DRAWING AND DISPLAY JOB ID
   $$
   P = PLOT/'HP','DRAWING'
   MESSG/'PLOT ID = ',ISTR(P)
   HALT

The following example program changes the plot node sever, builds a plot file from a drawing of an active part, and releases the plot.

   $$
   $$ SPECIFY PLOT NODE
   $$
   PLOT/'>node:PS','SH1'
   HALT