Sinuslinie zeichnen (Autodesk/Rund um AutoCAD)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Sinuslinie zeichnen (2240 mal gelesen)

Rapti
Mitglied
Dipl. Ing. HTL Maschinenbau

Senden Sie eine Private Message an Rapti

Schreiben Sie einen Gästebucheintrag für Rapti

Beiträge: 691
Registriert: 13.02.2003

erstellt am: 22. Sep. 2003 16:24

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Hallo AutoCAD-Spezis,

ich sollte ein Tool (VBA, LISP) haben, welches mir eine Sinuslinie zeichnet.

habt Ihr so was einmal gesehen ?

Gruss
Rapti

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt

Senden Sie eine Private Message an Kramer24

Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

Acad Architecture 2023
WIN 10

erstellt am: 22. Sep. 2003 16:30

<-- editieren / zitieren -->

Unities abgeben:

Nur für Rapti

http://ww3.cad.de/foren/ubb/Forum54/HTML/004673.shtml

[Diese Nachricht wurde von Kramer24 am 22. September 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Rapti
Mitglied
Dipl. Ing. HTL Maschinenbau

Beiträge: 691
Registriert: 13.02.2003

erstellt am: 22. Sep. 2003 16:51

<-- editieren / zitieren -->

Unities abgeben:

leider ist die Link zum Lisp Programm nicht mehr IO.

hat jemand dieses LISP noch ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

hans krissler
Mitglied

Senden Sie eine Private Message an hans krissler

Schreiben Sie einen Gästebucheintrag für hans krissler

Beiträge: 16
Registriert: 08.06.2001

erstellt am: 22. Sep. 2003 18:50

<-- editieren / zitieren -->

Unities abgeben:

Nur für Rapti

;Sinuslinie
;Hans Krissler
;07153990172@t-online.de
;im Juni 01
(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
(setq L (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
)

habe mal was ähnliches selbstgestrickt

mfg Hans

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Theodor Schoenwald
Ehrenmitglied