---

Wer weiß einen Rat ?
Bestimmte Randsignaturen werden als Block gespeichert, mit dem Nachteil, daß sich dieser nicht immer unmittelbar ändern läßt. Es sein dann, man löst ihn auf, hat es dann aber mit einer Vielzahl von einzelnen Elementen zu. Gibt es eine Funktion, einen Block aufzulösen und nach der Änderung in der gleichen Weise wieder als Block zusammen zu fügen ?

Tom

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

---

refedit ?

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

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

---

Dafür gibt es den AutoCAD-Befehl REFEDIT.

Wenn das nicht passt: den Block mit WBLOCK speichern,
die estellte Blockzeichnung bearbeiten und wieder einfügen (- Datei wählen...)

------------------
Gruß aus Wien
Bernhard

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

---

Servus

Randsignaturen sind sie skaliert? wie sind sie skaliert X=Y=Z

Block wählen 1. Punkt 2.Punkt fertig
^C^C(progn (command "_explode"  (ssget)) (setq p1 (getpoint))(command "_copybase" p1 "v""") (command "_erase" "v""") (setq p2 (getpoint)) (command "_pasteblock" (if (not p2) p1 p2)))

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

REFEDIT geht nicht:

"** Unbenannter Block kann nicht mit REFBEARB bearbeitet werden **"

und nun ?

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

---

Dann benenn ihn um -> www.cadwiesel.de  ->Objekte->Blöcke->benennUBL

oder hiermit :

(defun C:BLOCK-RENAME (/ OBJEKT OBJEKTDATEN ALTERNAME NEUERNAME AUSWAHL INDEX
                        BLOCKDEF MODIFIED)
  (if (setq OBJEKT(ssname(ssget "_:S" '((0 . "INSERT")))0))
    (progn
      (setq OBJEKTDATEN (entget OBJEKT))
      (setq ALTERNAME(cdr(assoc 2 OBJEKTDATEN)))
      (if (and(or(setq NEUERNAME (getstring
                                  (strcat "\nNeuer Name für Block \""ALTERNAME"\" : ")
                                )
                )
                (setq NEUERNAME "*U")
              )              
              (not(tblsearch "BLOCK" NEUERNAME))
          )
        (progn
          (setq OBJEKT (tblobjname "BLOCK" ALTERNAME))
          (entmake (list                             
                    '(0 . "BLOCK")
                    (cons 2  (if (=(substr NEUERNAME 1 1) "*") "*U" NEUERNAME))
                    (cons 70 (if (=(substr NEUERNAME 1 1) "*") 1 0))
                    (assoc 10 (entget OBJEKT))
                  )
          )
          (while (setq OBJEKT (entnext OBJEKT))       
            (entmake(entget OBJEKT))
          )
          (if (setq NEUERNAME(entmake '((0 . "ENDBLK"))))
    (progn      
              (if (setq AUSWAHL (ssget "_X"  '((0 . "INSERT"))))     
                (progn  
                  (setq INDEX 0)
                  (repeat (sslength AUSWAHL)
                    (if(=(strcase(cdr(assoc 2 (setq OBJEKTDATEN(entget(ssname AUSWAHL INDEX))))))
                        (strcase ALTERNAME)
                      )
                      (entmod(subst(cons 2 NEUERNAME)(assoc 2 OBJEKTDATEN)OBJEKTDATEN))
                    )
                    (setq INDEX(1+ INDEX))
                  )
                )
              )
              (while (setq BLOCKDEF (tblnext "BLOCK" (null BLOCKDEF)))
                (if (and(/=(logand(cdr(assoc 70 BLOCKDEF))4)4) 
                        (or(/= (logand(cdr(assoc 70 BLOCKDEF))1)1) 
                          (=(substr (cdr(assoc 2 BLOCKDEF)) 1 2) "*U")
                        )
                    )   
                  (progn
            (setq MODIFIED nil)
                    (setq OBJEKT (cdr (assoc -2 BLOCKDEF))) 
                    (while OBJEKT 
                      (setq OBJEKTDATEN(entget OBJEKT))
                      (if (and (=(cdr(assoc 0 OBJEKTDATEN)) "INSERT")
                              (=(strcase(cdr(assoc 2 OBJEKTDATEN))) (strcase ALTERNAME)))
                        (progn
                          (entmod(subst(cons 2 NEUERNAME)(assoc 2 OBJEKTDATEN)OBJEKTDATEN))
                          (setq MODIFIED 'T)
                        ) 
                      )
                      (setq OBJEKT (entnext OBJEKT)) 
                    )                               
                    (if MODIFIED(entupd (cdr (assoc -2 BLOCKDEF)))) 
                  )
                )
              )
     
              (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! Blockname existiert schon\n")
      ) 
    )         
    (princ "\nKeine Blockreferenz gewählt!\n")                   
  )
  (princ)
)

... Teil benennt Block zum angeklickten Insert um -> allgemein, anonym in benannte, benannte in anonyme...

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

[Diese Nachricht wurde von CADmium am 23. Apr. 2004 editiert.]

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

---

Zeichnung.zip

Hier ist das Teil...

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

---

Machs wie es Cadmium schreibt, geht einwandfrei.

------------------
Grüsse

Thomas

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

---

An CADmium:
Als was muß ich die Routine abspeichern, damit ich sie nutzen kann ?

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

---

(Bin zwar nicht CADmium, Thomas heisse ich aber auch  )

Wenn con CADWiesel: entzippen und LSP als LSP lassen;
Wenn von CADmium: als LSP speichern
Restliche vorgehensweise:siehe hier am Ende des Threads

------------------
Grüsse

Thomas

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

---

von der ersten Klammer (defun .. bis zur letzten Klammer markieren ..in notepad kopieren und als "block-rename.lsp" abspeichern. Am besten ins Supportverzeichnis von ACAD- da wirds auch gefunden. Dann unter Autocad (load "block-rename.lsp") in der Befehlszeile eingeben ( bez. im Menu ... Autolisp..laden). und dann hast du den Befehl block-rename zur Verfügung.

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

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

---

Danke an alle, besonder CADmium, das Teil hilft wirklich !!!

Tom

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