---

Hallo liebe CAD.de community,

ich habe folgendes Problem, ich muss ein Makro entwickeln, das mir bestimmte Messungen im Part auf NoShow schaltet. Dabei sollte idealerweise eine Maske am Anfang erscheinen, wo ich Schlagwörter eingeben kann und das Makro mir dann alle Messungen, die das Schlagwort im Namen beinhaltet auf NoShow schaltet (und alle anderen auf Show).
Mein bisheriger Makroprogram sieht wie folgend aus, dabei habe ich als zur Probe nur "Messelement" als Schlagwort eingegeben:

'-----------------------------------------------------
Sub CATMain()

version = "1.0"
makroname = "Hide Measure"

Set activedoc = CATIA.ActiveDocument

Set productDocument1 = CATIA.ActiveDocument
Set Selection1 = productDocument1.Selection

Set parameters1 = productDocument1.Product.Parameters
Selection1.Clear
Selection1.Search "(Name=Messelement* & CATKnowledgeSearch.InternalParameter),all"

Set visPropertySet1 = Selection1.VisProperties
visPropertySet1.SetShow catVisPropertyNoShowAttr

selection1.Clear

MsgBox "Makro ist beendet", 64, makroname + " " + version
End Sub
'------------------------------------------------------

Hier bin ich davon ausgegangen dass Messungen wie Parameter behandelt werden. Aber in diesem Fall setzt er mir diese nicht auf NoShow.
Eigentlich ein kleines Makro, aber vielleicht hatte jemand von euch ein ähnliches Problem, dass er lösen konnte.

Mfg
Hezarfen

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

---

Hier inzwischen ein etwas modifizierter Code, mit einer InputEingabe, aber leider verstehe ich noch nicht genau, wie man eine Messung selektieren kann, und sie auf NoShow setzt 

Sub CATMain()

version = "1.0"
makroname = "Hide Measure"

Set activedoc = CATIA.ActiveDocument

Set productDocument1 = CATIA.ActiveDocument
Set Selection1 = productDocument1.Selection

UserName=InputBox("Geben Sie die zu verdeckenden Messungen ein ", makroname + " " + version, "Measure")

If (UserName = "") Then
MsgBox "Makro wurde abgebrochen", 16, makroname + " " +version
Exit Sub
End If

Set parameters1 = productDocument1.Product.Parameters
Selection1.Clear
Selection1.Search "(Name=UserName* & CATKnowledgeSearch.InternalParameter),all"

'Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = Selection1.VisProperties
'Set visPropertySet1 = visPropertySet1.Parent
visPropertySet1.SetShow catVisPropertyNoShowAttr

selection1.Clear

MsgBox "Makro ist beendet", 64, makroname + " " + version
End Sub

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