|
CATIA V5 Programmierung : Makroübernahme V6
meisterlumpi am 18.08.2011 um 18:19 Uhr (0)
Zitat:Ich suche verzweifelt nach Firmen/Dienstleister, die sich auf V5 Programmierung spezialisiert haben, verwende aber wohl nicht die richtigen Suchbegriffe in google....versuchs mal mit catia plm http://www.cenit.de/ http://www.uniplm.de/ http://www.transcat-plm.com/
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 18.08.2011 um 08:25 Uhr (0)
falls das auch nicht funktioniert, dann ergänze mal diese funktion in dem modul was du grad erstellt hast (siehe meine antwort vor 5 min.)und änder die Zeile in der CATMain() entsprechend vonCode:MsgBox IsComp2(sel1)inCode:MsgBox IsComp3(sel1)____Code:Public Function IsComp3(iProduct As Product) As Boolean On Error Resume Next Dim P1 As Product, P2 As Product IsComp3 = True Set P1 = iProduct.ReferenceProduct falls das Objekt keine Product ist, ist es auch keine Component If Err.Number 0 Then Is ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 18.08.2011 um 08:10 Uhr (0)
folgendes (neues) modul könntest du noch probieren:Code:Sub CATMain() Call M_DocStructure.CATMain Dim sel As Selection Set sel = CATIA.ActiveDocument.Selection Dim sel1 As Product Set sel1 = sel.Item(1).Value MsgBox IsComp2(sel1) End SubPublic Function IsComp2(iProduct As Product) As Boolean On Error Resume Next Dim P1 As Product, P2 As Product IsComp2 = True Set P1 = iProduct.ReferenceProduct falls das Objekt keine Product ist, ist es auch keine Component If Err.Number 0 Then IsComp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokumentumgebung aktuell setzen
meisterlumpi am 17.08.2011 um 18:27 Uhr (0)
Hallo,das sieht schlecht aus. das thema wurde auch schon behandelt siehe: http://ww3.cad.de/foren/ubb/Forum137/HTML/000784.shtml#000005 an die DL names kommste mitCode:Sub CATMain() Dim settingControllers1 As SettingControllers Set settingControllers1 = CATIA.SettingControllers Dim dLNameSettingAtt1 As DLNameSettingAtt Set dLNameSettingAtt1 = settingControllers1.Item("CATSysDLNameSettingCtrl") Dim varArr() varArr = dLNameSettingAtt1.GetDLNameList For i = LBound(varArr) To UBound(varArr) Msg ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 17.08.2011 um 17:10 Uhr (0)
Die codezeile, die bei dir den fehler auslöst wird eigentlich nur dann aufgerufen wenn auch eine komponente in der baugruppe vorhanden ist. anscheinend wird sie bei dir immer aufgerufen was vermuten lässt, dass der fehler in zeile 62 liegt:Code:If M_DocStructure.IsComp(ParentProduct) Then IsComp überprüft ob das Product eine Komponente ist oder ein normales Produkt. dabei wird entweder wahr oder falsch zurückgegeben von der function. Ich gehe davon aus, dass die bei dir immer wahr zurückgibt.. das ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 23.08.2011 um 09:28 Uhr (0)
"Works fine on Win2003 server x64, both in R19 and R20 x64 releases." soll heißen, dass das makro bei ihm in der 64bit catia version (R19 & R20) funktioniert hat. er benutzt zwar win2003 server x64 anstatt win7, aber ich kann nicht wirklich glauben, dass hier das problem liegt.Es nervt mich nur ein bisschen, dass es nicht funktioniert :-) Aber eine idee hab ich noch. Probiers mal mit folgendem makro.. das funktioniert ganz für sich alleine, sprich mach ein neues projekt nur mit einem modul mit diesem code ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 22.08.2011 um 09:08 Uhr (0)
Ich hab leider keinen zugang zu ein 64bit catia, daher kann ich dir so direkt nicht weiterhelfen. im forum hab ich noch 2 themen gefunden die in die richtung gehen.http://ww3.cad.de/foren/ubb/Forum137/HTML/002979.shtmlhttp://ww3.cad.de/foren/ubb/Forum137/HTML/004138.shtml Zitat:schau mal im Visual Basic ob unter Extras - Verweise irgendwo "Missing" steht. Den Haken dort rausmachen.Edit:Ein Kollege hat mir gerade folgendes zurückgeschrieben Zitat:Works fine on Win2003 server x64, both in R19 and R20 x64 re ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Multivalueparameter ändern
meisterlumpi am 06.09.2011 um 13:02 Uhr (1)
Hallo nochmal,du kannst keine List- oder Combobox erstellen ohne Userform, sprich das geht nur mit VBA. Oder soll die Listbox in Excel erstellt werden? Dann würde ich den code direkt in ein excel makro packen.grußCode:Dim I, AnzahlZeilen, selEintrag, x As Integerdeklariert lediglich x als Integer. I, AnzahlZeilen und selEintrag werden (nicht gerade speicherschonend) als Variant deklariert.besser wäreCode:Dim I As Integer, AnzahlZeilen As Integer, selEintrag As Integer, x As Integer------------------ NJ | ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Visual C# 2010 oder Visual Basic 2010
meisterlumpi am 12.08.2011 um 08:33 Uhr (0)
mit Visual Basic for Applications bei catia meint man zumeist den eingebauten vba editor der sozusagen direkt mit catia "verschmolzen" ist. Visual Basic 2010 Express ist eine Programmierumgebung von microsoft für vb .net asp etc. Du kannst aber VB 2010 Programme schreiben in .net z.b. und dazu die catia com schnittstelle benutzen um wie im VBA Editor auf catia zuzugreifen. Zunächst musst du aber die benötigten catia namespaces unter den verweisen einbinden..Das Programmieren ist dann ziemlich das gleiche n ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : UserPattern kopieren
meisterlumpi am 23.07.2011 um 07:35 Uhr (0)
Hallo Azatzum Messen könntest du die SPAWorkbench verwenden.Code:Dim reference1 As Reference Set reference1 = part1.CreateReferenceFromObject(Punkt1)Dim reference2 As Reference Set reference2 = part1.CreateReferenceFromObject(Punkt2)Dim TheSPAWorkbench As Workbench Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Dim TheMeasurable As Measurable Set TheMeasurable = TheSPAWorkbench.Measurable(reference1) Dim minDistance As Double minDistance = TheMeasurable.GetMinimumDistance(refere ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokumentenstruktur erfassen
meisterlumpi am 26.05.2011 um 20:01 Uhr (0)
Hallowie andere wahrscheinlich auch stoße ich öfters mal auf das Problem, dass ich bestimmte Parts oder Products in einem Dokument ansprechen will. Dazu braucht man manchmal den Dateinamen, die PartNumber, den Namen oder den "Pfad" zum Objekt innerhalb der Dokumentenstruktur. Um mir das lästige Suchen zu ersparen dachte ich, schreib ich eine Funktion die die Dokumentenstruktur vorweg analysiert und mir dann alle nötigen Infos in einer Collection ausgibt. Wenns gut funktioniert würde ich die Funktion gerne ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kochbuch Catia V5 Start
meisterlumpi am 04.08.2011 um 00:36 Uhr (0)
Hallo, kann mich dem Bernd nur anschließen, der Code von oben kann so nicht funktionieren. Das "Auflösen eines Objekts" erstellt kein komplettes Makro, es zeigt nur wie man auf das ausgewählte Objekt zugreifen kann.Code:Sub CATMain()---- Anfang des Auflösungsscripts für Objekt: HauptkörperDim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim bodies1 As BodiesSet bodies1 = part1.BodiesDim body1 As BodySet body1 = bodies1.Item("Hauptkörper ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : per Makro Eigenschaften im Drawing ändern
meisterlumpi am 06.08.2011 um 07:21 Uhr (0)
Hallodefiniert man seine Ansicht mitCode:Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Blatt .1")Dim drawingViews1 As DrawingViewsSet drawingViews1 = drawingSheet1.ViewsDim drawingView1 As DrawingViewSet drawingView1 = drawingViews1.Item("Vorderansicht")kann man diese sperren mitCode:drawingView1.LockStatus = Truewieder ...
|
| In das Form CATIA V5 Programmierung wechseln |
