Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Properties von 2D Punkten bearbeiten

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Properties von 2D Punkten bearbeiten (897 mal gelesen)
Banka
Mitglied
Mechatroniker

Sehen Sie sich das Profil von Banka an!   Senden Sie eine Private Message an Banka  Schreiben Sie einen Gästebucheintrag für Banka

Beiträge: 3
Registriert: 11.01.2005

erstellt am: 14. Jan. 2005 18:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


CatiaModellPlusMakro.zip

 
Hallo zusammen,

ich habe vor 3 Tagen dieses Problem angebracht und möchte hiermit einen TestCode mit entsprechendem Testmodell bereitstellen, damit ihr direkt testen könnt.
Also Anhang bitte betrachten.

ich möchte per CATScript (CATIA V5 R12 SP3) die Darstellungssymbole von Punkten in Skizzen ändern.
Diese sollen dann nun immer sichtbar bleiben.

hier der Code:

Sub CATMain()

  Dim MyDocs As Documents
  Set MyDocs = Catia.Documents
  Dim MyDoc As PartDocument
  Set MyDoc = MyDocs.Item("TestPart.CATPart")
  Dim MyPart As Part
  Set MyPart = MyDoc.Part
  msgbox MyPart.Name
  Dim MySketch As Sketch
  Set MySketch = MyPart.FindObjectByName("MyTestSketch")
  msgbox MySketch.Name
  msgbox "Type = " & TypeName(MySketch)
  Dim MySelection As Selection
  Set MySelection = MyDoc.Selection

  If TypeName(MySketch) <> "Nothing" Then
MySelection.Clear
MySelection.Add(MySketch)
MySelection.VisProperties.SetSymbolType 6
MySelection.VisProperties.SetRealColor 0, 100, 0, 0
  End If

  MyPart.Update

End Sub

Dieses funktioniert leider nicht. Wüsste einer von euch wie ich es lösen könnte?

Die anderen Eigenschaften (Farbe, LinienTyp, Linienstärke) lassen sich auf dieser Weise problemlos setzen.
Nur bei 2D Punkten kann ich die Eigenschaften nicht editieren.

Manuel würde man wie folgt vorgehen:

Sketch selektieren -> rechte Maustaste -> Properties -> Graphic -> symbol or color

Ich würde mich freuen, wenn jemand zeit hätte sich dieses anzuschauen.

------------------
MfG Banka.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Zico
Mitglied
Konstrukteur


Sehen Sie sich das Profil von Zico an!   Senden Sie eine Private Message an Zico  Schreiben Sie einen Gästebucheintrag für Zico

Beiträge: 69
Registriert: 25.09.2003

NX1953
CATIA V5
MEDUSA 14
DEC ALPHA Station
DELL Precision T3500, XP64bit

erstellt am: 26. Jul. 2005 09:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Banka 10 Unities + Antwort hilfreich

Hallo Banka,
meine Problem ist das gleiche, hast du da jetzt eine Lösung gefunden?
Gruß
Zico

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz