|
CATIA V5 Programmierung : *.exe starten
Jan82 am 22.10.2008 um 16:02 Uhr (0)
Hallo alle ,ich will meine Makro GenerujBody.exe uber sript starten... Code: Sub CATMain() CATIA.SystemService.ExecuteProcessus ("C:makro TCHGenerujBodyinDebugGenerujBody.exe") End Sub...aber mir diese Code nicht funktionierte.Vielen DankGrüße Jan
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : *.exe starten
Jan82 am 22.10.2008 um 20:55 Uhr (0)
Hallo Rick ,Diese Code schon funktionierte...Code:Sub CATMain()CATIA.SystemService.ExecuteBackgroundProcessus("C:makroTCHGenerujBodyinDebugGenerujBody.exe")End SubProblem war deren , dass Reise zum GenerujBody.exe ohne frei Platz (makroTCH oder makro_TCH = gut ; makro TCH = schlecht) muss sein.Vielen DankGrüße Jan
| | In das Form CATIA V5 Programmierung wechseln |
|
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
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 : 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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
