|
CATIA V5 Programmierung : Farbe von 3D-Part in Drafting übernehmen
moppesle am 11.04.2012 um 09:46 Uhr (0)
Hallo johann.burghuber,ist zwar nicht direkt die Problemlösung zu deiner Frage.Gängige Vorgehensweise bei Laser- Plasma- oder Brennteilen, ist es eine Brennschablone zu erstellen.Wir sehen Konstruktiv eine Brennschablone (Rohteil) im 3D vor. Von dieser wird dann für die Brennkontur abgeleitet.------------------Gruß UweAuch Catia ist nur ein Mensch!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
iscariot am 11.04.2012 um 21:37 Uhr (0)
Ich möchte schwarzem Text in einer Annotated view machen, aber es kommt automatisch rot. Wie kann ich die Farbe ändern?Ich fand dieses Makro in der Dokumentation: COPYRIGHT DASSAULT SYSTEMES 2001Option Explicit *********************************************************************** Purpose : Create an approbation stamp. Assumptions : A CATProduct document should be active. Author : Languages : VBScript Locales : English CATIA Level : V5R6 **************************************************** ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
iscariot am 12.04.2012 um 20:45 Uhr (0)
Ich habe bereits versucht mit der Selektion: Dim sel As Selection Set sel = CATIA.ActiveDocument.Selection Call sel.VisProperties.SetRealColor(0, 0, 0, 0)Aber ich möchte automatisch auf schwarzem Text zu erstellen.Ich lese die andere Seite von Ihnen, aber ich verstehe nicht, wie ich kann, dass auf meine Bedürfnisse anzupassen.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
bgrittmann am 12.04.2012 um 21:02 Uhr (0)
ServusVermutlich musst den deinen Text selektieren, und dann einfärben. Etwa so (ungetestet):Code:...Dim sel As SelectionSet sel = CATIA.ActiveDocument.Selectionsel.clear alles deselektierensel.add oMarker2DText dein erstellten Text selektierenCall sel.VisProperties.SetRealColor(0, 0, 0, 0) einfärbensel.clear alles deselektieren...GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
iscariot am 11.04.2012 um 21:37 Uhr (0)
Ich möchte schwarzem Text in einer Annotated view machen, aber es kommt automatisch rot. Wie kann ich die Farbe ändern?Ich fand dieses Makro in der Dokumentation: COPYRIGHT DASSAULT SYSTEMES 2001Option Explicit *********************************************************************** Purpose : Create an approbation stamp. Assumptions : A CATProduct document should be active. Author : Languages : VBScript Locales : English CATIA Level : V5R6 **************************************************** ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
iscariot am 12.04.2012 um 20:45 Uhr (0)
Ich habe bereits versucht mit der Selektion: Dim sel As Selection Set sel = CATIA.ActiveDocument.Selection Call sel.VisProperties.SetRealColor(0, 0, 0, 0)Aber ich möchte automatisch auf schwarzem Text zu erstellen.Ich lese die andere Seite von Ihnen, aber ich verstehe nicht, wie ich kann, dass auf meine Bedürfnisse anzupassen.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
bgrittmann am 12.04.2012 um 21:02 Uhr (0)
ServusVermutlich musst den deinen Text selektieren, und dann einfärben. Etwa so (ungetestet):Code:...Dim sel As SelectionSet sel = CATIA.ActiveDocument.Selectionsel.clear alles deselektierensel.add oMarker2DText dein erstellten Text selektierenCall sel.VisProperties.SetRealColor(0, 0, 0, 0) einfärbensel.clear alles deselektieren...GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product als STEP-Dateien exportieren
v5maler am 17.04.2012 um 10:53 Uhr (0)
Hallo nochmals,also die Sachen laufen soweit. Allerdings wäre nun doch eine Auswahl im ersten Schritt sinnvoller als einen ganzen Ordner zu konvertieren. Also Script Starten, Dateien mit Mehrauswahl auswählen, Zielordner Angeben, und los geht es ...Was genau müsste ich denn demnach abändern?Code:Script zum Exportieren von V5-Parts und Produkten in STEPErstellt von Bernd GrittmannLanguage="VBSCRIPT"Sub CATMain()Dim Zielverzeichnis as StringDim Quellverzeichnis as StringDim FolBrowserDim FileSystemObjectDim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
iscariot am 17.04.2012 um 19:02 Uhr (0)
Ich habe den Code von Bernd getestet und es funktioniert nicht.Das Makro hält an dieser Linie:"sel.add oMarker2DText dein erstellten Text selektieren"Sub CATMain() Const CHAR_HEIGHT = 0.05 Const CHAR_WIDTH = 0.03 Const ANCHOR_HEIGHT = -0.9 Const ANCHOR_WIDTH = 0.0 Const EPSILON = 0.5 Acquire the name of the Responsible Dim sRespName As String sRespName = "John SMITH" Default value sRespName = InputBox("What is your name ?", "Responsible name", sRespName) If sRespName "" Then Retrieve the Ann ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product als STEP-Dateien exportieren
bgrittmann am 19.03.2012 um 08:31 Uhr (0)
ServusIch hab mal in meiner Makrosammlung gestöbert.Code:Script zum Exportieren von V5-Parts und Produkten in IGESErstellt von Bernd GrittmannLanguage="VBSCRIPT"Sub CATMain() Dim Zielverzeichnis as String Dim Quellverzeichnis as String Dim FolBrowser Dim FileSystemObject Dim Verzeichnis as Folder Dim Dateien as Files Dim Datei as File Dim Dokument as Document Dim Counter as Integer Dim StrZiel as String Fehlermeldungen ausschalten CATIA.DisplayFileAlerts = False Quellverzeichnis abfragen set ShellApp=Cr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product als STEP-Dateien exportieren
v5maler am 30.03.2012 um 08:46 Uhr (0)
Zitat:Original erstellt von bgrittmann:PS: ggf muss du die beiden Scripte "verheiraten" um auch den Filter für CATPParts und CATProducts zu bekommen. Das nicht, aber jetzt das ganze noch für DXF+PDF gleichzeitig, dann wäre das ganz gut. Für nur eine der beiden Endungen bekomme ich es hin. Allerdings wusste ich mir bei der ZeileCode:if Right(Datei.name, 7) = "CATDrawing" or Right(Datei.name, 10) = "CATDrawing" thenNicht anders zu helfen, und hab die so drin stehen. Also für z.B. nur eine Ausgabe in PDF.PS ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : schwarzem Text in Annotated view
HoBLila am 18.04.2012 um 09:04 Uhr (0)
Hm... gut okay, hatte es mit Annotations verwechselt.Dann kann ich nur noch empfehlen, das manuell mal zu testen, was für ein Objekt Du da selektiert hast, bevor Du einfärbst.Also manuell mal selektieren und schauen was in der Selection ist, oder Dir über die Suchfunktion dne Typ des Objektes zurückgeben lassen, sofern sich das Objekt selektieren lässt.Edit: Habe es mir noch einmal etwas näher angeschaut.Ich vermute, man muss es erst sichtbar machenDim sel As ObjectSet sel = CATIA.ActiveDocument.Selectiono ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : AnnotationTextWithLeader
HoBLila am 18.04.2012 um 09:44 Uhr (0)
Okay, ich glaub ich habe einen ganz passablen Workaround:Ich setze nen neuen Leader und hau den alten weg.Die Reihenfolge ist dabei wichtig: erst neu, dann alt.Code:Set selWork = CATIA.ActiveDocument.SelectionSet annotation1 = selWork.Item2(1).ValueSet drwLeaders = annotation1.Text.Get2dAnnot.LeadersSet MyLeader = drwLeaders.Add(20, 80)Call drwLeaders.Remove(1)CATIA.ActiveDocument.Part.UpdateIst jetzt nur ein schnelles Beispiel.------------------Mit freundlichen Grüßen,Henry Schneideralias LilaEs gibt eine ...
|
| In das Form CATIA V5 Programmierung wechseln |
