macro to save selected partsto specified path failed

[llbbyy]

I creat a macro( see bellow) to save selected part to a specified Path but failed. any help will be appreciated.
''''''''''''''''''''
Language = "VBScript"

CATIA.DisplayFileAlerts = False
sub CATMain()
Set cad = CATIA.ActiveDocument
Set sel = cad.Selection
Set prod = cad.Product.Products
Set docs = CATIA.Documents

If sel.count =0 Then
MsgBox "Select parts from tree.", ,msgboxtext
Exit Sub
End If


docPath=InputBox("Enter the Path:")

for i=1 to sel.count

set doc1= docs.item(i)
doc1.saveas docPath & prod.item(i).PartNumber &".CatPart" 'failed here

next

End sub

 

[ferdo]

Hi,

Your macro is working fine but you need to have the selection in design mode and not in visualization mode.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[llbbyy]

It still doesn't work.How to set Selection in Design Mode?

 

[ferdo]

I suppose you are selecting only CATParts and nothing else...you can use CATIA.StartCommand or search in documentation how to put in design mode, is not difficult at all. For me is working in CATScript. Try first to put in design mode manually and see what is going on.


Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[itsmyjob]

set doc1= docs.item(i)

this is not linked with sel (your selection) so it will save each doc.item in the open document... this will not take selected part into account

Eric N.
indocti discant et ament meminisse periti ​

 

[llbbyy]

To itsmyjob,
thanks for your reply.
Yes,I find a macro in the forum, which can save all items to one folder, but I expect to save selected part to different folder,let say some to Folder A, some to Folder B, bolt and nut to a Fastener Folder, motor and cylinder to purchased part Folder,etc…

The question is how to link docs.item(i) to select parts
Take following as an Example
Product..
|---A
|---A
|---B
|---B
|---C
|---D
|---E

If I select the 5th to 7th parts, ie, C,D, and E, and save this three to a defined folder. I don't know how to link docs.item(i) to selected D and E?
The docs.item(i) can get the filename, I wonder how to get its partnumber or instance name , if its partnumber or instance name are got,I think doc.item(i) can link to selected parts through them.

 

[ferdo]

For what you want I suggest to use vba, with a pull down menu for your folders and do it in a loop (one selection, choose folder, save, another selection, choose other folder, save...), exit loop...is just a suggestion. Hope I understood you.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[llbbyy]

to ferdo,
Sorry to make you misunderstanding.
My purpose is to select some parts( say, part_1 to part_n,see bellow), and save them to a specified folder,for example, E:\wlding_jig\unit_1, which is input in InputBox.
I know this can be realised by saveas one by one, but it's wastetime.
------------------
welding_jig
|--------Unit_1
| |----part_1
| |----part_2
| |----part_2
| |----part_3
| |----part_3
| |----part_4
| .
| |----part_n
| .
| |----bolt_M10x65
| |----Bolt_M8x50
| |----nut_M10
| |----nut_M8
|
|--------unit_2
| |----
|

Thank you any way.

 

[ferdo]

You can use Send To Directory command, no macro need it....

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU