---

Tach Edger,

ich bin nicht fit in VB habe aber bisher helfen können indem ich ein VB-Script von SE für meine zwecke verändert habe.

Ich brauche nun noch ein paar Zeilen Code um den Eintrag aus einer Excel-zelle in das Feld "Dokumentenummer" unter "Projekt" unter Dateieigenschaften zu schreiben.
Hatt das jemand????

Desweiteren würde ich gerne wissen wo man die Dokumentation finden kann um SE zu programmieren, das was unter Hilfe steht kann ja wohl nicht alles sein, oder?

Gruß Stephan

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

---

Hi Stephan,

ich kennŽ keine Doku zur SE-Programmierung die hilfreicher wäre als die in der Hilfe. Aber diese ist doch schon gut beschrieben.
Ansonsten: probieren, probieren, probieren!
Alles andere kommt mit der Zeit. Wird dir jetzt nix weiterhelfen, aber so haben alle mal angefangen.

In 'objApp.ActiveDocument.Properties' kannst die die Eigenschaften manipulieren. Hilft dir das weiter?

Gruß,
BJ

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

---

Hi BJ,
tja hilft mir nicht wirklich weiter, mir fehlt einfach das grundwissen für VB, desweiteren ist die suche in der Hilfe von SE sehr mühselig wenn man nicht weis wonach man suchen muß.
Schade eigentlich.....

Gruß Stephan

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

---

Hallo Stephan,

habe quick&dirty ein paar Programmzeilen hingebastelt.
----
Private Sub Properties()

Dim objSEApp As SolidEdgeFramework.Application
Dim strDocNumber As String
Dim strProjName As String
Dim intPropCount As Integer
Dim objProperty As Object

On Error Resume Next

strDocNumber = ActiveSheet.Range("A1")
strProjName = ActiveSheet.Range("A2")

Set objSEApp = GetObject(, "SolidEdge.Application")
objSEApp.DisplayAlerts = False

intPropCount = objSEApp.ActiveDocument.Properties.Count

For i = 1 To intPropCount
Set objProperty = objSEApp.ActiveDocument.Properties.Item(i)
If objProperty.Name = "ProjectInformation" Then
objProperty.Item(1).Value = strDocNumber    '**** Document Number
objProperty.Item(3).Value = strProjName    '**** Project Name
End If
Next i

objSEApp.DisplayAlerts = True
Set objSEApp = Nothing
Set objProperty = Nothing
Err.Clear

End Sub
-----

Sollte dir jetzt weiterhelfen.

Gruß und viel Spaß mit VB(A),
BJ

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

---

Auf den EDS - Seiten gab es zumindest bis zur Version 12 eine Programmersguide als PDF-Download. Der geht zwar in den letzten Kapiteln auf einige veraltetet Steuerelemente ein. Aber ansosnten kann man damit schon ein Paar Übungen erledigen.
Wenn der Mit Eurem Web AccsessKey nicht mehr zu finden ist, frag doch mal Deinen Reseller.

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

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

---

Hallo!

Jo, den kenne ich auch, finde den persönlich aber nicht so gut.
Mit der Online-Hilfe kommt man auch ganz gut weiter.
Ansonsten wie gesagt: Probieren geht über studieren.

Gruß,
BJ

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

---

Danke Arne werd mal nachschauen ob mir das hilft.

Danke BJ, werd damit mal mein glück versuchen und morgen berichten.

Gruß Stephan

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