(defun TO () (command "quader" '(0 0 0) '(200 40 10) "quader" '(0 0 10) '(200 40 20) "zylinder" '(20 20 0) 10 50 "apunkt" "d" 300 15))

(defun c:rb ()
  (setvar "cmdecho" 0)
  (command "zurück" "m")
  (Princ "\n Bohrungsobjekte anklicken!")
  (setq ss1 (ssget))
  (if (= (cdr(assoc 102 (entget (entlast)))) "{ACAD_REACTORS")
    (princ "\n Objekt gefunden\n ")
    (progn
      (princ "\n Kein Reihenobjekt gefunden, breche ab!")
      (exit))
    );ende IF
  (command "KOpieren" ss1 "" '(0 0 0) "")  (setq ss2 (entlast))
  (princ "\n 1. zubohrendes Objekt wählen")  (setq ss3 (ssget))
  (princ "\n 2. zubohrendes Objekt wählen")  (setq ss4 (ssget))
  (command "ursprung" ss1) (setq ss1 (ssget "_P"))
  (command "ursprung" ss2) (setq ss2 (ssget "_P"))
  (command "Differenz" ss3 "" ss1 ""
	   "Differenz" ss4 "" ss2 "")
  (setvar "cmdecho" 1)
  (princ)
  )


(alert "Der Befehl (TO) erstellt 3 Testobjekte, wovon der Zylinder per Reihe vervielfälltigt werden muss, um '{ACAD_REACTORS' zu erhalten.
	\nBefehlsaufruf mit 'RB'")