;; --------------------------------------------------------------------------------------------------- ;;
;; -- DEL_IMAGE_PFAD : Löscht den Pfad des Bildes                                                   -- ;;
;; --------------------------------------------------------------------------------------------------- ;;
(defun c:DEL_IMAGE_PFAD ( / AUSWAHL OBJEKT VLA-OBJEKT IMAGEFILE)
  (vl-load-com)
  (setq AUSWAHL (ssget "_X" '( (0 . "IMAGE")) ))
  (repeat (sslength AUSWAHL)
    (setq OBJEKT (ssname AUSWAHL 0))
    (setq VLA-OBJEKT (vlax-ename->vla-object OBJEKT))
    (setq IMAGEFILE  (vla-get-IMAGEFILE VLA-OBJEKT))
    (setq IMAGEFILE  (strcat(vl-filename-base  IMAGEFILE)(vl-filename-extension IMAGEFILE)))
    (vla-put-IMAGEFILE VLA-OBJEKT IMAGEFILE)    
    (setq AUSWAHL (ssdel OBJEKT AUSWAHL))
  )
)
;; --------------------------------------------------------------------------------------------------- ;;