|
CATIA V5 Programmierung : Drawing erkennen
KarinMueller am 28.10.2003 um 15:44 Uhr (0)
Jetzt habe ich selbst eine Lösung gefunden, die auf jeden Fall funktioniert: Dim docName As String Dim iPos As Integer Dim iLaengeDocName As Integer Dim sDocType As String - vollständiger Name des aktiven Dokuments, mit Pfad und Documententyp, zB d/temp/Drawing1.CATDrawing - docName = CATIA.ActiveDocument.FullName - um Dokumententyp herauszufinden, muss Textteil nach CAT gelesen werden - - zuerst Länge der Zeichenkette ermitteln - iLaengeDocName = Len(docName) - an welch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing erkennen
hagengu am 30.10.2003 um 12:41 Uhr (0)
Hallo, viele Wege führen nach Rom! so geht es recht einfach: Sub test() Dim DrwDocument As DrawingDocument On Error Resume Next Set DrwDocument = CATIA.ActiveDocument If Error Then MsgBox keine Zeichnung ist aktiv Else MsgBox eine Zeichnung ist aktiv End If On Error GoTo 0 End Sub Gruß Guido
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Send Key
Cars10 am 28.07.2005 um 15:23 Uhr (0)
Hallo, seid ihr alle gut drauf Ich hab ein Problem mit dem SendTo/SendKey Befehl, der gibt immer eine Fehlermeldung bei AppActivate aus. an was kann das liegen? Sub CATMain() AppActivate ("CATIA V5") SendKeys "b: Veröffentlichung" + Chr(13), 1 End Sub 1000dank bye carsten
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia starten ohne den intsallPath zu kennen
RonnyS am 03.11.2003 um 09:11 Uhr (0)
Hi, bin nach einer zwangspause auch mal wieder da. Ich suche im Moment eine Möglichkeit Catia zu starten, ohne den installPath zu kennen. Kann mir jemand weiterhelfen? Vielen DAnk schonmal im voraus... ------------------ gr33t7 Ronny
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Alle Parts innerhalb eines Produkts herausschreiben
RonnyS am 03.11.2003 um 11:00 Uhr (0)
Es geht auch eleganter Catia selbst stellt dies schon bereit. Die suchfuntkin muss man nicht nutzen, wies geht habsch hier schonmal gepostet. gib einfach mal in der Suchfunktion(ja es gibt sie wirklich !) Baugruppen auslesen ein. dann bekommst nur den einen passenden Thread. PS: nix für ungut ------------------ gr33t7 Ronny [Diese Nachricht wurde von RonnyS am 03. November 2003 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausgabe Überschneidungsergebnis als Datei
steirerhubsi am 03.11.2003 um 13:51 Uhr (0)
Hallo!Hier ein paar Teile meines Makros. Zuerst die Variablen erzeugen:Dim oDocuments As DocumentsDim oProductDocument As ProductDocumentDim oProduct As Product Dim Clashes1 As ClashesDim Clash_fix_versch As ClashDim oConflicts1 As ConflictsDim oConflict1 As ConflictDim FileNum As Integer Document,... zuweisen:Set oDocuments = CATIA.DocumentsSet oProductDocument = CATIA.ActiveDocument Set oProduct = oProductDocument.Product Kollisionen im Product:Set Clashes1 = oProduct.GetTechnologicalObject(" ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Smart Pick
KarinMueller am 03.11.2003 um 14:41 Uhr (0)
Hallo, ich möchte interaktiv einen Punkt erstellen lassen (also einen Punkt durch anklicken erzeugen) und dessen Koordinaten auslesen, das nennt sich in CATIA Smart Pick . Leider habe ich nur Funktionen für die Punkteerzeugung gefunden, wo die Koordinaten direkt eingegeben werden müssen. Weiss jemand Rat? ------------------ Karin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Smart Pick
gdir am 03.11.2003 um 20:05 Uhr (0)
Hallo Karin, mir fallen zwei Lösungsideen ein, die ich aber beide nicht ausprobiert habe: 1. Bei SelectedElement gibt es die Methode GetCoordinates. Laut Doku (R11 SP03) hat die folgende Eigenschaften: Sub GetCoordinates( CATSafeArrayVariant ioPoint) Returns the coordinates of the pick point. Parameters: oPoint The coordinates of the pick point, i.e. the hit between the geometric object and the cursor. Example: This example retrieves the coordinates of the pick point in the array myArray: Dim oSelE ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : [Suche] Beispiele wie man mit externen Proggies Catia anspricht
RonnyS am 04.11.2003 um 14:33 Uhr (0)
Hallo ich hab mich nun soweit eingefuchst, dass ich mit einem externen VB .Net Proggi Catias Automation Schnittstelle ansprechen kann. Soweit so gut. Ich hab auch gelesen, dass Catia wohl selbst ein COM-Server ist, d.h. man müsste es normalerweise vollkommen sprachneutral ansprechen können(auch via JScript,Java,C,C++ usw.). OHNE die RADE zu nutzen. Da ich alle möglichkeiten mal durchspielen möchte, uzm zu testen welche für uns die praktikabelste ist(auch im hinblick auf vorhandene Sofware, KnowHow usw.) su ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zu Drawing gehörendes Dokument
RonnyS am 05.11.2003 um 12:57 Uhr (0)
meines Wissens kann man mittels Catia.Documents auf alle Dokumente zugreifen. Mit Drawings hab ich zwar selbst noch nichts gemacht. Aber von der idee her müsstest du doch nur prüfen ob .catdrawing2 im name vorhanden ist. Also z.b. so Dim CATDrawingFileType as String CATDrawingFileType= .CATDrawing Dim MyPos as integer for i=1 to catia.documents.count step 1 myPos = InStr(1, catia.documents.item(i).name, CATDrawingFileType, If myPos 0 Then MSGBOX Hallo ich bin ein Drawing next EDIT// uups: ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Distanz Messung im Product mit Measurable
janitza am 05.11.2003 um 15:10 Uhr (0)
Hallo, ich weiß, dass dieses Thema schon mehrfach im Forum aufgetaucht ist. Nehmt euch bitte trotzdem kurz Zeit da es diese Fragestellung bisher nicht gab. Ich möchte die kürzeste Entfernung zwischen zwei Flächen von zwei VERSCHIEDENEN Baugruppen innerhalb eines Produktes messen. Dazu verwende ich folgenden code: Dim partdocument1 As Object Set catia = GetObject(, "catia.application") Set partdocument1 = catia.ActiveDocument Dim InputObjectType(1) Dim ref1 As Reference ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Smart Pick
KarinMueller am 06.11.2003 um 14:52 Uhr (0)
Hallo, mit der Methode Indicate2D geht es ganz einfach: Dim Status As String Dim Location(1) As Double Status = CATIA.ActiveDocument.Indicate2D( Bestimmen Sie die Position des Punktes! ,Location) If (StrComp(Status, cancel )) = 0 Then - Benutzer hat Auswahl abgebrochen iError = 1 Else Set Point2D = Fact.CreatePoint(Location(0), Location(1)) End If Danke für den Tipp! ------------------ Karin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA TitleBlock Editor und SMARTEAM
alias am 10.11.2003 um 08:29 Uhr (0)
Ist es möglich dieses Script + Möglichkeit zur Smarteam Anbindung zu erhalten. Versuche gerade meine Formate mit Smarteam zu verbinden.
|
| In das Form CATIA V5 Programmierung wechseln |
