---

Ich verwende momentan folgende routine für blöcke zu clonen:

(defun C:CloneBlock (/ enx en ent pkt nm nm2 nm3 i exitflag entyp cb_sysvar)

  (while (not exitflag)
    (setq enX (entsel))
    (setq en (car enx))
    (setq ent (entget en))

    (setq entyp (cdr (assoc 0 ent)))
    (setq pkt (trans (cdr (assoc 10 ent)) 0 1))
    (setq nm (cdr (assoc 2 ent)))

    (if (= entyp "INSERT")
      (setq exitflag T)
      (princ "\nDas gewählte Element ist kein Block")
    )
  )

  (redraw en 3)

  (setq i 1)

  (while (> (length
      (tblsearch "BLOCK" (setq nm2 (strcat nm (rtos i 2 0))))
    )
    0
)
    (setq i (1+ i))
  )

  (setq
    nm3 (getstring (strcat "\nNeuen Blockname eingeben: <" nm2 ">"))
  )
  (if (= nm3 "")
    (setq nm3 nm2)
  )
  (if (> (length (tblsearch "BLOCK" nm3)) 0)
    (progn
      (alert "Der angegebene Blockname existiert bereits")
      (redraw en 4)
    )
    (progn
      (command "_explode" en "")
      (command "_block" nm3 pkt "_p" "")

      (setq cb_sysvar (cb_std_sysvar '(("CLAYER" (cdr (assoc 8 ent))))))
      (command "_insert" nm3 pkt "" "" "")
      (cb_std_sysvar cb_sysvar)
      (princ "\n")
      (princ (strcat "\nBlock geklont von '" nm "' --> '" nm3 "'")
      )
    )
  )
  (print)
)

;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; Ändert bzw. stellt Systemvariablen wieder her, die als Liste 'L'
; übergeben werden
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

(defun CB_STD_sysvar (l)
    (mapcar '(lambda (x / var val vlist)
  (setq var  (if (listp x)
    (car x)
    x
      ) ;_ Ende von if
val  (if (listp x)
    (eval (cadr x))
    nil
      ) ;_ Ende von if
vlist (list var (getvar var))
  ) ;_ Ende von setq
  (if val
(setvar var val)
  ) ;_ Ende von if
  vlist
      ) ;_ Ende von lambda
    l
    ) ;_ Ende von mapcar
) ;_ Ende von defun

Problem ist dabei wenn das BKS gedreht ist funktioniert das nicht richtig...

gibt es hier eine bessere Lösung?

Danke

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

---

Schon gesehen ? --> <Klick>

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Ja, nehme ein gescheites Programm

PS: ob BKS gedreht oder WKS spielt keine Rolle, in meinen Augen funktioniert das Programm nie ordentlich (nimmt die aktuelle Größe/Drehung der gewählten Referenz als Drehung0 und Skalierung0 an, daher ist es kein "Clone")

Auch werden die Attributwerte nicht übernommen.. also nur ein viertel und nichts Ganzes.

Frage: Möchtest DU das Programm ändern (was hindert sich?) oder suchst du jemanden der dir ein Programm schriebt/ändert?

Sebastian 

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

... und da gab's (unter anderem) auch etwas von mir zum Thema: Link

Wenn du es selber machen möchtest, dann wäre der bessere Weg, die Blockfdefinition zu Clonen und der gewählten Referenz, die neu erstellte Blockdefinition zuzuweisen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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