---

Hallo Alle,

kann mir jemand helfen. ich muß bei einer ganzen Reihe MTEXTEN eine komplette Zeile löschen. Gibt es da einen Automatismus oder muß ich jeden Text einzeln editieren. Ich benutze ACAD2004.

Danke!

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

---

mit "suchen" (_find).

ciao georg

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

---

das ist mir schon klar, aber wie lösche ich die entstehende Leerzeile.

Mein Text sieht so aus: 1. Zeile
                        2. Zeile
                        3. Zeile
Ich möchte Zeile 2 löschen und die 3. Zeile soll hoch rutschen.

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

---

Hi Antor,

nicht besonders getestet, also eher für simple MTexte,
kannst du mal folgendes probieren:

Code:

---

Sub del_second_row()
    Dim sset As AcadSelectionSet, ent As AcadEntity
    Dim rex As Object
    Set sset = ActiveDocument.SelectionSets.Add("set3")
    sset.SelectOnScreen
    Set rex = CreateObject("vbscript.regexp")
    rex.Global = True
    rex.Pattern = "(.*?\\P)(.*?\\P)(.*)"
    For Each ent In sset
        If TypeOf ent Is IAcadMText Then
            ent.TextString = rex.Replace(ent.TextString, "$1$3")
        End If
  Next
  sset.Delete
  Set rex = Nothing
End Sub

---

Gruss Nancy

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

---

Hi Nancy,
danke für den Tipp, aber ich bin nicht so versiert. Was muss ich mit dem Script machen?

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

---

Hallo,

schau mal hier

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Antor,
probier es mal mit folgendem LISP. Zu Beachten ist aber, das Formatierungen, die über die zu löschenden Zeile hinaus gehen, zerstört werden. Also, die Ergebnisse prüfen!!

Code:

---

;;;Jörn Bosse, 05.02.06
(defun c:mt_del_zeile  (/ temp text text1 text_liste n n1 aws)
  (if (not JB_zeile)
    (setq JB_zeile 2))
  (princ "\nBitte wählen Sie MTexte aus:")
  (if

    (setq aws (ssget (list (cons 0 "MTEXT"))))
    (progn (if (setq temp
      (getint
(strcat
  "\nBitte geben Sie die zu löschende Zeilennummer an:<"
  (itoa JB_zeile)
  ">")))
      (setq JB_zeile temp))
    (setq n 0)
    (repeat (sslength aws)
      (setq text_liste nil)
      (setq text (cdr (assoc 1 (entget (ssname aws n)))))
      (while (vl-string-search "\\P" text)
(setq text_liste (cons (substr text
      1
      (vl-string-search "\\P" text))
      text_liste)
      text (substr text (+ (vl-string-search "\\P" text) 3))))
      (setq text_liste (cons text text_liste))
      (setq text1 ""
    n1 1)
      (mapcar '(lambda (A)
(if (/= n1 JB_zeile)
  (setq text1
  (strcat text1
  A
  (if (< n1 (length text_liste))
    "\\P"
    ""))))
(setq n1 (+ n1 1)))
      (reverse text_liste))
      (entmod (subst (cons 1 text1)
    (assoc 1 (entget (ssname aws n)))
    (entget (ssname aws n))))

      (setq n (+ n 1))))
    (alert "Sie haben keine MTexte ausgewählt."))
  (princ)
  )
(princ "\nn.te Zeile von Mtexten löschen.")
(princ "\nStart mit \"mt_del_zeile\"")

---

------------------
viele Grüße

Jörn

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

---

Lies mal: http://autocad.cad.de/modules.php?name=FAQ&myfaq=yes&id_cat=4&categories=VBA#17

viel Glück;-)
Nancy

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

---

Danke klappt, noch eine Frage wie ändere ich die Zeile zum Beispiel von 2 auf 3.

Antor

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

---

Hi Jörn,

funktioniert bestens.
Kann man das Script so umbauen, das ein frei wählbarer String angegeben wird und dieser dann inkl. der ganzen Zeile gelöscht wird.

Vielen Dank schon mal!

Antor

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

---

Hallo Antor,
hier nochmal eine Variante: Es wird nach einem String gesucht. Wenn der String innerhalb einer Zeile eines MTextes vorhanden ist, wird die Zeile gelöscht. Auch hier wieder: Ergebnisse prüfen!!!

Code:

---

;;;Jörn Bosse, 05.02.06
(defun c:mt_del_zeile_str  (/ temp text text1 text_liste n n1 aws)
  (if (not JB_str)
    (setq JB_str "TEST"))
  (princ "\nBitte wählen Sie MTexte aus:")
  (if

    (setq aws (ssget (list (cons 0 "MTEXT"))))
    (progn (if (/=(setq temp
      (getstring
(strcat
  "\nBitte Löschstring angeben. <"
  JB_str
  ">")))"")
      (setq JB_str temp))
    (setq n 0)
    (repeat (sslength aws)
      (setq text_liste nil)
      (setq text (cdr (assoc 1 (entget (ssname aws n)))))
      (while (vl-string-search "\\P" text)
(setq text_liste (cons (substr text
      1
      (vl-string-search "\\P" text))
      text_liste)
      text (substr text (+ (vl-string-search "\\P" text) 3))))
      (setq text_liste (cons text text_liste))
      (setq text1 ""
    n1 1)
   
      (mapcar '(lambda (A)
(if (not (vl-string-search JB_str A))
  (setq text1
  (strcat text1
  A
  (if (< n1 (length text_liste))
    "\\P"
    ""))))
(setq n1 (+ n1 1)))
      (reverse text_liste))
      (entmod (subst (cons 1 text1)
    (assoc 1 (entget (ssname aws n)))
    (entget (ssname aws n))))

      (setq n (+ n 1))))
    (alert "Sie haben keine MTexte ausgewählt."))
  (princ)
  )
(princ "\nLöschen von Zeilen aus Mtexten, die einen Löschstring beinhalten.")
(princ "\nStart mit \"mt_del_zeile_str\"")

---

------------------
viele Grüße

Jörn

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

---

Bestens!
Vielen Dank und schönes Wochenende!

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