Formulare VB in CATIA

#1
dustcp

Posted 24 July 2012 - 14:59

Junior Member

Grup: Members
Posts: 84
Înscris: 07.10.2010

Salut!
Am inceput sa ma joc putin in Visual Basic si vreau sa fac un formular simplu pe care sa il folosesc in CATIA. Formularul are un buton prin care iau valoarea introdusa dintr-un text box si o atribui unui parametru din piesa, dupa care fac update pentru piesa.
Dar imi da batai de cap, cred ca nu apelez cum trebuie piesa din Visual Basic. Nu am lucrat in VB pana acum, doar foarte putin in Visual FoxPro.
Puteti sa ma ajutati cu script-ul pentru buton sau macar pentru corelarea formularului cu piesa mea in asa fel incat sa inteleg sintaxa si sa pot sa extind mai departe?
Multumesc!

Back to top

#2
ferdo

Posted 29 July 2012 - 12:43

Junior Member

Grup: Members
Posts: 158
Înscris: 09.06.2008

Ca sa te putem ajuta, ar trebui sa vedem codul incercat , asa se poate "puncta" cel mai bine.....

Back to top

#3
dustcp

Posted 22 August 2012 - 14:12

Junior Member

Grup: Members
Posts: 84
Înscris: 07.10.2010

Scuze de intarziere, am avut ceva probleme cu calculatorul si cu Catial. Ideea e ca am pierdut tot ce am avut, am rescris "liniile de cod", dar acum nu se intampla nimic (inainte imi apareau erori).
Acesta e codul dintr-un textbox din formular

Sub CATMain()

Private Sub Command1_Click()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("PartBody")

Set shapes1 = body1.Shapes

Set param1 = part1.Parameters

Set param1.Lungime = 60

part1.Update

End Sub

Back to top

#4
ferdo

Posted 09 September 2012 - 20:12

Junior Member

Grup: Members
Posts: 158
Înscris: 09.06.2008

Salut,

Atasat ai un exempllu de vba, doar ca e facut in Excel si lucreaza cu CATIA.....codul il poti transfera in catvba si modifica dupa dorinta....CATPartul ar trebui sa fie facut cum arata in poza din fisier (adica formule, parametrii samd....).

Ai multe de nvatat in domeniul asta, sfatul meu este sa incepi cu documentatia din CATIA, adica fisierul chm din folderul bin (v5automation.chm).

Spor si scuze de intarziere (probleme neprevazute..) :-)

Attached Files

modify_parameters.7z 57.27K 27 downloads

Back to top

#5
dustcp

Posted 14 September 2012 - 08:52

Junior Member

Grup: Members
Posts: 84
Înscris: 07.10.2010

Multumesc mult! Chiar m-a ajutat fisierul Excel. Sper sa am cat mai rar nevoie de ajutorul dvs.

)

Back to top

#6
dustcp

Posted 09 April 2013 - 18:18

Junior Member

Grup: Members
Posts: 84
Înscris: 07.10.2010

Am tot cautat prin documentatie si pe net dar nu am gasit cum si daca se poate sa fac un buton care sa imi deschida un modul sau macar un formular din VBA.
Mai pe ocolite, stiu sa fac un buton care sa lanseze un Macro in CATIA, dar nu stiu cum sa fac Macro-ul sa imi deschida modulul sau formularul din VBA
Idei, sugestii ceva?

Back to top

#7
ferdo

Posted 10 April 2013 - 21:56

Junior Member

Grup: Members
Posts: 158
Înscris: 09.06.2008

' ===========================
' Purpose: Run a catvba from a CATScript
' Usage: 1 - A CATIA session must be opened
'		 2 - Run macro
' Author: few small explanations done by ferdo (Disclaimer: You use this code at your own risk)
' =============================
Sub CATMain()
Dim param()
Dim oFilePath, oFileName, oModule As String
Dim oSystemService As Variant
Set oSystemService = CATIA.SystemService
oFilePath = "C:\Makro\" 'path where catvba project is stored
oFileName = "Images2MSOffice.catvba" 'name of catvba project
oModule = "Capture_images_2_MSOffice" 'name of the module
Dim ss as Variant
Set ss = Catia.SystemService
ss.ExecuteScript oFilePath & oFileName , catScriptLibraryTypeVBAProject , oModule , "CATMain" , param
End Sub

Back to top

#8
dustcp

Posted 18 April 2013 - 11:56

Junior Member

Grup: Members
Posts: 84
Înscris: 07.10.2010

Multumesc inca o data ferdo!

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

Formulare VB in CATIA

#1 dustcp Posted 24 July 2012 - 14:59

#2 ferdo Posted 29 July 2012 - 12:43

#3 dustcp Posted 22 August 2012 - 14:12

#4 ferdo Posted 09 September 2012 - 20:12

Attached Files

#5 dustcp Posted 14 September 2012 - 08:52

#6 dustcp Posted 09 April 2013 - 18:18

#7 ferdo Posted 10 April 2013 - 21:56

#8 dustcp Posted 18 April 2013 - 11:56

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
dustcp

Posted 24 July 2012 - 14:59

#2
ferdo

Posted 29 July 2012 - 12:43

#3
dustcp

Posted 22 August 2012 - 14:12

#4
ferdo

Posted 09 September 2012 - 20:12

#5
dustcp

Posted 14 September 2012 - 08:52

#6
dustcp

Posted 09 April 2013 - 18:18

#7
ferdo

Posted 10 April 2013 - 21:56

#8
dustcp

Posted 18 April 2013 - 11:56