;------------------------------------------------------------------------;
; 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 <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)
)

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

;--- Bezeichnung auf angeschweiát „ndern------
(defun ANGESCHWEISST ( / typ attribut-bezeichnung attribut-wert)
  (setq ref (cdr (assoc 5 (entget (car (entsel))))))
  (redraw (handent ref) 3)
  (setq objekt (entget (handent ref)))
;  (setq objekt (entlast))
  (princ objekt)
  (while (not (= (cdr (assoc 0 (entget objekt))) "SEQEND"))
    (setq typ (cdr (assoc 0 (entget objekt))))
    (princ (strcat typ " | "))
    (if
      (equal typ "ATTRIB")
      (progn
        (setq ATTRIBUT-BEZEICHNUNG (cdr (assoc 2 (entget objekt))))
        (setq ATTRIBUT-WERT        (cdr (assoc 1 (entget objekt))))

        (if (equal ATTRIBUT-BEZEICHNUNG "BESCHR")
             (entmod (subst (cons 1 (strcat ATTRIBUT-WERT "ang"))
                     (assoc 1 (entget objekt)) (entget objekt)))
        )
      )  ; Ende ----progn
    )    ; Ende ----if
    (setq objekt (entnext objekt))
  )
)

;------------------------------------------------------------------------------
(defun c:l_muffe ( / anzahl pt0 ) 
  (setvar "limcheck" 0)
  (prompt "******* MUFFE / DREIKANTLASCHE *******")
  (prompt "")
  (datain)
  (geometrie)
  (if (= ANZAHL 2)
    (angeschweisst)
  )
  (setvar "osmode" ALTFANG)
)
;------------------------------------------------------------------------------