---

Hi

Ich habe im Forum ein tolles kleines programm gefunden mit dem man einen Block beschriften kann.

LSP von CADmium
(defun c:INSERT_GETNAME (  / OBJEKT OBJEKTDATEN NAME PKT ABBRUCH)
  (if (and(setq OBJEKT (ssget "_:S" '((0 . "INSERT")))) (setq OBJEKT (ssname OBJEKT 0)))
    (progn     
      (setq OBJEKTDATEN (entget OBJEKT))
      (setq NAME  (cdr(assoc 2 OBJEKTDATEN)))                             
      (if (setq PKT (getpoint "\nStartpunkt der Führung : "))
(progn
          (command ".leader" PKT)
          (while (not ABBRUCH)
            (princ "\nNächster Punkt <Ende>: ")
            (command pause)
            (if (equal PKT (getvar "LASTPOINT"))
              (setq ABBRUCH 'T)
              (setq PKT (getvar "LASTPOINT"))
    ) 
          )
  (command NAME "")
        )
      )             
    )
    (princ "\nkeine Blockreferenz gewählt")
  )
  (princ) 
)

Da ich mich fast gar nicht mit LSP Programmieren auskenne eine kleine frage an euch.

Kann man diese LSP einfach umschreiben das es den Block in einem Block beschriften kann. (weiss töhnt ein Wenig kompliziert)
z.B habe ich einen Block in der Zeichnung (Name=s1) in diesem Block ist auch ein block eingefügt mit einem anderen Namen und diesen möchte ich gerne beschriften.

Gruss

------------------
Moni

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

---

entsel wählt die oberste Schachtelebene aus ..nentsel die unterste .. welche von denen dazwischen gemeint ist, muß der User festlegen (ähnlich wie bei Refedit) .. und dafür ne Dialog usw. finde ich etwas zu aufwendig.. machbar wäre es sicher.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke für die antwort Thomas

entsel und nentsel sagt mir leider überhaupt nichts.
und wie schon gesagt leider auch das Progrmiern nicht sehr viel.

Wenn ich es richtig verstanden habe kann man nicht einfach deine bestehende LSP anpassen sondern muss eine neue LSP schreiben was sehr aufwändig ist.

------------------
Moni

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

---

.. für deinen Zweck :ja

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

schade   na ja eine Frage wars wert

------------------
Moni

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