|
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 |
|
CATIA V5 Programmierung : CATScripte durch Command Button ausführen
MG8684 am 19.04.2012 um 08:50 Uhr (0)
Hallo zusammen,ich habe mir diverse Makros für Catia geschrieben als CATscript. Jetzt würde ich gerne diese Makros mit einer UserForm verbinden d.h. hab mir im BIsual BAsic Editor von Catia meine Oberfläche mit Command Buttons gesetzt und wurde gern durch einen Klick auf das jeweilige Button ein bestimmtes CATScript ausführen...Ich könnte ja den Code in den Command BUtton kopieren find ich aber nicht so prickelnd. Vor allem weil ein Script auch mehrere Subs hat....und daaher würde ich das gerne so steueren.
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Makro zum automatischen umbenennen von Datei- und Partnamen
moppesle am 04.07.2012 um 09:01 Uhr (1)
Hall DasDon,habe immer noch ne Fehlermeldung.in Zeile:Code:oChild.Name = oChild.PartNumber & "." & tmp(UBOUND(tmp))Habe mal ein Bild dazu wie das im Strukturbam aussieht.------------------Gruß UweAuch Catia ist nur ein Mensch!
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Bemaßung in Rechteckigen Rahmen
Mangapatty am 23.02.2012 um 13:01 Uhr (0)
Hallo Leute,ich bin ein ziemlicher Neuling auf dem Gebiet Macro programmierung und ich hoffe ihr könnt mir helfen.Und zwar möchte ich ein Macro erstellen das mir im Drafting um eine Bemaßung einen Rechteckigen Rahmen setzt (also nur um den Text) und dann das Offset von 2 auf 3mm erhöht, damit das Rechteck nicht in der Maßlinie liegt. Ich hab mich schon etwas belesen in Sachen DimFrame usw. aber ich komme auf keinen grünen Zweig Ich weiß nicht weiter...LG---EditKann mir da keiner helfen??Ich hab schon ei ...
|
| In das Form CATIA V5 Programmierung wechseln |
