|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
Jan82 am 30.10.2008 um 15:25 Uhr (0)
Hallo , Code:Dim ElementDoc As Object Dim CATIA As INFITF.Application Dim Documents As INFITF.Documents Dim UserSelection As INFITF.Selection CATIA = GetObject(, "CATIA.Application") Documents = CATIA.Documents ElementDoc = CATIA.ActiveDocument UserSelection = ElementDoc.Selection UserSelection.Search("Color=(0,0,0),all") Dim visPropertySet1 As VisPropertySet visPropertySet1 = UserSelection.VisProperties visPropertySet1.SetRealColor(255, 128, 0, 0)... diese Co ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
Randle am 30.10.2008 um 16:02 Uhr (0)
Hallo,was der kollege da macht ist folgendes:Er sucht alle Elemente die eine bestimmte Farbe haben. In deinem Fall wäre das Orange (255,128,0)Diese Element färbt er dann einfach über die Selection um.Habe das mal mit dem Rekorder aufgezeichnet:Sub CATMain()Set drawingDocument1 = CATIA.ActiveDocumentSet selection1 = drawingDocument1.Selectionselection1.Search "Color=(255,128,0),all"Set selection2 = drawingDocument1.Selectionselection2.Search "Color=(0,0,0),all"End SubIch hoffe du kannst damit mehr anfangen. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
Jan82 am 30.10.2008 um 20:44 Uhr (0)
Hallo ,Code:Sub CATMain() Set ElementDoc = CATIA.ActiveDocument Set UserSelection = ElementDoc.Selection UserSelection.Search("Color=(0,0,0),all") Set visPropertySet1 = UserSelection.VisProperties visPropertySet1.SetRealColor 255, 128, 0, 0End SubDiese Code ist schon , fuer Dich richtig , kannst Du kopieren...Grüße Jan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text ändern
tberger am 22.08.2011 um 07:50 Uhr (0)
Hallo 123student,den Inhalt des betreffenden Textfeldes, wenn du es zugewiesen hast bekommst du mit .Text :If oTexts.Item(i).Text = "xyz" ThenDie Neubefüllung setzt du mit:oTexts.Item(i).Text = "a"------------------Grüße aus dem ThurgauThomas+++++++++++++++++++++++++++++++++CATIA - eine Laune der Natur ...[Diese Nachricht wurde von tberger am 22. Aug. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in einem Product anwählen
Knowledge am 03.11.2008 um 15:38 Uhr (0)
Hallo zusammen.Ich verzweifele gerade an foldender Situation. Vielleicht kann mir jemand helfen. Ich möchte in CATParts, die unterhalb eines CATProducts liegen, ein GeoSet erzeugen, wenn es dort noch keines gibt. Der Speichername ist nicht bekannt, da dieser von einer Datenbank automatisch vergeben wird. Damit wird die Definition (documents1.Item("Part1.CATPart")) schwierig für mich.Ich weiß, dass ich so in ein CATPart komme (dem Recorder sei Dank) Dim documents1 As Documents Set documents1 = CATIA.Documen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in einem Product anwählen
K.Siebert am 03.11.2008 um 17:13 Uhr (0)
Hallo KnowledgeSo kannst du denn Namen oder den Pfad abfragen. Diese Abfrage ist immer für das Aktive FesterBei FullName bekommst du alles Pfad und Name als StringCode:Set partDocument1 = CATIA.ActiveDocument Pfad = CATIA.ActiveDocument.Path Name oder FullName oder PathName = CATIA.ActiveDocument.Name Name oder FullName oder Pathmsgbox Namemsgbox PfadUnd so kannst du alle Parts Selektieren und den Namen Auslesen (PartName)Code:Dim UserSelektion As SelectionSet productDocument1 = CATIA.ActiveDocument ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Spline in Drawing per CATScipt
Jan82 am 03.11.2008 um 18:53 Uhr (0)
Hallo , pruefst Du diese Code...Code:Sub CATMain()Set Drawingdocument1 = CATIA.ActiveDocumentSet drawingSheets1 = Drawingdocument1.SheetsSet drawingSheet1 = drawingSheets1.ActiveSheetSet drawingViews1 = drawingSheet1.ViewsSet drawingview1 = drawingViews1.Add("Unfolded View")Set myFactory2D = drawingview1.Factory2DSet drawingViewGenerativeBehavior1 = drawingview1.GenerativeBehaviordrawingViewGenerativeBehavior1.DefineFrontView 1, 0, 0, 0, 1, 0drawingview1.X = 100drawingview1.Y = 100drawingview1.ActivateDim ...
|
| 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 |
|
CATIA V5 Programmierung : Porduct template mit reaction
zoltan.bekesi am 03.11.2008 um 20:08 Uhr (0)
Hallo Michael,CATIA.ActiveDocument ist die oberste Product im Fenster, es hat nichts mit blau hinterlegt zu tun!Falls du den DocTemplate in die oberste einfügst, müsste es gehen. In die tiefere Ebenen kannst Du es interaktiv auch nur tun, wenn Du die entsprechende Ebene blau hinterlegst. Bei den Makros muss man aber generell anders vorgehen.Übergebe mal diesen VBScript ein Objekt (z.B. den Parameter "Nut"), dann kannst du von diesen Objekt aus mit .parent, bzw. das oft genug verwendet an die richtige Produ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : catvba mit catscript aufrufen
Lusilnie am 03.11.2008 um 22:10 Uhr (0)
Hallo elharry,ich habe dies zwar noch nicht mit CATvba probiert, doch zumindest Dein "Library-Type" ist falsch: es muss "catScriptLibraryTypeVBAProject" anstelle von "catScriptLibraryTypeDirectory" lauten. Ich schlage Dir mal folgende Zeile vor:Code:EE=CATIA.SystemService.ExecuteScript("C:caxR16TEST.catvba", catScriptLibraryTypeVBAProject, "TEST_Modul", "CATMain", params) wobei "TEST_Modul" der Name Deines Modules in der "TEST.catvba"-Datei ist, in dem auch die Routine "CATMain" steht.mfg,Lusilnie--------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : HTML-mit Makro II
Jens Hansen am 28.10.2008 um 14:31 Uhr (0)
Hallo,unter Windows gehts auch so:------Schnipp-------------Dim Shell As ObjectSet Shell = CreateObject("WScript.Shell")Shell.Run ("C:meinehilfe.htm")oderShell.Run ("http://catia.cad.de")------Schnapp-------------SGJens Hansen ------------------Inoffizielle CATIA-HilfeseitePrivate SeiteXing
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : HTML-mit Makro II
elharry am 04.11.2008 um 08:21 Uhr (0)
Hallo,das hier funktioniert bei uns sehr gut sowhol unter UNIX und Windows.Dim OSVARDIM ReturncodeOSVar=(CATIA.SystemConfiguration.OperatingSystem)If OSVAR="intel_a" then CreateObject("WScript.Shell").Run "iexplore.exe http://ww3.cad.de/foren/ubb/Forum137/HTML/000746.shtml#000000" Else Returncode=CATIA.SystemService.ExecuteBackgroundProcessus("browser http://ww3.cad.de/foren/ubb/Forum137/HTML/000746.shtml#000000") End IfAnmerkung:browser ist ein Skript auf UNIX das den aktuellen Browser aufruft!mfgelHarry
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
newmann am 22.08.2011 um 06:25 Uhr (0)
Hi,also habe R19SP9 und als Betriebssystem Windows7 und somit 64bit-Catia und hier liegt glaube ich auch das Problem. Habe dein Macro an einem 32-bit XP-Rechner (32bit-Catia) ausprobieren lassen und es funktioniert einwandfrei Bei einem 64-bit XP-Rechner (64bit-Catia) ist das gleiche Problem wie bei mir und das Macro läuft auf einen Fehler.weißt du wo man die Einstellungen machen muß bzgl. des Unterschiedes zwischen 32 und 64 bit?Wie gesagt unter 32bit-Catia läuft das Macro perfekt und macht auch genau da ...
|
| In das Form CATIA V5 Programmierung wechseln |
