---

Hallo zusammen,

kann man im Mechanical 2004 DX SP1 keine Blöcke mehr einfach umbenennen? Muß ich immer erst den Block sprengen und dann wieder
unter einem anderen Namen speichern. Im 6er ging das noch mit
einfach umbenennen.

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

---

wenn nicht, versuchs hiermit :
(vl-load-com)

(defun BLOCK_RENAME (  ALTERNAME NEUERNAME  / )
  (if (and (=(type ALTERNAME) 'STR)(tblsearch "BLOCK" ALTERNAME)
          (=(type NEUERNAME) 'STR)(snvalid NEUERNAME)(not(tblsearch "BLOCK" NEUERNAME))
      )
    (progn
      (vla-put-name
        (vla-item
          (vla-get-blocks
            (vla-get-ActiveDocument
              (vlax-get-acad-object)
            )
          )
          ALTERNAME
        )
        NEUERNAME
      )
      (not(not(tblsearch "BLOCK" NEUERNAME)))
    ) 
  ) 
) 

(defun C:BLOCK_RENAME ( / OBJEKT OBJEKTDATEN ALTERNAME NEUERNAME)
  (if (setq OBJEKT (car(entsel)))
    (progn     
      (setq OBJEKTDATEN (entget OBJEKT))
      (if (=(cdr(assoc 0 OBJEKTDATEN)) "INSERT")
        (progn
          (setq ALTERNAME(cdr(assoc 2 OBJEKTDATEN)))
          (if (and(setq NEUERNAME (getstring 'T "\nNeuer Name : "))(snvalid NEUERNAME))
            (if (BLOCK_RENAME ALTERNAME NEUERNAME)
              (princ (strcat"\nBlock \"" ALTERNAME "\" wurde in \""  NEUERNAME "\" umbenannt.\n" ))
              (princ (strcat"\nBlock \"" ALTERNAME "\" konnte nicht zu \""
                                        NEUERNAME "\" umbenannt werden.\n" ))
            ) 
            (princ "\nKeine gültige Blockbezeichnung eingegeben!\n")           
          ) 
        )         
        (princ "\nKeine Blockreferenz gewählt!\n")           
      )
    )
    (princ "\nNichts gewählt!\n")
  )
  (princ)
) 

Laden und dann mit BLOCK_RENAME aufrufen, Referenz anklicken....

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

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

---

Hallo Bidi,
soll das heissen, es geht nicht mehr wie bisher - Block öffnen, bearbeiten und beim Schließen einen neuen Namen vergeben? Das darf doch wohl nicht wahr sein!!??
Gruß Helmut

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

---

Hallo Thomas,

danke für die Lisp!
Funzt!
Is zwar nicht mehr so einfach wie früher aber hauptsache es geht.

greetinxx  Bidi

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

---

Hallo Thomas,

ich war zu voreilig! die Lisp funzt doch nicht!
Ich bekomme immer den Fehler: no function definition: VLAX-GET-ACAD-OBJECT
kann man da einfach was um ändern und gut is?

greetinxx  Bidi

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

---

Zitat:

---

Original erstellt von Bidi:
Hallo zusammen,

kann man im Mechanical 2004 DX SP1 keine Blöcke mehr einfach umbenennen? Muß ich immer erst den Block sprengen und dann wieder
unter einem anderen Namen speichern. Im 6er ging das noch mit
einfach umbenennen.

---

Hallo Miteinander!

Keine Aufregeung, geht schon, nur etwas anders!
Du darfst nicht den Button zum schliessen und speichern der Referenz (<=> _refclose) drücken, sondern einfach (bei geoeffnetem Dialogfeld)in der Commandline AMREFCLOSE eingeben; danach erscheint wieder das Dialogfeld zum Speichern, wo man nun auch Basispunkt editieren kann und Name aendern kann.

Gruss, mijadukd

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

---

Recht Mühselig bei Mechanical 2004 DX SP1, würd ich sagen. Wenigstens funktioniert bei ACAD2004 pur der Befehl umbenenn noch.

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

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

---

(vl-load-com) mit geladen ? oberste Zeile....

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

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

---

Zitat:

---

Original erstellt von mijadukd:
Hallo Miteinander!

Keine Aufregeung, geht schon, nur etwas anders!
Du darfst nicht den Button zum schliessen und speichern der Referenz (<=> _refclose) drücken, sondern einfach (bei geoeffnetem Dialogfeld)in der Commandline AMREFCLOSE eingeben; danach erscheint wieder das Dialogfeld zum Speichern, wo man nun auch Basispunkt editieren kann und Name aendern kann.

Gruss, mijadukd

---

Herzlichen Dank mijadukd

------------------
Freundliche Grüsse - Eberhard Willach

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

---

Hallo Thomas,

ja, hab die ganze Lisp (auch mit vl-load-com) geladen.
Bekomme dann immer den Fehler: Unbekannter Befehl "BLOCK_RENAME"

greetinxx  Bidi

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

---

Hallo mijadukd,

Danke für den Tip. ( AMREFCLOSE)
Das funzt einwandfrei!

greetinxx Bidi

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

---

@ Bidi

lisp funktioniert bei mir einwandfrei und richtig komfpfrtbl ;-)
bist du sicher dass du sie GELADEN hast?

------------------
...so long and thanx for all the fish!

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

---

... und du bist sicher, dass du diese nach dem Öffnen der Zeichnung geladen hast?

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

habe nochmal alles rausgeschmissen und dann die Lisp noch mal neu geladen. Jetzt funzt es. Danke.

greetinxx  Bidi

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo Forum,

hab über die suche diesen Beitrag gefunden, ist sehr interessant.
Hab folgendes Problem, die lisp hab ich gemacht und auch für zufrieden erfunden, für mein perfektes Glück jedoch würde ich noch eine Autonummer benötigen, mit tcount von ExpressTool kann ich die Blöcke leider nicht angreifen, eine Idee?

------------------
Es gibt keine Dummen Fragen, nur Dumme Antworten

CU. Magab

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

---

Warum macht Ihr Euch das alles so kompliziert.
Geht doch einfach in die Benutzeroberfläche (Befehl: cui) und ändert
in dem Befehl refclose den hinterlegten Befehl mit _amrefclose- schon ist beim
Schließen des Blockes eine Umbenennung möglich.

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