Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Makro funktioniert unter R18 nicht mehr

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:  Makro funktioniert unter R18 nicht mehr (535 mal gelesen)
Manu_b
Mitglied
PDM/CAx Manager


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

Beiträge: 81
Registriert: 31.07.2006

CATIA V4 Version 2.5 (UNIX)
CATIA V5 R18 SP2 HF54 (UNIX)
CATIA V5 R18 SP2 HF54 (WINDOWS XP)
ENOVIA VPM<P>UNIX Workstation
CELSIUS H270 Laptop
Intel Core2Duo
4GB RAM

erstellt am: 02. Jun. 2008 13:24    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

Hallo cad-gemeinde,

wir haben unter R16 ein Makro programmiert, welches sämtliche Punkte, Linien, constraints usw ins No-show legt. Seit dem Umstieg auf R18 funktioniert es allerdings nicht mehr, bzw. es läuft ohne Fehlermeldung durch ohne irgendetwas an den Modellen zu verändern.

Der Quellcode ist nicht groß, also vielleicht findet jemand einen Fehler 

-----------------------------------------------------------------------


'planes und assembly constraints in no-show stellen

Sub CATMain()
Language="VBSCRIPT"

'CATIA.Caption = theCATTitle

On Error Resume Next
'Fehlermeldung aussgeschaltet'

'Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

'CATIA.Caption = "Hide *pt - *ln -  *crv -  *pln and constraints "
'Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search("CATPrtSearch.Plane+CATPrtSearch.Point+CATPrtSearch.Line+CATPrtSearch.AxisSystem+CATPrtSearch.Edge+CATPrtSearch.Sketch+CATAsmSearch.MfConstraint,all")
Set visPropertySet1 = selection1.VisProperties
visPropertySet1.SetShow 1
selection1.Clear

'CATIA.Caption = theCATTitle

Dim text
text = "that's it, really, isn't it?"
msgbox text


End Sub
---------------------------------------------

Danke und Gruß
Manu_b

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

Jens Hansen
Mitglied
Senior Consult


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

Beiträge: 1055
Registriert: 05.08.2000

Win7
CATIA V5 R19
VB.Net
C#

erstellt am: 02. Jun. 2008 13:47    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 Manu_b 10 Unities + Antwort hilfreich

Hallo,
aktiviere die Fehlermeldung wieder; dann siehst du ja, ob etwas passiert.
Ansontsen könnte ich mir denken, dass der Suchparameter nicht mehr stimmt.
Mach doch mal eine Makroaufzeichnug von der Suche und vergleiche die beiden Suchparameter.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing

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