C-hook

[FRED CRETELLA]

Is there a c-hook to automaticly chart all coord. of all points or holes from an absolute 0 position?

[Roger Martin from CNC Software]

Did you try HoleTable.dll?

[FRED CRETELLA]

Yes I did, but it does not list a table of absolute values. It only list dia.'s of holes a nd lables them...not points. I think it could be a valuable c-hook to develop.

[Steve Landkamer]

This may be a silly work around but maybe you can script it out.

 

For the points you could do a "save as" then select all the points and save as an ASCII file.

 

For the arcs drillpt.dll will put the points in the center of the full circles, select all the points and do the ASCII again.

 

HTH

 

Steve

[FRED CRETELLA]

I"m a little fuzzy on how to do that, but it sounds pretty good.

[Steve Landkamer]

Fred,

I came up with this with a little help. It outputs the points XYZ value to an Excel file. You will need an empty Excel file named xyz.xls in the root of C.

 

HTH

Steve

 

code:

---

' -- Start Script

Call Main()

 

 

' ////////////////////

' Sub Declaration

' ////////////////////

 

Sub Main()

 

Dim dblExcelRow ' Stores the current Excel Row number we are writing to

Dim dblRowInc ' Row incrimentation for the Excel sheet.

Dim cPoint ' MasterCam point variable.

Dim cExcelFileName ' Full Name and Path to the Excel file.

 

' Start on the 1st Row on the XLS...

dblExcelRow = 1

 

' We want to advance 1 row at a time.

dblRowInc = 1

 

' Setup the Excel file...

cExcelFileName = "c:xyz.xls"

'

' NOTE : This REALLY should be obtained from the user via popup

' and include the option to create a new file.

 

' Open the Excel file...

OpenExcelFile cExcelFileName

 

 

' Initialize the Database for Searching.

If IsDrawing() Then

 

' Loop for each Enitity in the database.

DO

 

' Make sure our point var is empty.

Set CPoint = New McPt

 

' Get the x,y,z point data for the current Entity (-1)

If GetPointData(-1, cpoint) Then

 

' Store the x,y,z data

StorePointData2Excel cPoint, dblExcelRow

 

' Advance our row pointer so we are ready next trip..

dblExcelRow = dblExcelRow + dblRowInc

 

End If ' End If for : GetPointData(-1, cpoint)

 

' NextDBSearch() : selects and makes current the Next Entity if any.

' Returns True/False based on availability.

If NextDBSearch() = False Then

' No next point was available...

Exit Do

End IF ' End If for : NextDBSearch()

Loop

 

End If ' End If for : IsDrawing()

 

 

SaveExcelFile"c:xyz1.xls"

CloseExcelFile

 

' The EXCEL process remains open after this script terminates.

' It does close when Mastercam is closed however.

' Repeated calls do NOT open multiple copies of Excel

' (unless something wrong happened during excecution)

 

 

End Sub

 

 

' ////////////////////

' Function Declaration

' ////////////////////

 

Function IsDrawing()

Dim Ret

'Initialize the Database for access.

' This also sets the first Entity as the current Entity.

Ret = StartDBSearch(mc_alive, mc_pointtype)

IsDrawing = Ret

End Function

 

 

' ////////////////////

' Function Declaration

' ////////////////////

 

Function StorePointData2Excel(ByRef pcPoint, ByVal pdblRowInc)

 

Dim strCellA

Dim strCellB

Dim strCellC

' Dim strCellD

 

StorePointData2Excel = False

 

'get point data

strCellA = "a" & pdblRowInc

strCellB = "b" & pdblRowInc

strCellC = "c" & pdblRowInc

' strCellD = "d" & pdblRowInc

 

WriteExcelValue strCellA,Round(pcPoint.x,5)

WriteExcelValue strCellB,Round(pcPoint.y,5)

WriteExcelValue strCellC,Round(pcPoint.z,5)

' WriteExcelValue strCellD,pdblRowInc

 

StorePointData2Excel = True

 

End Function

---

[FRED CRETELLA]

Hi Steve,

I finaly got back on this site...so I just read this. Thank you very much for your help! Where exactly do I copy this file into. I'm not quite sure how to do this.

[FRED CRETELLA]

Hi Steve,

I finaly got back on this site...so I just read this. Thank you very much for your help! Where exactly do I copy this file into. I'm not quite sure how to do this.

[Colin Gilchrist]

Fred,

 

I believe that is a VB script. To make it work, copy the text and paste it into a text editor like the Mastercam X editor or Notepad. Save the file as "points.vbs". I would save it into your C:"Mastercam X installation folder"vb file location.

 

Then open your file in Mastercam, and go to Settings | VBScript...

 

In the dialog box, navigate to your VB script file and press "Run".

 

That should work.

 

HTH,

[FRED CRETELLA]

Thank you very much for the info. I will give it a try.

[FRED CRETELLA]

I Have tried the script and got this error

 

vbscript compilation error

iactivescript site

::onscript error()

line end function.

 

Can anyone debug this message?

Thanks...

[jesse farr]

does anyone know if there is a chook for GD&T.

i used it in 9 but i cannot find it for X.

 

Thanks