Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: lapek
  • Order by date
  1. lapek

    TPSVIew

    goodmorning everybody i want to get the plane coordinates of a TPSView in CATIA vba so i can compere those coordinates with the annotations in the product, here is the code Dim vwTPSView As DrawingView Dim dX As Double Dim dY As Double Dim dViewPlaneX1 As Double Dim dViewPlaneY1 As Double Dim...
  2. lapek

    exporting igs

    hi everybody, i have a wired issue i guess i have a macro that opens a product and save it as IGES buet the thing is that when i try to open the IGES file it came as part.igs.tmp hope you can help me, thank you so much Set obj = CreateObject("Scripting.FileSystemObject") Set Folder =...
  3. lapek

    Get Minimun Distance

    thank you so much for your answers i will try different ways to find a solution for this. thank you
  4. lapek

    Get Minimun Distance

    hi jagandeep sorry for the delay, i was out a while, thank you so much for this code, it really help me a lot i wonder if, this code just work for products? or it can be used also to mesure between partbodies within a part?
  5. lapek

    Reference Issue

    hi ferdo for now i just have two ways of serching for the edges of a surface and for the igs file that i have its taking like 30 por 40 minutes, the codes are below, is there a faster way? if so, could you guide how to do it, i am lost, thank you CODE # 1 Dim Language Language="VBSCRIPT"...
  6. lapek

    Reference Issue

    is there a faster way to count the edges of a surface? i have a part thet hace 270 surfaces, and extracting and count one by one is taking a long time hope some body can help me, thank you
  7. lapek

    Reference Issue

    yes actually when doing the macro i open the cat part and convert it as a IGS and i work like that, but as you can see i am not to familiar with the vbs, and some times im lost,
  8. lapek

    Reference Issue

    yes i just saw a post with the following code, thank you so much for your respose, whant i want to do i to extract all the possible geometry from a selected face in a TXT, because we want to create a program that analyse in a different program, and it has to do it automaticly, so i found that...
  9. lapek

    Reference Issue

    hi ferdo thank you so much for your helpful response, the code is running perfectly and fast, when i am trying to count the edges of a face it only runs once, and i have issue with the reference again can you help me find where my error is thank you so much, here is the code i am using, at...
  10. lapek

    Reference Issue

    hi every body, i dont really know how to solve this, my code count the faces of the part and calculate the area of the surface but some how is not getting the reference hope you can help me. Sub CATMain() CATIA.ActiveDocument.Selection.Clear Set objsel = CATIA.ActiveDocument.Selection...
  11. lapek

    Change Views

    wow that great, thak you so much, for your answer it works perfectly
  12. lapek

    Change Views

    hi every body im having a trouble tryng to get the isometric view. the code im using is the following. under this code i change the view of the part and trying to get the isometric so the part can rotate from the isometric, but what is doing, is rotaring to isometric from the last rotate my...
  13. lapek

    Get Minimun Distance

    hi itsmyjob, thats a great idea, thank you so much for your answer is there any way to do it in a macro?
  14. lapek

    Get Minimun Distance

    hi everybody i have an issue, hope you can help me with this well i have a product with abot 130 parts, and i need to know the distance between each part, doing it manually is terrible, hope you can help me with this, thank you
  15. lapek

    align with axis

    hi everybody I have no idea on how to solve this issue, I hope you can help me with this here is the thing, I have the following part, when you open it, the part is in the space and is how I get the part, what I need to do, is to align the center line with the x-axis, the Y pointing up and Z...
  16. lapek

    Error on VBS

    oooo yes sure here is the code Dim oFoundEdges Set oFoundEdges = CreateObject("Scripting.Dictionary") For j = 1 To osel.Count sEdgeName = osel.Item(j).Value.name Dim aEdgeName aEdgeName = Split(sEdgeName, "face") sEdgeName = "face" & aEdgeName(UBound(aEdgeName)) If InStr(sEdgeName...
  17. lapek

    Error on VBS

    I don't understand the question if I can elaborate de code? or de collection?
  18. lapek

    Error on VBS

    thak you for your answer I found that collection can not be used I use CreateObject("Scripting.Dictionary") and it works perfectly thank you for your help
  19. lapek

    Error on VBS

    hi, itsmyjob thank you so much for your answer I tried that already, but on VBS does not accept any as ...., so I had to erase it, at this point I don't know what to do. hope you can guide me trough thanks
  20. lapek

    Error on VBS

    hello guys I have this code, and when running in in CATIA it gave me an error, hope you can help me Dim oFoundEdges Set oFoundEdges = New Collection '(the component active x can not create the object "collection") For j = 1 To osel.Count sEdgeName = osel.Item(j).Value.name Dim...

Part and Inventory Search

Back
Top