66 lines
2.3 KiB
Common Lisp
66 lines
2.3 KiB
Common Lisp
;------------------------------------------------------------------------;
|
|
; 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)
|
|
)
|
|
;----------------------------------------------------- |