82 lines
2.7 KiB
Plaintext
82 lines
2.7 KiB
Plaintext
;------------------------------------------------------------------------;
|
|
; 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)
|
|
)
|
|
;------------------------------------------------------------------------------ |