Here is the full code to show how the parts are selected by a user, added to a collection, then hopefully copied and pasted into a newly created product.
'filter what to select
Dim filter(0)
filter(0) = "Part"
'select the parts
Dim theOldPart As String
Dim partSelection
Set...
This was only a snippet of the code but basically I have the user select some data and add it to a collection, then the user could select more data and is added to the collection. Then the collection is copied and pasted into the new product.
http://excelspreadsheetshelp.blogspot.com -...
Has anyone had any issues with "CATPrtResultWithOutLink" to paste "AsResult" not working? I'm trying to paste a product into a newly created product but nothing gets pasted in. Using "CATPrtCont" to paste "As Specified In Part Document" results in an error.
here is a quick example code:
Dim...
Yes, I need all edges including internal edges.
I tried deleting the JOIN step as you suggested and it does help some. The search for edges step (selection1.Search "Topology.CGMEdge,sel") is usually pretty quick, less than 15 seconds.
Just adding up the length of the edges using Measurable...
Sorry, I should have listed out all the steps to make the purpose of the program more clear. Here are the steps:
1. Run the program
2. User selects a Join surface in the CATPart
3. Macro searches for all edges of the selected surface and selects them (1000 edges takes around 20 seconds to...
Hello. I've created a CATVBA program that finds all the edges of a surface and then joins them together. The problem is if there are 700 edges (a medium sized part) then it takes 5 - 10 minutes for the macro to run as it adds all the edges one by one. Is there any way to increase the speed so it...
I never got Sendkeys to work with CATScript but I did get this to work in VBA:
CATIA.RefreshDisplay = True
AppActivate "CATIA V5"
SendKeys "c:Activate" + Chr(13), True
Application.Wait Now + TimeValue("00:00:05")
The weird thing is it only activates the selected feature when I run the program...
So just a few days ago I could type c:Activate into the power input box and it would activate the selected geometry but for some reason that is not working anymore. Any idea why it suddenly stopped working? I never got send keys to work in my code either.
When I manually select a capture then type c:Activate into the input box it successfully activates the Capture and I can also type c:Exit fhe Capture to exit it too. However, I can't get this to work in a macro. Here's an example of something I tried:
Dim sSel As Selection
Set...
Thanks Ferdo! I adapted to my code and that part works perfectly. My final question is how do you edit an existing Capture? Typically I would double-click a capture, hide or show the annotations under the views as needed, then click "Exit from capture" (like you're exiting a sketch) and it will...
Thanks for the reply Ferdo but how do you search in FTA workbench for Functional Tolerancing & Annotation Element? I'm not quite sure what you mean.
http://excelspreadsheetshelp.blogspot.com - http://scripting4v5.com
Hello. I'm trying to hide/unhide annotations under a specific View in a CATPart. I can count the total number of views but am not able to change a View's name. I can find the specific View using Search but am not sure if there is a way to access the annotations listed under that view. Attached...
Select the geo set first then run the macro with this:
selection1.Search "Name=Point'.'*,sel"
http://excelspreadsheetshelp.blogspot.com - http://scripting4v5.com
Try adding ReferenceProduct:
Set oDocument = CATIA.ActiveDocument
Set oProduct = oDocument.Product
Set oProducts = oProduct.Products
Set product2 = oProducts.Item(2).Referenceproduct
MsgBox product2.Name
product2.PartNumber = "rename test"
Add something like this to your loop:
Set...
Define the numeric value by adding these before the other code:
Const xlCenter = -4108
Const xlBottom = -4107
http://excelspreadsheetshelp.blogspot.com - http://scripting4v5.com
