|
CATIA V5 Programmierung : Noch ein Versuch -> CATProduct nach CATPart
mattu82 am 26.08.2005 um 10:56 Uhr (0)
Hi,ich hatte vor einiger Zeit bereits eine solche Frage hier gestellt, jedoch keine befriedigende Antwort erhalten. Daher versuche ich es noch einmal, vielleicht hatte in der Zwischenzeit ja jemand ein ähnliches Problem.Ich möchte über ein Macro aus einem CATProduct ein CATPart erzeugen. Dazu benutze ich zur Zeit den BefehlCATIA.StartCommand("Generate CATPart from Product")Das funktioniert auch schon, allerdings muss dafür 1. das Catia im Assembly Mode sein, das würde ich gerne über das Script steuern, und ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GetCoordinates
Filippo am 26.08.2005 um 12:04 Uhr (0)
Hallo AlfaRomeo75,versuche damit.Sub CATMain() Dim Was(0) Was(0) = "Vertex" "Point" Dim UserSel As Selection Set UserSel = CATIA.ActiveDocument.Selection UserSel.Clear Dim E E = UserSel.SelectElement(Was, "Du kannst jetzt einen Punkt wählen!", True) If E = "Normal" Then Else MsgBox ("Abbruch") End If Dim MySelection As Selection Set MySelection = UserSel.Item(1) .Value MsgBox (MySelection.Name) Dim MyPointCoord(2) MySelection.GetCoordinates MyPointCoord Dim Coord_X, Coord_Y, Coord_Z Coord_X = MyPointCoord( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Typename Fehler
AlexE78 am 29.08.2005 um 13:34 Uhr (0)
Hallo allerseits,ich schreibe derzeit an einem Macro (CATIA V5 R14, catvbs), daß den Strukturbaum eines CATParts extrahieren und als xml ausgeben soll. Dabei tritt folgendes Problem auf:Das Ergebnis von "Typename(oShape)" von Punkten ergibt immer"HybridShapePointTangent", egal, mit welcher Funktion der Punkt erzeugt wurde.Die für Tangent-Punkte definierten Funktionen laufen aber nur, wenns wirklich ein Tangent-Punkt ist (oPoint.Curve bzw. oPoint.Direction).Funktionen für andere Punkt-Typen (z.B. oPoint.X b ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Typename Fehler
CTenschert am 01.09.2005 um 10:38 Uhr (0)
Zitat:Original erstellt von AlexE78:Hallo allerseits,Hallo zurück, kann Dir nicht groß weiter helfen, nur ein Tip zum Fehler abfangen. Zitat:ich schreibe derzeit an einem Macro (CATIA V5 R14, catvbs), daß den Strukturbaum eines CATParts extrahieren und als xml ausgeben soll. Dabei tritt folgendes Problem auf:Das Ergebnis von "Typename(oShape)" von Punkten ergibt immer"HybridShapePointTangent", egal, mit welcher Funktion der Punkt erzeugt wurde.Ich würde das ganze in eine if Block einfügen z.B. if Typeof ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : if-then-abfrage punkt oder linie...
sashlanger am 01.09.2005 um 11:39 Uhr (0)
"TypeOf" hatte ich schon probiert, aber in der "Wenn-Dann-Abfrage" der KWA Lizenz (nicht in einem Makro) kennt CATIA "typeOf" nicht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Noch ein Versuch -> CATProduct nach CATPart
kaeja am 20.07.2012 um 13:49 Uhr (0)
Auch wenn es die meisten nicht mehr für R16 interessiert, aber ich habe unter GenerateCATPartFromProduct eine super Lösung gefunden. Dabei wird auf externe Shell verzichtet:Code:Sub GenerateCATPartFromProduct()Dim ActDoc As ProductDocumentSet ActDoc = CATIA.ActiveDocumentDim MySel As SelectionSet MySel = CATIA.ActiveDocument.SelectionMySel.Add ActDoc.Product .Products.Item(1) CATIA.RefreshDisplay = TrueCATIA.StartCommand "Generate CATPart from Product..."CATIA.RefreshDisplay = True Dim PauseTime, Start ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Noch ein Versuch -> CATProduct nach CATPart
mattu82 am 05.09.2005 um 09:29 Uhr (0)
Gut dann hier das Makro.Ob das gut ist kann ich nicht sagen, aber es funktioniert Ich habe eine catvba Datei erstellt mit VB Editor unter Catia. Public Sub CATMain()Dim CATProtDoc As ProductDocumentDim CATProt As ProductDim wshshellSet CATProtDoc = CATIA.ActiveDocumentSet CATProt = CATProtDoc.ProductCATIA.ActiveDocument.Selection.ClearCATIA.ActiveDocument.Selection.Add CATProtCATIA.StartCommand ("Convert Product to CATPart")MsgBox "test"Call Shell("wscript c:sendkey.vbs")End SubDie SendKey.vbs sieht folgen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D-Komponeteninstanzen bei Drawings in R12
CTenschert am 05.09.2005 um 10:14 Uhr (0)
Ich greife auf Details über DrawingComponent zu.Hier mal ein Beispiel.Sub CATMain()Dim MyDokument As DrawingDocumentSet MyDokument = CATIA.ActiveDocumentDim myView As DrawingViewFor Each myView In MyDokument.Sheets.ActiveSheet.Views Dim MyKompo As DrawingComponent If myView.Components.Count 0 Then For Each MyKompo In myView.Components ************************************************************ Set myDetails = MyKompo.CompRef.Parent ************************************************************ * ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Kinematik-Makro?
em Michael Kirsch am 05.09.2005 um 14:45 Uhr (0)
Hallo Jomel,die Kinematik-Funktionalitäten werden seit CATIA V5 R12 für die Makroschnittstelle ausgebaut. Die Erweiterungen betreffen überwiegend die bekannten Joint-Typen. Der aktuelle Stand (R15) ist schon sehr vollständig:Prismatic, Revolute, Rigid, Spherical, PointCurve, RollCurve, SlideCurve, Cylindrical, Screw, Universal, CVJoint, PointSurface, Planar, Gear, Rack, CableDabei werden die Geometrieelemente als "Reference" benötigt und müssen als Array übergeben werden.Viele Grüße,Michael Kirsch--------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
CTenschert am 07.09.2005 um 11:25 Uhr (0)
Habe mal ein Beispiel geschrieben.Dürfte ein Grundgerüst sein. *** Beispiel für Ersetzung des Teilenamen *** * von Carl Tenschert * * vom 07.09.2005 * * Win2K R12 SP5 * *********************************************Sub CATMain()Dim myDocuments As DocumentsDim mypartDocument As PartDocumentDim myProduct As ProductDim TeileName_Neu$, TeileName_Alt$Dim myDocument As DocumentSet myDocuments = CATIA.DocumentsFor Each myDocument In myDocuments If TypeOf myDocument Is PartDo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Einzelne Breps während der Laufzeit hervorheben
achulio am 07.09.2005 um 14:04 Uhr (0)
Hallo CTenschert,Das ist eine prima Idee; ich habe sie nun folgendermaßen umgesetzt, so dass auch die Geometrie im Bauteil rot eingefärbt wird:*************************************************highlight malpositioned Object CATIA.ActiveDocument.Selection.Clear CATIA.ActiveDocument.Selection.Add(MyObject) Set MyVisProperties = CATIA.ActiveDocument.Selection.VisProperties MyVisProperties.SetRealColor 255, 0 ,0 ,0 msgbox "Fehler in ... " MyVisProperties.SetRealColor 255, 255 ,255 ,0 CATIA.ActiveDocument.Sele ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anzeigemodus Analyse deaktivieren
tberger am 25.06.2014 um 20:37 Uhr (1)
hmmm, bei meiner R21 funktionierts ohne Probleme und schält immer genau in den anderen Modus um, als ob man den Schalter drücken bzw. das Icon selektieren würde.Vlt kannst du dir die Seite der Einstellungen als CatScript ausgeben (der Button gleich knapp links neben deiner roten Markierung im Bild) und im ausgegebenen Code nachschauen ob das Item evtl. anders bezeichnet ist in der R19. Ich habe leider keine R19 mehr zur Verfügung ums zu testen.------------------Grüße aus dem ThurgauThomas++++++++++++++++++ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : H und V per Macro ausschalten
BigCheese am 07.09.2005 um 16:46 Uhr (0)
Hier noch schnell ein Makro, wie es bei mir funktioniert hat.Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet oSelektion = partDocument1.SelectionoSelektion.Search "Name=*AbsoluteAxis*,all"set visProperties1 = oSelektion.VisProperties visProperties1.SetShow catVisPropertyNoShowAttrEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
