---

Hallo!!!

Ich versuche gerade krampfhaft mir mit "entmake" einen attributsblock zu kopieren, leider funktioniert es aber irgendwie nicht.

Testweise Ausgangsform:
(entmake(entget(car(entsel))))
dann dachte ich mir viell. liegt es am gleichen objektnamen was autocad nicht erkennt da ja evtl der gleiche block mit gleichem objektnamen vorhanden ist also habe ich mal das versucht
(entmake (cdr(entget(car(entsel)))))
sodass viell. von acad ein neuer objektname vergeben wird.

Ich habe die beiden versionen mit normalen blöcken kopiert, das war alles kein problem aber mit attributsblöcken bekomme ich es einfach nicht hin.

Woran liegt das? eigentlich will ich nur einen vorhandenen attributsblock mit entmod einen neuen namen zuweisen jedoch auch das wird nicht aktezpiert ...

mfg blue

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

---

willst du einen Block umbenennen oder Clonen ? ... bei letzterem darf nicht nur der Rumpfblock "entmaked" werden, sondern auch alle Block objekte  .. als letztes wird dann mit Entmaken eines ENDBLK der Block abgeschlossen.-->BSP

fürs umbenennen reicht ein entmod der Blockdefinition .. (entget(tblobjname "BLOCK" NAME)) ...

------------------
           - 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

---

ok cadmi danke soweit, das sieht doch etwas aufwändiger aus den block zu clonen. werde ich mir evtl am wochenende mal zu gemühte führen.

wie sieht es aus wenn ich den block umbenennen will? denn die einzige antwort die ich bekomme ist "nil"

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

---

machs mit (command  "_rename" "_BLOCK" ALTERNAME NEUERNAME) .....

------------------
  - 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

---

Das geht nicht mit entmake weil die Attribute fehlen.

Das hier sollte reichen:
(defun c:clone (/ ENT_DATA ENT_LIST ENT_NAME PIC)
;;; wählen 
  (if (setq pic (entsel))
    (progn
;;; Daten in Liste
      (setq ent_data (entget (setq ent_name (car pic))))
      (setq ent_list (cons ent_data ent_list))
;;; wenn Folgeobjekte (Attribute)
      (if (= (cdr (assoc 66 ent_data)) 1)
(progn
  (while (/= (cdr (assoc 0 ent_data)) "SEQEND")
    (setq ent_data (entget (setq ent_name (entnext ent_name))))
    (setq ent_list (cons ent_data ent_list))
  )
)
      )
;;; neues Objekt erstellen, vorher Elementnamen aus Daten löschen
      (foreach ent_data
      (reverse
(mapcar '(lambda (ent_data)
    (vl-remove (assoc -1 ent_data) ent_data)
  )
ent_list
)
      )
(entmakex ent_data)
      )
    )
  )
  (princ)
)

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

jo danke andi werds gleich mal testen

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