PCI request

[tummen]

Im still struggling to understand recorded PCI´s and can still not make my own really.
Therefore i now hope someone has code to share.
It does not need to complete all i want, if you have a part of this to share im happy for this too.

What do i want to do?
Background:
When i make a cnc-program my code is output without information about the stock. Today i have to hand code in comments about size of the stock to be used.
My wish:
A PCI that would ask me to select a box like the stock, and from this make a comment with its max and min values in XYZ.
I could from this also generate better start block for our heidenhain simulation as a spinoff.

[MIKEL12]

I have only done some simple PCI:s but I started reading a little and maybe you could use %Query together with %ASKDIGINFO or something similar to get information about the stock.

Your going to need the PCI manual, found one through google. But I think they ship the documentation together with edgecam, that will give you a much more current document.

PCI manual:
ftp://www.itisvinci.com/Docenti/Leva...20PDFs/PCI.pdf

[jtreanor]

* ASKDIG will return the location of the screen digitize (snap) only
* not always a precision input

%ASKDIG=Digitize for an X value=TEMP
%calc=My_X=[&XSnap]

%IF ABS[My_X]<0.0001
%calc=My_X=0.0
%ENDIF

%calc=My_X=[My_X]*10000
%calc=My_X=INT([My_X])
%calc=My_X=[My_X]/10000

%messagebox=X location is [My_X]

%END


* INITDIGINFO creates a buffer to hold information
* ASKDIGINFO puts entity info into the buffer
* QUERYDIGINFO assigns the buffer element info to system variables
* FREEDIGINFO clears the buffer X-Line

%INITDIGINFO=X_Line
%ASKDIGINFO=howTerm,NumDig=Digitize an X axis line=[X_Line],[#ENTITYDIG],1,0,[#false]
%ADDFINISHDIG=[X_Line],[#FINISH]
%QUERYDIGINFO=nret=[X_Line],0

%calc=Xstart=[&XSTART]
%calc=Xend=[&XEND]

%messagebox=X Start is [Xstart], X End is [Xend]

%FREEDIGINFO=[X_Line]

%END