---

Hallo!

Hat von den VB-Spezialisten einer eine Ahnung, wie man in V15 in der Profilumgebung per Code prüfen kann, ob das Profil vollständig parametrisiert ist?

Danke und Gruß,
BJ

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

---

Das müßte doch verfügbar sein. Die Farben der Skizzenbeziehungen greifen ja auch eine derartige information zu. Aber finden kann ich das in der Hilfe auf die Schnelle auch nicht.

------------------
APeters@BSS-Online.de

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

---

Genau das habe ich mir auch gedacht, aber bisher auch nix finden können...

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

---

Für V16 gibt es beim Profileset ein "IsUnderDefined"
bei V15 müsste das ja an jedem Geometrieelement einzeln hängen. Da kann ich aber bisher nicht finden.

------------------
APeters@BSS-Online.de

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

---

Moin,

an den einzelnen Elementen haengt so etwas:

PartDocument --> Models --> Model
dort dann je feature z.B.: BreakCorners --> BreakCorner.Status
  --> FeatureStatusConstants
 
wenn es das ist was gemeint/gesucht wurde

modeng

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

---

Ich sehe es mir mal an. Danke für eure Hilfe!

Gruß,
BJ

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

---

Hallo,

habe gerade ein Tool gesucht mit dem man in einem ASM die Teile überprüfen kann ob die Profile der Teile voll definiert sind.
Dabei bin ich auf diesen Beitrag gestoßen.
Hat sich was ergeben?

WackerM

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

---

Hi,

zur V15 kann ich da zwar nichts sagen aber in der V17 kann man sich in der EdgeBar anzeigen lassen ob Featureelemente voll definiert sind oder nicht.

MfG

Chris

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

---

schoen, doch offensichtlich moechte man das per Programm machen!

klaus

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

---

Hallo!

Ich bin grad an einem umfangreichen Prüfprogramm und hab da auch was in die Richtung geschrieben (VB6, SE v15), vielleicht hilft's

Wichtig sind für Parts der Status der "Features" und für Assemblies der der "Occurrences"

Sucht mal in der SESDK-Hilfe nach "Status Property", da werden die ganzen Konstanten angezeigt

CODE:
==============================================================

Private Function checkGeometry(strFile As String) As String
    Dim strReturn As String
    Dim seDoc As Object
    Dim seApp as SolidEdge.Application

    Dim i As Integer
    Dim j As Integer
   
    Set seApp = CreateObject("SolidEdge.Application")
    Set seDocs = seApp.Documents
    Set seDoc = seDocs.Open(strFile)
   
    If GetExtension(strFile) = ".par" Then
        Dim seFeatures As Object
        For i = 1 To seDoc.Models.Count
            Set seFeatures = seDoc.Models.Item(i).Features
            For j = 1 To seFeatures.Count
                Select Case (seFeatures.Item(j).Status)
                    Case FAILED:
                        If strReturn <> "" Then strReturn = strReturn & ", "
                        strReturn = strReturn & STR_ERROR_GEOMETRY_FAILED & ": " & seDoc.Models.Item(i).Name & "\" & seFeatures.Item(j).Name
                    Case WARNED:
                        If strReturn <> "" Then strReturn = strReturn & ", "
                        strReturn = strReturn & STR_ERROR_GEOMETRY_WARNED & ": " & seDoc.Models.Item(i).Name & "\" & seFeatures.Item(j).Name
                    Case SUP:
                        If strReturn <> "" Then strReturn = strReturn & ", "
                        strReturn = strReturn & STR_WARNING_GEOMETRY_SUPPRESSED & ": " & seDoc.Models.Item(i).Name & "\" & seFeatures.Item(j).Name
                    Case OK:
                        strReturn = strReturn & ""
                End Select
            Next j
        Next i
        Set seFeatures = Nothing
    ElseIf GetExtension(strFile) = ".asm" Then
        Dim seOccurrences As Object
        Set seOccurrences = seDoc.Occurrences

        For i = 1 To seOccurrences.Count
            Select Case (seOccurrences.Item(i).Status)
                Case 1: 'Assembly Occurrence Status Well Defined

                Case 2: 'Assembly Occurrence Status Fixed

                Case 4: 'Assembly Occurrence Status Under Defined
                        If strReturn <> "" Then strReturn = strReturn & ", "
                        strReturn = strReturn & STR_ERROR_OCCURRENCE_UNDER_DEFINED & seOccurrences.Item(i).Name
                Case 32776: 'Assembly Occurrence Status Over Defined
                        If strReturn <> "" Then strReturn = strReturn & ", "
                        strReturn = strReturn & STR_ERROR_OCCURRENCE_OVER_DEFINED & seOccurrences.Item(i).Name
                Case 32784: 'Assembly Occurrence Status Not Consistent
                        If strReturn <> "" Then strReturn = strReturn & ", "
                        strReturn = strReturn & STR_ERROR_OCCURRENCE_NOT_CONSISTENT & seOccurrences.Item(i).Name
                Case 32800: 'Assembly Occurrence Status Not Changed
               
                Case 32832: 'Assembly Occurrence Status Non Algebraic

                Case 32896: 'Assembly Occurrence Status Unknown

            End Select
        Next i
               
        Set seOccurrences = Nothing
    End If
   
    checkGeometry = errortext & strReturn
    Call seDoc.Close
    Call seDocs.Close
    Call seApp.Quit
    Set seDoc = Nothing
    Set seDocs = Nothing
    Set seApp = Nothing
End Function

===================================================================

Was allerdings alle StatusKonstanten bedeuten, hab ich auch noch nicht herausgefunden....

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

---

chkAsmStatus.zip

Moin,

und hier die 'gebrauchsfaehige' Version als Klasse

Happy hacking

modeng

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

---

Hallo,

als freiberuflicher Entwickler habe ich erst kürzlich u.a. genau die gestellte Aufgabe in einem Programm 'SeProof' unter VB.NET  realisiert. Alle in einem Verzeichnis vorhandenen Solid Edge Dateien werden auf bestimmte 'Fehler' hin überprüft und ein Protokoll erstellt. Das Programm ist interaktiv und im Batch zu benutzen. Genaue Infos findet man unter www.wksyspro.de/Produkte (SeProof).

Lösung:
Die Überprüfung eines Features auf Unterbestimmtheit wird vom Solid Edge API erst ab Version 16 unterstützt! Dann kann die Eigenschaft 'IsUnderDefined' des ProfileSet-Objekts geprüft werden. Das ProfileSet-Objekt erhält man ausgehend von einem Feature-Objekt über dessen Parent-Objekt (ergibt das Profile-Objekt) und der Eigenschaft 'ProfileSet' des Profile-Objekts. Über die ebenfalls erst ab V16 verfügbare Eigenschaft 'DisplayName' des Feature-Objekts erhält man den Bezug zu dem in Solid Edge angezeigten Formelementnamen.

Viele Grüße

Wolfgang Kunert

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

---

Hallo,

der zuvor angegebene Link mit Infos zu 'SeProof' muß lauten:
www.wksyspro.de/14455.html

Sorry,

Wolfgang Kunert

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