|
Fräsen : geom. konstruktion
CADmium am 11.04.2006 um 15:06 Uhr (0)
denke so :Tangentialität liegt vor, wenn Tangentenpunkt P , Mittelpunkt des großen Kreises(Radius R) M und Mittelpunkt des kleinen Kreises(Radius r) auf einer Gerade liegen.Somit : Alpa= atan (x/2) / (R-r) Px1= Mx +R* sin Alpha Px2= Mx +R* sin Alpha Py1= My +R* cos Alpha = Py2------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Fräsen wechseln |
|
Rund um AutoCAD : Dreiecke mit 3 bekannten Seiten
CADmium am 17.12.2004 um 11:30 Uhr (0)
Kleiner Tippfehler (defun c reieck (/ PA PB PC W A B C cosALPHA ALPHA) (if(and(setq PA (getpoint "
ECKPUNKT A :")) (setq W (getangle PA "
Winkel der Seite c :")) (setq A (getreal "
Länge der Seite a : ")) (setq B (getreal "
Länge der Seite b : ")) (setq C (getreal "
Länge der Seite c : ")) ) (progn (setq PB(mapcar + PA (list(*(cos W)C)(*(sin W)C) 0.0))) (setq cosALPHA(/(-(+(* B B)(* C C))(* A A))(* 2 B C))) (setq ALPHA (cond ((= cosALPHA 0) (/ PI 2)) ((= 1 cosALPHA 0 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Dreiecke mit 3 bekannten Seiten
CADmium am 17.12.2004 um 11:01 Uhr (0)
ok, weil bald Weihnachten ist :(defun c reieck (/ PA PB PC W A B C cosALPHA ALPHA) (if(and(setq PA (getpoint "
ECKPUNKT A :")) (setq W (getangle PA "
Winkel der Seite c :")) (setq A (getreal "
Länge der Seite a : ")) (setq B (getreal "
Länge der Seite b : ")) (setq C (getreal "
Länge der Seite c : ")) ) (progn (setq PB(mapcar + PA (list(*(cos W)C)(*(sin W)C) 0.0))) (setq cosALPHA(/(-(+(* B B)(* C C))(* A A))(* 2 B C))) (setq ALPHA (cond ((= cosALPHA 0) (/ PI 2)) ((= ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : grread, grdraw?
CADmium am 26.05.2004 um 15:11 Uhr (0)
Hab hier mal was : (defun DT:Gummiband (FARBE ABSTAND PKT0 / PKT DX DY ALPHA N) (while (= 5 (car (setq PKT (grread t 5 0)))) (setq DX (-(car (cadr PKT))(car PKT0))) (setq DY (-(cadr(cadr PKT))(cadr PKT0))) (setq ALPHA(+(cond ((and(zerop DX)( = DY 0)) (/ Pi 2.0) ) ((and(zerop DX)( DY 0)) (/ Pi -2.0) ) ((and( DX 0)( = DY 0)) (+(atan (/ DY DX ))PI) ) ((and( DX 0)( ...
|
| In das Form AutoLisp wechseln |
|
Autocad VBA : Abstand von Linien ermitteln
CADmium am 15.12.2004 um 14:07 Uhr (0)
P11 und P12 sind Punkte auf Linie 1 P21 ist ein Punkt auf Linie 2 A-11-21 ist die Länge der Strecke P11-P21 Alpha der Winkel zwischen den Vektoren P11-P21 und P11-P12 ( kann man berechnen aus : acos (Skalarprodukt P11-P21 P11-P12)/ ((Betrag P11-P21)*(Betrag P11-P12) ) der Abstand ergibt sich aus sin (Alpha) * (Betrag P11-P21) .. am besten mal aufmalen und im Tafelwerk nachgucken .. und in Parameterform guckst du hier ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Be ...
|
| In das Form Autocad VBA wechseln |
|
Excel : Winkelfunktionen SIN/COS/TAN
CADmium am 23.01.2009 um 10:13 Uhr (0)
noch ein Google-Begriff : Cosinussatz: c²=a²+b²-2*a*b*cos alpha------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Excel wechseln |
