|
CATIA V5 Programmierung : Wie kann ich eine Form eigenständig öffnen (VBA)
zoltan.bekesi am 02.09.2008 um 18:44 Uhr (0)
Hallo,wie wäre es mit Code: FormMain.Show vbModelessDu kannst Dann aus VBA Userforms aufrufen und gleichzeitig im CATIA navigieren.Gruß,Zoltán
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf Text von einem Macro über Komponenteneigen. zugreifen
zoltan.bekesi am 12.04.2008 um 13:08 Uhr (0)
Hallo K.Siebert,musst nur die Zeile wie folgt korrigieren.Code:set ocText = drawingView1.Textsaus irgendeiner Grund heißt der Datentyp zwar DrawingTexts, die Collection aber Texts.Ich habe mich bei der Beipsiel auf die Hilfe von CATIA angelehnt, das kann zu solchen Fehler führen.Solche Probleme kann man in der VBA Editor schön analysieren, in dem man einen Watch für CATIA.Activedocument Global zu den Überwachungen einfügt und dort dann über den Baum von CATIA-Objekten zu der richtigen Stelle gelangt.Hoffe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Test: Parameter Wert gleich Dezimalzahl?
zoltan.bekesi am 26.07.2007 um 17:26 Uhr (0)
Hallo,Du könntest die Bearbeitung verschnellern, indem Du die Aktualisierung in Excel ausschaltest (falls es bisher nicht betan wurde).Das geht über den Application Objekt vont Excel, sagen wir es heißt z.B. Excel aus CATIA gestartet oder einfach Application aus Excel. Dann brauchst Du vor der Schleife Excel.Screenupdating=false und nach der Schleife Excel.Screenupdating=true setzen. Somit wird beim Ausfüllen der Tabelle nichts angezeigt, es wird aber wesentlich schneller sein.Für den Test kannst Du eventu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
Heisse Eisen : subwoofer an Computer??
zoltan.bekesi am 07.09.2007 um 11:10 Uhr (0)
Hallo,auf die Properties "Eigenschaften-"Andere Eigenschaften definieren" kannst Du aus dem Document (Part oder Product) über den Product.UserRefProperties zugreifen.Ist z.B. nur der Part im Fenster geöffnet, dann wie folgt:Code:Dim oActDoc As DocumentSet oActDoc = CATIA.ActiveDocumentMsgBox (oActDoc.Product.UserRefProperties.Count)MsgBox (oActDoc.Product.UserRefProperties.Item(1).name)MsgBox (oActDoc.Product.UserRefProperties.Item(1).Value)Die Name der Property trägt die Name der Part/Instanz mit sich, kö ...
|
| In das Form Heisse Eisen wechseln |
|
CATIA V5 Programmierung : Umordnen von Blätter in Zeichnungen
zoltan.bekesi am 20.08.2007 um 22:13 Uhr (0)
Hallo Zusammen,ich versuche gerade einen Makro zu basteln, welche die Blätter in einer Zeichnung umordnen kann, da CATIA hier selber keiner Funktion anbietet (R16).Ich habe gedacht, ich benutze Cut&Paste. Ausschneiden in der neuen Reihenfolge und gleich einfügen (blattweise).Ich habe den Makrorekorder verwendet, um ein Beispiel zu bekommen. Es sah ziemlich gut aus, ich habe es gleich für mich angepasst, Ablaufen will es aber nicht. Dann habe ich den Original auch überprüft und es war nicht lauffähig. So wi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Detail Sheets löschen
zoltan.bekesi am 12.12.2007 um 19:14 Uhr (0)
oder einfach:Code:For i = 1 To oDRWDoc.Sheets.Count Set oSheet = oDRWDoc.Sheets.Item(i) If oSheet.IsDetail then Set SelSheet = CATIA.ActiveDocument.Selection Set oSheet = CATIA.ActiveDocument.Sheets.Item(i) SelSheet.Add(oSheet) SelSheet.Delete Da stand vorhin eine 2...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Noch ein Versuch -> CATProduct nach CATPart
zoltan.bekesi am 02.04.2008 um 21:51 Uhr (0)
Hallo,dieses Beispiel funktioniert mit R16 mit der Unterschied, dass Code:CATIA.StartCommand ("Generate CATPart from Product...") verwendet werden muss.Mein Problem ist, dass ich nach die Generierung des AllCATParts noch den AllCATPart bearbeiten möchte (z.B. Umbenennen), ich kann aber nichts nach den Aufruf von der Script laufen lassen.Eine Möglichkeit wäre natürlich 2 Tasten für die Generierung und für nachher zu verwenden, schön wäre aber eine Lösung ohne Sendkey.Hat hier vielleicht jemand schon mehr Er ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinaten von HybridShapePointOnCurve auslesen
zoltan.bekesi am 27.05.2008 um 19:07 Uhr (0)
Hallo koopi01,es geht schon auch ohne Messung, man darf nur für GetCoordinates keine Datentyp verwenden...Code:Sub test() Dim oActDoc As Document Set oActDoc = CATIA.ActiveDocument Dim oActPart As Part Set oActPart = oActDoc.Part Dim oHybShapes As HybridShapes Dim oHybPoint As Point Set oHybShapes = oActPart.HybridBodies.Item(1).HybridShapes Set oHybPoint = oHybShapes.Item(1) Dim coord(2) oHybPoint.GetCoordinates coord Debug.Print coord(0), coord(1), coord(2)End SubGruß, Zoltan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinaten von HybridShapePointOnCurve auslesen
zoltan.bekesi am 28.05.2008 um 19:49 Uhr (0)
Hallo koopi01,mein Beispiel war aus VBA, da waren die Deklarationen in der Form passend.Die Koordinaten beziehen sich auf den Part Urspung.Evtl. könntest Du noch mit Messen im Product Ursprung die Koordinaten haben, aber soweit ich weiß kannst du es in CATIA aus Makros nicht in ein beliebiges Koordinatensystem abfragen/messen lassen.Da musst du wahrscheinlich hergehen und die Koordinaten in die richtige Achsensystem transformieren.Da kann dir folgender Beitrag z.B. weiterhelfen:Forumbeitrag - Punktkoordina ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parts aus Produkt Löschen
zoltan.bekesi am 29.05.2008 um 17:47 Uhr (0)
Hallo Knut,verstehe zwar deine Frage nicht ganz, löschen könnte aber wie folgt funktionieren (nicht getestet, für VBA):Code:Dim oActiveDoc as DocumentSet oActiveDoc = CATIA.ActiveDocumentDim oSel as SelectionSet oSel = oActiveDoc.SelectionoSel.Clearab hier musst du dann die zu löschende Dokumente zur Selection addieren: oSel.Add oProdToDelete1 oSel.Add oProdToDelete2 ...oSel.DeleteoSel.ClearIch hoffe, du hast sowas gesucht!Gruß,Zoltan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Projektionsebene einer View ermitteln
zoltan.bekesi am 05.06.2008 um 22:39 Uhr (0)
Hallo CEROG,ich weiß nicht, ob Dir folgendes weiterhilft. Ist mehr oder weniger aus der Doku.Die Richtung der Ebene kann man auslesen, nicht aber den Punkt, durch der die Ebene geht.Code: Dim oActDoc As Document Set oActDoc = CATIA.ActiveDocument Dim oSheet As DrawingSheet Set oSheet = oActDoc.Sheets.Item(1) Dim oView As DrawingView Set oView = oSheet.Views.Item(3) Dim oGenBeh As DrawingViewGenerativeBehavior Set oGenBeh = oView.GenerativeBehavior Dim oX1 As Double Dim oY1 As Double Dim oZ1 As D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Abstand zwischen Flächen messen
zoltan.bekesi am 15.07.2008 um 18:49 Uhr (0)
Hallo TheCW,anbei ein Auszug aus V5Automation.chm:Code:Dim reference1 As Reference Set reference1 = part1.CreateReferenceFromObject(object1) Dim reference2 As Reference Set reference2 = part1.CreateReferenceFromObject(object1) Dim TheSPAWorkbench As Workbench Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" ) Dim TheMeasurable As Measurable Set TheMeasurable = TheSPAWorkbench.Measurable(reference1) Dim MinimumDistance As double MinimumDistance = TheMeasurable.GetMinimumDistance(refe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in einem Product anwählen
zoltan.bekesi am 03.11.2008 um 19:57 Uhr (0)
Hallo Knowledge,folgendes sollte dir weiterbringen (ohne es getestet zu haben):Code:Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim products1 As ProductsSet products1 = product1.ProductsDim MengeCatparts As IntegerMengeCatparts = products1.CountDim product2 As ProductDim oDocument1 As Documentdim oPart as PartDim ii As IntegerFor ii = 1 To MengeCatparts Set product2 = products1.Item(ii) -- wie komme ich an den Spe ...
|
| In das Form CATIA V5 Programmierung wechseln |
