So Ihr lieben Helfenden,
hab noch einmal das www durchforstet und genau das gefunden was ich brauche.....
Die obere Kante des Zylinders wird mit einem Radius versehen.
Es funktioniert einwandfrei, ich brauchte es nur ein wenig abzuändert.
Trotzdem vielen Dank für Eure Hilfe und Anregungen
(if (= Pro "M")(progn(setq DN1 (getstring "\n Nenndurchmesser DN <>:"))
(if (= DN1 "15")(progn(setq dugo 300 )(setq lang1 15 )(setq lang2 495)))
(if (= DN1 "20")(progn(setq dugo 300 )(setq lang1 20 )(setq lang2 495)))
(if (= DN1 "25")(progn(setq dugo 300 )(setq lang1 25 )(setq lang2 500)))
(if (= DN1 "32")(progn(setq dugo 300 )(setq lang1 32 )(setq lang2 500)))
(if (= DN1 "40")(progn(setq dugo 300 )(setq lang1 40 )(setq lang2 540)))
(if (= DN1 "50")(progn(setq dugo 300 )(setq lang1 50 )(setq lang2 540)))
(if (= DN1 "65")(progn(setq dugo 300 )(setq lang1 65 )(setq lang2 545)))
(if (= DN1 "80")(progn(setq dugo 300 )(setq lang1 80 )(setq lang2 585)))
(if (= DN1 "100")(progn(setq dugo 300 )(setq lang1 100 )(setq lang2 610)))
(setq lang3 135)
(setq lang4 (- lang2 lang3))
(setq startpkt (getpoint "\nEinfügepunkt wählen: "))
(setq xstart (car startpkt))
(setq ystart (car (cdr startpkt)))
(setq zstart (car (cddr startpkt)))
(setq X1 xstart)
(setq Y1 ystart)
(setq Z1 zstart)
(setq X2 xstart)
(setq Y2 ystart)
(setq Z2 (+ zstart (- lang2 lang3)))
(setq X3 xstart)
(setq Y3 (+ ystart (* dugo 0.5 )))
(setq Z3 (+ zstart lang2))
(setq p1 (list X1 Y1 zstart))
(setq p2 (list X2 Y2 Z2))
(setq p3 (list X3 Y3 Z3))
(command "_circle" p1 "_d" lang1 "")
(command "_extrude" "_last" "" lang2 "") (setq e1 (entlast))
(command "_circle" p2 "_d" dugo "")
(command "_extrude" "_last" "" lang3 "") (setq e2 (entlast))
;;Funktion Zylinderkante abrunden
(setq *osmode (getvar "osmode"))
(command "filletrad" "30" "")
(setvar "osmode" 512) ;;nearest
(initget (+ 1 2 128))
(setvar "osmode" *osmode)
(cond
((listp p3) (command "._fillet" p3 (getvar "filletrad") ""))
(T (setvar "filletrad" (distof p3)) (setq p3 nil))
);end of cond
(command "spirale" p1 lang1 "" "d" "15" lang4 ) (setq e3 (entlast))
(command "_circle" p1 "_d" "10" "")
(command "_sweep" "_last" "" e3 "") (setq e4 (entlast))
(command "_union" e1 e2 e4 "")
));end progn;end if
[Diese Nachricht wurde von Jürgen Scheeren am 30. Okt. 2015 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP