Jump to content

Welcome to eMastercam

Register now to participate in the forums, access the download area, buy Mastercam training materials, post processors and more. This message will be removed once you have signed in.

Use your display name or email address to sign in:

Günther Massimo - GMCCS

Resellers
  • Posts

    554
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Günther Massimo - GMCCS

  1. Roger, you can create and acces an excelsheet from a .set or a .pst file with wscript. Put this code in a .pst or .set file and make a post run. code: bug1:2 bug2:0 bug3:0 bug4:0 fastmode:0 whatno : yes strtool_v7 : 2 tooltable:yes fs 1 1^0 n fs 2 1.3 nt fmt 2 t fmt 2 tldia fmt 2 tcr sbufname1 tools_xls.vbs fbuf 1 1 80 0 result:0 str1 "wscript.exe" str2 "tools_xls.vbs" wc1:1 line:0 row:1 col:1 srow scol sdia srad szmin szmax stnr sline srow_col s0 'Dim xs' s01 'Set xs=CreateObject("Excel.Application")' s02 "xs.visible=true" s03 "Set newBook = xs.Workbooks.Add" s04 "With newbook.activesheet" s05 '.cells(1,1).value="WZ-Nr."' s06 '.cells(1,2).value="WZ-Name"' s07 '.cells(1,3).value="WZ-Durchmesser"' s08 '.cells(1,4).value="WZ-Eckradius"' s09 '.range("A1:G1").Select' s10 "xs.selection.font.bold=true" s11 '.Columns("A:G").Select' s12 "xs.selection.HorizontalAlignment = -4108" s13 '.Columns("A:G").EntireColumn.AutoFit' s14 '.range("A2").Select' s15 "End With" s16 ".cells(" s17 ').value="' s18 '"' s19 "," svbs fstrsel s0 line svbs pheader while line<15,[ result = updstr (svbs) svbs = wbuf(1, wc1) line=line+1 ] peof s15 = wbuf(1, wc1) result = fclose(1) result = launch(str1, str2) ptooltbl if t>0,[ row=row+1 stnr = no2str(t) sdia = no2str(tldia) srad = no2str(tcr) col=1 srow=no2str(row) scol=no2str(col) srow_col=srow + s19 + scol sline = s16 + srow_col + s17 + stnr + s18 sline = wbuf(1, wc1) col=2 scol=no2str(col) srow_col=srow + s19 + scol sline = s16 + srow_col + s17 + strtool + s18 sline = wbuf(1, wc1) col=3 scol=no2str(col) srow_col=srow + s19 + scol sline = s16 + srow_col + s17 + sdia + s18 sline = wbuf(1, wc1) col=4 scol=no2str(col) srow_col=srow + s19 + scol sline = s16 + srow_col + s17 + srad + s18 sline = wbuf(1, wc1) ] 1501. Insert parameter information in the ascii NCI? n 1502. Write operation information to binary file (.ops)? y 1999. ? 9 This is just to show you how it works. regards
  2. quote: Is your Chook version specific? Does it work with V9.1? Thad No. It should work on all versions.
  3. quote: Why don't you put that file up on the ftp site for all to get a copy of. Here you are. Look under the c-hook folder.
  4. Hi pthosa, check your IN-Box. I've posted stl2surf.dll. A small c-hook (4kb). It can do the job.
  5. quote: Zero, When I use this c-hook, my scroll wheel doesn't work for anything else. This will be fixed in V9.1.

Join us!

eMastercam - your online source for all things Mastercam.

Together, we are the strongest Mastercam community on the web with over 56,000 members, and our online store offers a wide selection of training materials for all applications and skill levels.

Follow us

×
×
  • Create New...