---

Hallo NG,

wenn ich eine Textdatei in einen MText reintun will,
wie bekomm ich denn da die Zeilenumbrüche hin ???
Andersrum die Idee mit der Zwischenablage tut leider auch nicht so ganz ...

Gruss Nancy
--

Code:

---

Sub xx()
  'Dim dobj As New DataObject
  Dim tx As AcadMText
  Dim sline$, stext$
  Dim pt#(0 To 2)
  pt(0) = 0: pt(1) = 0: pt(2) = 0
  Open "c:\temp\1.txt~" For Input As #1
  While Not EOF(1)
    Line Input #1, sline
    stext = stext & sline & Chr(13)
  Wend
  Close #1
  'dobj.SetText stext
  'dobj.PutInClipboard
  Set tx = ThisDrawing.ModelSpace.AddMText(pt, 10, stext)
  '''ThisDrawing.ModelSpace.Paste ??? Halt RMT machen
End Sub

---

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

---

Öhäm ... nun ...,

man nehme statt des & Chr(13) ein & "\P"
Dann klappts auch mit dem MText.

Wie das mit dem Clipboard geht, würd' mich aber nu scho noch intressieren 
Geht's überhaupt ?

Gruss Nancy

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

---

Hallo Nancy,

in der Hilfe steht nur, dass man die Zwischenablage nur in Formularen benutzen kann. In den Boxen zum Beispiel.

Ein Erklärungsversuch, warum das einfügen aus der Zwischenablage innerhalb einer Zeichnung, für mich, keinen Sinn macht:

Wenn Du etwas in die Ablage kopierst und das dann in der Zeichnung einfügst, landet es immer in der linken oberen Ecke. Du kannst also keinen Einfügepunkt mitgeben und musst es dann halt noch mit der Hand zurechtrücken. Irgendwie umständlich oder? Anders sieht es da in einer Textbox im Formular aus.

Kopier folgendes mal in ein Modul und starte das mal über ein Icon in ACAD. Das sollte funktionieren.

Code:

---

  Dim dobj As New DataObject
  Dim stext As String

  stext = "gjgjhg"
   
  dobj.SetText stext
  'schreiben in clipboard
  dobj.PutInClipboard
  'Tastenkompination send wobei ^ = Strg
  SendKeys "^v"
  'clipboard leeren
  dobj.Clear

---

Ich hof das hilft Dir weiter.

Gruss TP

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

---

Hi TP,

ja klar, Sendkey's ... ich Dussel.

Aber, und da hast Du nun verdammt Recht,
das ist in der Form im Zeichenbereich sooo weniger zu gebrauchen 

thx for help
Grüsse
Nancy
 

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