Nähkästchen
Mit Festlegung Beginn KW und Dauer KW lässt sich Abfolge von Konstruktion Fertigung und Montage anhand farbiger Balken darstellen
Fa. STAMA Maschinenfabrik GmbH
Ermittlung des notwendigen Korrekturwerts eines Zahnradpaars (Werkzeug nach DIN 867) bei gegebenem Achsabstand (nach DIN 3960) sowie Prüfmasse (nach DIN 3967, DIN 3970 und DIN 3977).
AutoCAD-Anwendung:
Grafische Darstellung Sinus-Linie
Kopieren und Einfügen folgender Zeilen in den Editor von Windows.
Abspeichern als sin.lsp
(Hochladen LISP-Datei ist nicht erlaubt)
http://ww3.cad.de/cgi-bin/ubb/postings.cgi?action=reply&forum=Rund+um+AutoCAD&number=54&topic=005019.cgi&TopicSubject=Sinuslinie+zeichnen&replyto=3
Gerüst möge als Vorlage dienen zur Darstellung ähnlicher Kurven.
(z.B. Parabelast für Parabolspiegel / Solarkocher)
(defun c:sin () ;sin.lsp
(setq i 100) ;Anzahl Schritte
(setq k 0) ;Laufvariable für Schritte
(setq p1 (getpoint "\nStart: "))
(setq p2 (getpoint p1 "\nEnde: "))
(command "bks" "s" p1) ;BKS-Ursprung in p1 legen
(command "bks" "n" "z" p1 p2) ;BKS ausrichten p1 -> p2
(setqL (sqrt ;L Länge der sin-Kurve, entspricht 2Pi
(abs (+
(* (- (car p2) (car p1)) (- (car p2) (car p1)))
(* (- (cadr p2) (cadr p1)) (- (cadr p2) (cadr p1)))
)
)
)
)
(setq delta (/ L i)) ;Schrittweite
(setq e (/ L (* 2 pi))) ;Elongation Ratio 2pi zu 1
(command "_pline")
;Schleife für alle Schritte
(while (<= k i)
(setq x (* k delta))
(setq y (* e (sin (* k (/ pi 50)))))
(setq p (list x y))
(command p)
(setq k (+ 1 k)) ;Schleifenerhöhen
)
(command "" "bks" "") ;zurück zum BKS-Welt-Koo-System
)
AutoCAD-Anwendung
Beispiel: Grafische Darstellung Trochoide
Text kopieren - in Editor einfügen.
Abspeichern als Lisp-Programm T.LSP
http://www.foren.industrie24.com/read.php?4,11838,11844#msg-11844
; Trochoide
; 20.11.04 Hans Krissler
(defun c:t ()
(setq k 0) ; Winkel k Laufvariable
(command "_pline") ; AutoCAD-Befehl Polylinie
(While (<= k 1080) ; Schleife Winkel k läuft von 0 bis 1080 Grad
(setq BM (/ (* k pi) 180)) ; BM ist Bogenmass von Winkel k
(setq x (+ (* 10 (cos BM)) (* 70 (cos (/ BM 3)))))
(setq y (+ (* 10 (sin BM)) (* 70 (sin (/ BM 3)))))
(setq p (list x y))
(command p)
(setq k (+ k 1)) ; Inkrement k+1
)
(command ^C) ; Befehl Polylinie abbrechen
)
Anwendung: Blöcke lassen sich nicht auf Phantom-Layer ändern wenn Elemente nicht auf "Layer 0" erstellt sind.
Makro dient um angrenzende BG in PhantomLayer darzustellen
http://ww3.cad.de/foren/ubb/Forum52/HTML/000335.shtml
Anwendung: Suche nach Pos.-Nr.
Taschenrechner HP33s (Hewlett Packard)
(transferiert von meinem HP41CX (Hewlett Packard)
Kaltabkanten und Kaltbiegen von Flacherzeugnissen aus Stahl n. DIN 17000
Ermittlung Ausgleichswert v
Ein- Ausgabedialog
Eingabe von Parameter:
R = Radius
S = Blechdicke
B = Winkel Beta
Ausgabe Ausgleichswert v
Anweisungsliste:
B0001 LBL B
B0002 FIX 1
B0003 10
B0004 STO K
B0005 INPUT R
B0006 STO R
B0007 INPUT S
B0008 STO S
B0009 /
B0010 3.8
B0011 X>=Y?
B0012 DSE K
B0013 R down
B0014 2.4
B0015 X>=Y?
B0016 DSE K
B0017 R down
B0018 1.5
B0019 X>=Y?
B0020 DSE K
B0021 R down
B0022 1
B0023 X>=Y?
B0024 DSE K
B0025 R down
B0026 0.65
B0027 X>=Y?
B0028 GTO B
B0029 0.1
B0030 STO*K
B0031 INPUT B
B0032 STO B
B0033 165
B0034 -
B0035 CF 0
B0036 X>0?
B0037 SF 0
B0038 45
B0039 RCL B
B0040 +/-
B0041 180
B0042 +
B0043 2
B0044 /
B0045 X>=Y?
B0046 R down
B0047 TAN
B0048 RCL R
B0049 RCL S
B0050 +
B0051 *
B0052 2
B0053 *
B0054 +/-
B0055 RCL S
B0056 2
B0057 /
B0058 RCL K
B0059 *
B0060 RCL R
0061 +
B0062 RCL B
B0063 +/-
B0064 180
B0065 +
B0066 LAST x
B0067 /
B0068 p
B0069 *
B0070 *
B0071 +
B0072 0
B0073 X<>Y
B0074 FS? 0
B0075 X<>Y
B0076 CF 0
B0077 STO V
B0078 VIEW V
B0079 FIX 4
B0080 RTN
Anweisungsliste für Taschenrechner HP33s (Hewlett Packard),
transferiert von HP41CX (Hewlett Packard).
