VBScript---Porgram measuring

[Michelle808]

Dear all,
I would like to ask how to show the distance between two lines with VBS code (Not with click measure function)

 

[ferdo]

Hi

You can try something like this (below code will not work, you need to search in docs and see what you want to do).


Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(hybridShapeLinePtDir1)
dist1 = TheMeasurable.GetMinimumDistance(hybridShapePointOnCurve1)

msgbox dist1 ''(or save in a text file and show that).


Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU

 

[Michelle808]

Thanks,Ferdo. I've solved my prob.