|
CATIA V5 Programmierung : Visual C# 2010 oder Visual Basic 2010
meisterlumpi am 12.08.2011 um 03:34 Uhr (0)
zur info:CATIA V5 and C# (C Sharp) - catiav5forum . deum die pdf runterladen zu können muss man allerdings angemeldet sein.[Diese Nachricht wurde von meisterlumpi am 12. Aug. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 16.08.2011 um 10:09 Uhr (0)
Hallomit Little Cthulhu’s Script kannst du parts auf beliebigen Dokumentenebenen renamen.So würde das skript mit schleife aussehen, die parts müssen dabei vorm start des skripts ausgewählt sein.Code: Little Cthulhus Sctipt - http://www.catiav5forum.de/wbb3/wbb/index.php?page=Thread&postID=29885#post29885 Sub CATMain()Dim i As Integer retrieve selection for active documentDim varSelectionSet varSelection = CATIA.ActiveDocument.Selection set filter for objects to be selectedDim ArrSelectionFilter(1)ArrSelect ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Properties PLM Document Attributes abfragen
meisterlumpi am 15.09.2011 um 16:40 Uhr (0)
folgende sub gibt den namen gefolgt von Dokumententyp für jedes geöffnete dokument in einer msgbox aus.Code:Sub catmain() For Each Document1 In CATIA.Documents MsgBox Document1.Name & ", Typ: " & TypeName(Document1) NextEnd Subhier können auch dummy dokumente gefunden werden, die heißen irgendwas mit ..dummy.. und sind vom typ "document". wenn du die rausfiltern willst würde ich noch eine if-abfrage einbauen in der formCode:Sub catmain() For Each Document1 In CATIA.Documents If Typename(Document1) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter aus Produkt Eigenschaften auslesen
meisterlumpi am 22.08.2011 um 11:55 Uhr (0)
probiers mal so, grußCode:Sub CATMain()Dim i As IntegerDim prod As ProductDim m As Integer Exel öffnenDim objXLOn Error Resume NextSet objXL = GetObject(, "Excel.Application")If Err.Number 0 Then Err.Clear Set objXL = CreateObject("Excel.Application") Set oAWBook = objXL.Workbooks.AddEnd IfobjXL.Visible = TrueBerechnungm = 12 Zeile in Exeli = 0p = 0On Error Resume Next - wenn davor nicht irgendwo On Error Goto 0 steht ist das unnötigDim param1 As String, param1Name As String param1Name = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 19.08.2011 um 20:42 Uhr (0)
Hier ist noch eine andere Funktion, die prüft ob Komponente oder nicht. Die hab ich jetzt auch in meinen code eingebaut, sprich falls die bei dir funktioniert kannste die VBA-PartProductRename.catvba nochmal runterladen und ausprobieren - http://nj.riotdowntown.com/downloads/?did=3 ansonsten weiß ich ehrlich gesagt auch nicht mehr weiter, überall wo ich das makro ausprobiert hab bzw. ausprobieren hab lassen, hat es funktioniert. Welche Catia Version und Servicepack benutzt du eigentlich?Code:Sub CATMain() ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 |
