Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Ausgewählte Parameter löschen

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:  Ausgewählte Parameter löschen (1707 mal gelesen)
PukyRider
Mitglied
Student, Maschinenbau


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

Beiträge: 31
Registriert: 19.04.2013

erstellt am: 09. Aug. 2013 13:36    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

Guten Tag Gemeinde,
ich habe mal wieder einen Auftrag bekommen, ein tolles Makro zu schreiben.
Glücklicherweise habe ich schon ein Grundgerüst gefunden.
Code:
Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

'Set of Relations suchen-------------------------------------------------------------------------------
Dim Liste1 As Selection
Set Liste1 = CATIA.ActiveDocument.Selection
Liste1.Clear
Liste1.Search "CATKnowledgeSearch.AdvisorRelationSet.NameInGraph=Relations;all"

'Gefundene 'Set of Relations selektieren und entfernen------------------------------------------


Liste1.Delete

'Parameters suchen-------------------------------------------------------------------------------
Dim Liste2 As Selection
Set Liste2 = CATIA.ActiveDocument.Selection
Liste2.Clear
Liste2.Search "(CATKnowledgeSearch.AdvisorParameterSet.NameInGraph!=Parameters & CATKnowledgeSearch.AdvisorParameterSet.NameInGraph!=Stueckliste),all"

'Gefundene Parameters selektieren und entfernen------------------------------------------

Liste2.Delete
On error Resume next

End Sub



Erstellt von J.Streit, vielen Dank.
Leider verstehe ich das Makro nicht komplett, daher brauche ich euere Hilfe.

Zu meinem Problem: Das Makro läuft in Parts als auch Products aber löscht komischerweise nur die externen Parameter und die Realations nicht aber die Parameter der Parts/Products.
Weiterhin wird alles gelöscht, ich müsste aber im Makro angeben, was gelöscht werden soll und das mit dem Lokal Name des Parameters nicht mit dem Name.
Ich hoffe ihr könnt mein Vorhaben nachvollziehen und mir helfen.

Mit freundlichem Gruß

Tim

Edit:
Vlt. ist es einfacher dieses Makro zu verändern, es funktioniert nur im Part und man muss den Name, nicht Lokal Namen angeben und ein Parameter zu löschen.

Code:
Sub CATMain()
Set oDoc = CATIA.ActiveDocument
Set partDoc = oDoc.Part
Set oSel = oDoc.Selection
Set oPara = partDoc.Parameters
oSel.Clear
Dim i As Integer


For i = 1 To oPara.Count
    Set aktiPara = oPara.Item(i)
    If aktiPara.Name = "Part1\A" Then 'or aktiPara.Name = "xxx" ... usw. (das or muss natürlich vor dem THEN stehen)
        oSel.Add aktiPara
        oSel.Delete
    End If
Next
oSel.Clear

End Sub



von: denyo_1, ebenfalls vielen Dank.

------------------
Vielen Dank für Ihr Interesse!

Hab mir selber was zusammenklamüsert und klappt soweit ganz gut.
Für alle die interesse haben:

Code:
Sub CATMain()

Dim Selektion
set selection1 = CATIA.ActiveDocument.Selection
set Selektion = selection1
Selektion.Clear
set Document1 = CATIA.ActiveDocument.Product
DIM Name

'BEI MEHREREN PARAMETERN UNTEREN ABSCHNITT BIS ___ KOPIEREN

'Name des zu loeschenden Parameters/External Parameters/Publications:
Name = "C"

On Error Resume Next
For i = 0 To 6
set Bauteil = CATIA.ActiveDocument.Product
set TextParameter = Bauteil.Parameters.Item(Name)
Selektion.Add TextParameter
Selektion.Delete
PubName = Name
Document1.Publications.Remove PubName      ' Publication über den Name löschen

Next
'_____________________________________


End Sub


[Diese Nachricht wurde von PukyRider am 14. Aug. 2013 editiert.]

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