|
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 : 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 : Parameter aus Produkt Eigenschaften auslesen
meisterlumpi am 22.08.2011 um 15:50 Uhr (0)
das hast du richtig verstanden.So könnte dein code aussehen ohne die schleife durch alle dokumente. hier wird nur das aktive hauptprodukt durchsucht. prodInContext ist das produkt, auf das sich der parameter bezieht.Code:Sub CATMain() Dim i As Integer, m As Integer Dim param1 As String, param1Name As String param1Name = "Kunde" Dim prod As Product Set prod = CATIA.ActiveDocument.Product Dim prodInContext As Product Exel öffnen Dim objXL On Error Resume Next Set objXL = GetObject(, "Excel.App ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartNumber im Zwischenablage Kopieren
meisterlumpi am 14.09.2011 um 18:30 Uhr (1)
Code:CATIA.ActiveDocument.Selectionbezeichnet ausgewählte objekte in catia und hat gar nichts mit der windows zwischenablage zutun.mit einem verweis auf die Microsoft Forms 2.0 Objectlibrary kannst du folgende sub benutzen um text in die windowszwischenablage zu kopieren.Code:Public Sub SchreibeTextInDieZwischenablage() Dim oData As New DataObject Dim sText As String sText = "Hallo Leute" & vbCrLf & "Neues von Online Excel" With oData .SetText sText .PutInClipboard End WithEnd Subquelle: http://www.onlin ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten in Excel schreiben
meisterlumpi am 21.09.2011 um 14:26 Uhr (0)
der code sieht richtig aus, ich denke das problem liegt am office com interface. guck mal im vba editor unter extras - verweise. da sollte was mit "Microsoft Excel Object Library" angekreuzt sein und es sollte kein missing dabei stehen.
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
