;3D-Strecken (alle untergeordneten Objekte)
;**************************
;Vollständig eingeschlossene untergeordenete Objekte von
;Volumenkörpern und ebenso vollständig eingeschlossene 
;sonstige Objekte werden gewählt und anschließend verschoben.
:**************************
;Siegfried Rief Fachschule für Holztechnik Stuttgart 2014
;**************************
(defun c:str3 (/ *error* OM)
;******** Errorhandler

    (defun *error* ( msg )
        (if om (setvar 'osmode om))
        (if (not (member msg '("Function cancelled" "quit / exit abort")))
            (princ (strcat "\nError: " msg))
        )
        (princ)
    )

;******** Hauptprogramm
  (setq OM (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (command "schieben" "f" 
  (setq p1 (getpoint "\nErster Eckpunkt"))
  (setq p2 (getcorner p1 "\nZweiter Eckpunkt")) 
  "h" (setvar "subobjselectionmode" 0) "u" "f" p1 p2) 
  (setvar "OSMODE" OM)
  (setvar "subobjselectionmode" 0)
)