batch plot

collect list or repot it in notepad..or excel..

Hi,
i want same but for pdf then how i can write the code.

sheet print to pdf. just put it into do loop circle with sheet collection


if (!!CE.Type NEQ 'SHEE') then
  !!Alert.Message('Goto Sheet'
    return
endif

!OF2FN = 'c:temp\Drawings\2D\'
!OF2 = object file(!OF2FN)
if (!OF2.Exists().Not()) then
  SYSCOM 'MKDIR $!OF2'
endif

!fileName = !OF2FN + !!CE.Name.Replace('/','_').Replace('\','_') + '.pdf'
PLOT CE PDF/$!fileName 'Text' OVER

!needOpen = !!Alert.Question('Open file? If NO, folder will be open')
if (!needOpen EQ 'YES') then
  SYSCOM '$!fileName &'
elseif (!needOpen EQ 'NO') then
  SYSCOM 'EXPLORER $!OF2FN &'
else
endif



Where is Setup form commands?

plot /SHEETNAM  pdf /pATH ' MTNL .022, COL BW SHEET'A3 OVER

BUT AM NOT GETING WHITE LINES FROM BACKING SHEET


EVEN I CHANGED COL BW TO GREYSCALE/STANDARDS ETC


ANYBODY CAN HELP ME HERE?

this is the error while click on the button

(2,779)   Method .PLOT1() not found
In line 1 of Command/Form Callback Command
!THIS.plot1()

below is my macro can anybody tell me what is wrong in that or correct it.
thanks




button   .REG          'REGISTRY:'          CALL |!THIS.REGI()| para .Toggle  At Xmax .reg + 1   width 30 height 1
list     .List1       ''                                 at xmin.REG   ymax.REG +.2   MULTIPLE      width  40  height 10
button   .PL         'PLOT'          CALL |!THIS.plot1()|    at xmin.List1 +1 ymax+.2


----------------------------------------------------------------------
DEFINE METHOD .REGI()


!REGI = REGI


HANDLE(2,111)
!!alert.error('You must be on or below a REGI')
ENDHANDLE


VAR !DRWGCOLL COLL ALL SHEE FOR $!REGI.name
VAR !List1Array EVAL NAME OF SHEE FOR ALL FROM !DRWGCOLL


!THIS.TOGGLE.VAL = '$!REGI.NAME'
!THIS.LIST1.dtext = !List1array


endmethod
----------------------------------------------------------------------
DEFINE METHOD .plot1()




!SelectionList = !This.List1.Val
!SelectionCount = !SelectionList.Size()


Do !x from 1 to !SelectionCount
   !Drawing = !This.List1.Dtext[$!SelectionList[$!x]]
   VAR !FirstPart  (|C:\TEMP\PLOTS\|)
   VAR !SecondPart (|.S1.plt|)


   !DrawingName = !Drawing.Before('/S1').AFTER('/').REPLACE('/','-')
   !NewText = !FirstPart + !DrawingName
 
   $!Drawing
   Var !ViewColl coll all view for CE
   !ViewCount = !ViewColl.Size()
   
   Do !a From 1 to !ViewCount
       $!ViewColl[$!a]
       !lframe = lframe
       if(!lframe eq TRUE) THEN
       lframe off
       HANDLE ANY
       ENDHANDLE
       endif
   enddo


$P $!Drawing ------ Sent To Printer!!
PLOT $!Drawing /$!NewText CUTM OFF over
syscom |%CADC_PLOT_DIR%\7S-PRT1.bat  $!NewText|
syscom |del $!NewText|


enddo






endmethod

[COLOR=#333333]Where is Setup form commands?[/COLOR]

+Where is 'exit' command---->end of gadget declaration

 

235101BatchPrintingInstructions.zip

http://52.178.132.139/showthread.php?t=17393&p=97053#post97053