iges point cloud

[VONDY]

Is there a way to export an iges point cloud automatically after running each part?

[VONDY]

Same question - No responce the first time - Just trying again

I have 42 pieces they want ran through and they want the point cloud after each check. Then there are 3 more operations and they want each of those saved also. Any help will be much appreacheated.

[Matthew D. Hoedeman]

I can't think of anyway to do it automatically.

[jon_dav_uk]

What Matt said, we cannot even automate this when scanning with our Metris LC 50 laser

[VONDY]

Matt, that's not really the answer I was hoping for - How about trying again with something just a little better.
I was hoping a code that could be written or just anything. I will be having all 3 shifts working on this and I know one of them will screw it up and we'll end up having to go back through them a second time to correct there errs.

I have know problem exporting them after each test, I just have to go into export every time and choose to save it. Rather be able to do it automatically.

Thanks for your comments.

[Matthew D. Hoedeman]

Matt, that's not really the answer I was hoping for - How about trying again with something just a little better.
I was hoping a code that could be written or just anything. I will be having all 3 shifts working on this and I know one of them will screw it up and we'll end up having to go back through them a second time to correct there errs.

I have know problem exporting them after each test, I just have to go into export every time and choose to save it. Rather be able to do it automatically.

Thanks for your comments.

OK, how about this answer:

Sure, you can do it, all you need to do is put, at the end of the program, the following text:

Dang, I'm screwed if the idiot operators don't save the point cloud so please save it for me now.

I am not sure if that will work as I have not tried it yet.

[Peter Warcholyk]

Matthew,

I could not have said it any better myself. Cudos to you!!

Regards,
ZydecoPete

[VONDY]

That's exactly the answer I was looking for - I entered it into all those programs - I am positive it work perfectly for me as I know all of your suggestions are usually right on the mark. Thanks again!

[Matthew D. Hoedeman]

That's exactly the answer I was looking for - I entered it into all those programs - I am positive it work perfectly for me as I know all of your suggestions are usually right on the mark. Thanks again!

Oh, it's fun to laugh that hard, every now and again!

Oh, we could suggest to B&S that it be added as an 'improvement' to Pcdmis! I am sure it wouldn't ahve any adverse effect on the rest of the functioning of the software.

Oh, dang, I just burst my side laughing, dang, just peed my pants, too!

[jmgreen]

This may not be exactly what you want, but I put code in to have the measured values and deviation automatically put in a file each time a part is run. I can then take the XYZ values into cad (UG) and have it create a point cloud from the points or just use the deviation values to make all the pretty graphs and charts that QC likes to play with. Here is an example.


PART =LABEL/
RECALL/ALIGNMENT,INTERNAL,L42wsTEST
ASSIGN/G = 1
TOP =LABEL/
ASSIGN/P = 0
FPTR =FILE/OPEN,C:\PCDMISW_37\DATA\L42A\L42A-WS-WIPERPTS.CSV,READ
MOVE/POINT,NORMAL,658.4716,879.7868,1309.0758
COMMENT/REPT,THESE ARE POINTS 50X50mm, L42A WS
,
WHILE/P<453
ASSIGN/P = P+1
V1 =FILE/READLINE,FPTR,{X}+","+{Y}+","+{Z}+","+{I}+","+{J}+ ","+{K}
ASSIGN/QX = X
ASSIGN/QY = Y
ASSIGN/QZ = Z
ASSIGN/QI = I
ASSIGN/QJ = J
ASSIGN/QK = K
P =AUTO/SURFACE POINT,SHOWALLPARAMS = YES
THEO/QX,QY,QZ,QI,QJ,QK
ACTL/349.7253,-700.1888,657.8461,-0.4758742,-0.3828987,0.7917906
TARG/QX,QY,QZ,QI,QJ,QK
THEO_THICKNESS = 0,RECT,SNAP = NO,$
AUTO MOVE = BOTH,DISTANCE = 10,RMEAS = None,None,None,$
INIT = 0,PERM = 0,SPACER = 0
DIM PT= LOCATION OF POINT P UNITS=MM ,$
GRAPH=ON TEXT=OFF MULT=100.00 OUTPUT=BOTH
AX NOMINAL MEAS +TOL -TOL DEV OUTTOL
X QX 349.7253 3.0000 -3.0000 -0.2747 0.0000 ----#----
Y QY -700.1888 3.0000 -3.0000 -0.1883 0.0000 ----#----
Z QZ 657.8461 3.0000 -3.0000 0.4807 0.0000 -----#---
T 0.0000 0.5834 3.0000 -3.0000 0.5834 0.0000 -----#---
END OF DIMENSION PT
ASSIGN/DUMPNAME = ("C:\PCDMISW_37\DATA\L42A\WSWIPER")+G+(".TXT")
FPTR2 =FILE/OPEN,DUMPNAME,APPEND
ASSIGN/ALLVALS = (PT.X.MEAS)+","+(PT.Y.MEAS)+","+(PT.Z.MEAS)+","+(P T.T.MEAS)
FILE/WRITELINE,FPTR2,ALLVALS
FILE/CLOSE,FPTR2,KEEP
END_WHILE/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=20,$
TO_PRINTER=OFF,DRAFTMODE=OFF,$
TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMEN SIONS=NO,$
PREVIOUS_RUNS=DELETE_INSTANCES
FILE/CLOSE,FPTR,KEEP
ASSIGN/G = G+1
C2 =COMMENT/YESNO,NO,MEASURE ANOTHER PART?
IF_GOTO/C2.INPUT=="YES",GOTO = TOP

[QCinTN]

Here's another way. It's not completely automatic but it might help.

It'll keep prompting for a sample number until the operator enters a number that hasn't been used before. This number will be appended to the end of the hard-coded filename. The basic script will start the export process, but the operator will still have to press the "Process" & "OK" buttons to complete the export.

You could, of course, do away with the entering of a sample number if you already have some other way of getting a unique name elsewhere in your prg.

Put something similar to this at the bottom of the .prg (be sure and send in the arg1):

L1 =LABEL/
C1 =COMMENT/INPUT,NO,'Sample #'
ASSIGN/V1 = "someFileName"+C1.INPUT+".igs"
V2 =FILE/EXISTS,V1
IF/V2==1
COMMENT/OPER,NO,already exists... try again
GOTO/L1
END_IF/
CS1 =SCRIPT/FILENAME= C:\PROGRAM FILES\WAI\PC-DMIS V41\PROGRAMS\TEST.BAS
FUNCTION/Main,SHOW=YES,ARG1=V1,,
STARTSCRIPT/

Create a test.bas file with this:

Sub Main (s As String)
Dim part As Object
Dim app As Object
Set app = CreateObject("PCDLRN.Application")
Set part=app.ActivePartProgram
x=part.Export(s)
End Sub

p.s. If you want complete automation, you could use a macro (they're slow though) and then have a basic script rename the file (since the macro will create the same file name each time).

[Lee Johnson]

Another thing you could do is Rename the program using the serial number in the name. At least this way you would have 30 programs and if one of them was messed up the Data would still be intact to do whatever you want with it.