;------------------------------------------------------------------------;
; MUFFEN                                                                 ;
;------------------------------------------------------------------------;
; AW 14.05.93                                                            ;
;------------------------------------------------------------------------;

(defun datain ()  
  (setq ALTFANG (getvar "osmode"))
  (setvar "osmode" 33)
  (initget (+ 2 4))
  (setq ANZAHL (getint "\n(1) an-BG / (2) an-ST / (3) DRK (lose MUFFE als RESERVE bestellen!) <1>: "))
  (if (or (= nil ANZAHL ) (and (< ANZAHL 1) (> ANZAHL 3)))
     (setq ANZAHL 1)
  )
  (initget (+ 1 2 4))
  (setq PT0 (getpoint "\nPunkt antippen: "))
  (setvar "osmode" 0)
  (bl-name PT0) ;--> Block-Name definieren -> R�ckgabe: element-name
)

(defun geometrie()
   (if (= ANZAHL 1)
      (progn
         (command "_layer" "_m" "L-6" "_c" "6" "" "")
         (command "_insert" (strcat lw "/acadsst/layout/muffe") 
                            PT0 "" "" "0")
         (attribute-aendern "0" "0" "" "" "" block-kennung "825002016" 
                            "MUFFE ANGESCHWEISST (BG)" "" "")
      )
   )
   (if (= ANZAHL 2)
      (progn
         (command "_layer" "_m" "L-1" "_c" "1" "" "")
         (command "_insert" (strcat lw "/acadsst/layout/muffe")
                            PT0 "" "" "0")
         (attribute-aendern "0" "0" "" "" "" block-kennung "825002017" 
                            "MUFFE ANGESCHWEISST (ST)" "" "")
      )
   )
   (if (= ANZAHL 3)
      (progn
         (command "_layer" "_m" "L-7" "_c" "7" "" "")
         (command "_insert" (strcat lw "/acadsst/layout/muffe")
                            PT0 "" "" "0")
         (attribute-aendern "0" "0" "" "" "" block-kennung "825004017" "DREIKANTLASCHE" "" "")
      )
   )
)

;----------------------------------------------------
(defun c:l_muffe ( / anzahl pt0 ) 
  (setvar "limcheck" 0)
  (prompt "******* MUFFE / DREIKANTLASCHE *******")
  (prompt "")
  (datain)
  (geometrie)
;  (if (= ANZAHL 2)
;    (progn
;       (setq e (entsel "\nAnschwei�en an: "))
;       (setq ref (cdr (assoc 5 (entget (car e)))))
;       (suchen-aendern ref "BESCHR" " +MUFFE ANGESCHW." 1)
;    )
;  )
  (setvar "osmode" ALTFANG)
)
;-----------------------------------------------------