---

Hallo alle zusammen

gibt's irgendwo ein Makro/Lisp mit welchem ein Block mit seinem Namen Beschriftet werden kann, mit Schnellfühhrung oder so.

frohes Schaffen alle zusammen

Paul

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

---

Moin erstmal, wenn sich sonst keiner zu fragen traut...

Konstante und variable Attribute sind dir ein Begriff ? - Warum nicht so ?

Oder einfach als Text der Blockdefinition hinzufügen - evtl. so ?

Welche Software nutzt du ? ( Infothread im Forum lesen - "1.Thema..." )

Entschuldigung wenn ich dir jetzt auf die Füße getreten bin, aber 1. denke ich
da ist jmd verwirrt das er das nicht im Block definiert sondern als Text haben möchte,
2. selbst wenn man das als Textobjekt haben möchte gibt es da evtl schnellere Wege.
Also: Mehr InfoŽs bitte -  bis denne

------------------
- Sebastian Mattis -

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

---

Vielleicht sowas als ausbaufähige Grundvariante:
(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) 
)

------------------
- Thomas -

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

---

Oder das nehmen was schon mal gepostet wurde http://ww3.cad.de/foren/ubb/Forum54/HTML/001695.shtml

------------------
Gruss
Caladia

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

---

hallo
Danke für die schnelle Antwort
Also, ich arbeite mit ACAD 2004, XP Professional / Attribute, konstante oder variabel, kenn ich nich /
als Text geht nicht weil wir ihn manchmal brauchen oder die Blöcke spiegeln.

frohes schaffen

Paul

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

---

hallo, bin LISP Anfänger
schaut gut aus der Code, bring in nur nich
zum laufen

Danke für die Hilfe

mfG Paul

Zitat:

---

Original erstellt von CADmium:
Vielleicht sowas als ausbaufähige Grundvariante:
(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) 
)

---

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

---

Ich zitiere die Anleitung von www.defun.de ->Hilfe->Training :

Eigene AutoLISP- Anwendungen laden:
Zunächst den Code in einer Datei mit der Erweiterung LSP in einem der AutoCAD-Supportpfade speichern - re.lsp

Anwendung laden
- In der Befehlszeile: (load“dateiname.lsp“)
- Über das MenüMenü: Extras -> Anwendungen, Datei auswählen, Laden

Danach können die Funktionen durch Eingabe der darin definierten (defun c:NAME () in der AutoCAD- Befehlszeile aufgerufen werden.

BSP: (load“re.lsp“)
Befehl: re

.. also hier Textselektierung im Beitrag, copy - paste in einer Textdatei und speichern unter "INSERT_GETNAME.lsp", dann (load "INSERT_GETNAME.lsp") und in der Befehlszeile INSERT_GETNAME

------------------
- Thomas -

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

---

Weltklasse! Das kann ich ja auch brauchen! 10 Us von mir

lg
WoK

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

---

@cadmium,

simpel aber gut!
10 fliegen rüber!

Gruß Alpschorsch

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

---

hey cool

genau was ich immer gesucht habe
FUNZT

mfg

Paul

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