---

Hallo,

wie bekomme ich die absolute Pfadangabe, der geöffneten Datei, automatisch mit in das Schriftfeld?

Kann mir da jemand helfen??????????

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

---

Hallo anluebb,

schau mal unter Maßstab im DFT automatisch erzeugen, eventuell läßt sich das dortige Makro entsprechend verändern um statt des Maßstabs den Pfadnamen darzustellen.

------------------
Gruß

Markus Gras
Unitec Informationssysteme GmbH

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

---

So gehts:

  dim objApp As Object
  dim objDoc As Object

  On Error Resume Next
  Set objApp = GetObject(, "SolidEdge.Application")
 
  If Err Then
  MsgBox "Kann Verbindung zu SE nicht herstellen !"
  End
  End If
 
  On Error GoTo 0
 
  If not objApp.ActiveEnvironment = "Detail" Then
    MsgBox "Draft muss geöffnet sein !"
    End
  End If
   
  Set objDoc = objApp.ActiveDocument

'Box erzeugen
  Set objTextBox = objTextBoxes.AddByTwoPoints (X, Y, 0, Breite, Hoehe, 0)

'Umrandung
'  objTextBox.BorderType = igTextBorderRectangle
  objTextBox.BorderType = igTextBorderNone

'Text reinschreiben und formatieren
  objTextBox.Text = objDoc.Path + "\" + objDoc.Name

'Gewünschte texthöhe geben, da der Text auf den benutzereinstellungen basiert
  objTextBox.Edit.TextSize = dblUTextSize

'Der Text wird leider basierend auf den Benutzereinstellungen
' geschrieben, d.h. die Boxgrösse ändert sich beim reinschreiben
' deshalb Boxgroesse hinterher nochmal setzen
  objTextBox.Height = dblUBoxHeight

'Text in der Box zentrieren. Muss am Schluss erfolgen, sonst verschiebt
' sich die Textbox nochmal
  objTextBox.Edit.HorizontalAlignment = iAusrichtung
  objTextBox.VerticalAlignment = igTextHzAlignVCenter

  Set objApp = Nothing
  Set objDoc = Nothing

  end

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

---

Hallo caeman,

Vielen Dank,

bekomme leider immer Fehlermeldung:
Run-time error `424`:
Object required

habe keine Ahnung warum.

Gruß Anja

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

---

test.zip

In der Tat, hatte noch zwei Objekte vergessen. Anbei ein fertiges Programm das den gesamten Dateinamen bei X=100 Y=100 auf das Draft schreibt mit Texthöhe 3.5mm.

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

---

Super!
Vielen, vielen D a n k

Gruß Anja

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

---

Morgen,

wer ist so nett und kann mir eine EXE Datei aus "Test" machen damit ich diese in SolidEdge zum laufen bringe ?

Oder gibts mittlerweile was anderes?

Danke für die Hilfe,

------------------
Gruß,
Stefan    

[Diese Nachricht wurde von Cagiva am 13. Aug. 2004 editiert.]

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

---

PFDA.zip

Hallo Stefan,
anbei der EXE-File der Test.zip.
Habe am Quellcode nichts geändert. Ist recht simpel gehalten
(keine einstellmöglichkeiten: Textgröße,Position usw.) aber
funktioniert.

Gruß Harald

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

---

Super!

Danke und schönes Wochenende

------------------
Gruß,
Stefan   

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

---

falls es automatisch per addin als benutzerdefiniert Variable gehen
soll gibt's hier etwas:
http://www.incobase.de/Download.html#setdsn

modeng

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

---

Noch besser, DANKE!

------------------
Gruß,
Stefan   

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