---

Guten Tag,

habe eine Funktion f(x), die ja einen entsprechenden Graphen bildet, in der x^(1/n), x^n (also Wurzeln bzw. Potenzen) und Arcostangens(x) und Ähnliches vorkommt, und möchte daraus in AutoCAD 2005 eine 2D-Linie (Polylinie, Kante oder wie auch immer) bzw. 3D-Linie generieren. Wie macht man sowas? Danke sehr für weiterführende Antworten!!

Carsten Storm

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

---

in excel in spalte 1 die x-werte in spalte 2 die ergebnisse.
abspeichern als .csv (mit Trennzeichen).
dann musst die datei nur nochmal mit dem editor öffnen und die simikolons durch kommata ersetzen und als .scr abspeichern.

in acad nimmst du den befehl linie und dann unter EXTRAS/ SKRIPT AUSFÜHREN

dann sollte das laufen

------------------
Gruß DEEPSPEED
------------------------------------------------
www.caddesign-online.de

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

---

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

------------------
mit CADzerischen Grüßen
Matthias 

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

---

Logarithmische-using-CONCAT.xls.txt

Hi,
Oder verwende die Excelfunktion "CONCATENATE". Ich hab ein Beispiel angehaengt. Die "G"-Kolonne ueber die Zwischenablage in einen Texteditor und als *.scr speichern. "_pline" kann natuerlich in einen anderen, passenden Befehl umgeaendert werden. Man spart sich dadurch den Umweg ueber *.csv.
Gruss

[Diese Nachricht wurde von Clayton am 21. Sep. 2006 editiert.]

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

---

Oder, wenn Du Dich mit Lisp auskennst, z.B. so etwas

Code:

---

(defun yfx ( / x y)
(setq x 1)
(command "Linie" '(0 0))
(while (<; x 10)
  (setq y (sqrt x))
  (command "Linie" (list x y))
  (setq x (+ x 1))
(command "")
)

---

Soll keine professionelle Lösung sein, nur eine Idee, wie man es machen könnte. Hier mit Y = Wurzel von X
Habe die Eingaben mangels Programm nicht testen können, sollte aber laufen.

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

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

---

@Werner - ich hab den Code mal korrigiert, damit er überhaupt funktioniert:
 

Zitat:

---

(defun C:yfx ( / x y)
  (setq x 1)
  (command "Linie" '(0 0))
  (while (< x 10)
    (setq y (sqrt x))
    (command (list x y))
    (setq x (+ x 1))
  ) 
  (command "")
)

---

Anbei noch mal ein einfaches Programm von mir zum Erstellen von Funktionsplots
 

Zitat:

---

Funktionsplot beliebiger Funktionen
; Udo Hübner 20.04.2001
;

(DEFUN C:FVONX ( / os Xa Xe X inc)
  ; es wird eine LISP-FUNKTION namens
  ; FUNKTION aufgerufen, die das Argument x bekommt und y zurückgibt
  ; gezeichnet wird aus den Punkten eine Polylinie, die später in einen SPLINE verwandelt werden kann.

  (SETVAR "CMDECHO" 0)
  (if (<  (SETQ os (GETVAR "OSMODE")) 16384)
    (SETVAR "OSMODE" (+ os 16384))
  )
  (INITGET 1); keine Leereingaben erlaubt
  (SETQ Xa (GETREAL "\nXa Startwert:"))
  (INITGET 1); keine Leereingaben erlaubt
 
  (WHILE (<= (SETQ Xe (GETREAL "\nXe Endwertwert:")) Xa)
    (PROMPT "\nEndwert muss größer als Startwert sein !")
  )
  (INITGET 7) ; keine Leereingaben, oder Null oder neg. Eingaben erlaubt
  (SETQ inc (GETREAL "\nInkrement (Zuwachs):"))

  (SETQ X Xa)
  (COMMAND "_PLINE")
  (WHILE (<= X Xe) ; Hauptschleife
    (COMMAND (PRINT (LIST x (Funktion x))))
    (SETQ X (+ X inc))
  )
  (COMMAND "")
  (SETVAR "OSMODE" os)
  (SETVAR "CMDECHO" 1)
  (PRIN1)
) 

; Hier benutzerdefinierte Funktion definieren

(DEFUN Funktion (x) ; SIN (X)
  (sin x) ; y = sin(x)
  ; oder
  ;(* 0.02 (EXPT x 3)) ; 1/50 * x³
  ;(* 0.1 (EXP (* 0.1 x))) ; y = sin(x)
  ;(SQRT (* 3.0 X))       ; Y²=m*x bzw. y = Wurzel( 3 * x)
) 
; Ende Funktionsplot beliebiger Funktionen
;

---

------------------
Mit freundlichem Gruß

Udo Hübner

[EDIT]
Achtung das '<' Zeichen ohne folgendes ';' wird immer vom Editor im [CODE ] [ /CODE] UBB-Code auf '<;' gewandelt. So ein Mist.
[/EDIT]

[Diese Nachricht wurde von CAD-Huebner am 23. Sep. 2006 editiert.]

[Diese Nachricht wurde von CAD-Huebner am 23. Sep. 2006 editiert.]

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Achtung das '<' Zeichen ohne folgendes ';' wird immer vom Editor im [CODE ] [ /CODE] UBB-Code auf '<;' gewandelt. So ein Mist.

---

Ups, das habe ich nicht gewußt und nicht einmal bemerkt!

Es sollte ja auch nur eine Idee wiedergeben, da der Umweg über EXCEL auch nicht gerade komfortable ist.

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

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

---

Ich hab das Problem mit dem UBB Code schon an AndreadK bei CAD.de berichtet und er hat es bereits gefixt.

@Werner
Es fehlte u.a. auch ne Klammer in deinem Code - hattest du das vorher nicht getestet? 

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
@Werner
Es fehlte u.a. auch ne Klammer in deinem Code - hattest du das vorher nicht getestet?  

---

Zitat:

---

Original erstellt von 'Werner':
...
Habe die Eingaben mangels Programm nicht testen können, ...

[/B]

---

@CAD-Huebner: 

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

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

---

Ich danke euch für eure Antworten!! Werde nun mal Bekanntschaft mit LISP schließen!

Carsten Storm

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

---

@CAD-Huebner,

habe Dein Lisp heute mal durchgespielt. Gefällt mir gut! Was mir nicht gefällt und ich selbst noch nicht hinbekommen habe:

Wenn ich die Eingaben im AC-Bildschirm mache, würde ich auch die Funktion dort gern machen.
Ist dies möglich?

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

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

---

Hi !

Hier der Code mit Funktionseingabe an der Befehlszeile.
Die Funktion muß jedoch als LISp-Ausdruck geschieben werden.
z.B. x * x -> (* x x) oder 1/x -> (/ 1 x) etc.

Hoffentlich hat Udo nichts dagegen, wenn ich seinen Code 'verhunzle' 

Code:

---

(defun c:fvonx (/ os xa xe x inc func err)
  (vl-load-com)
  ;; Benutzerfunktion eingeben und "prüfen"
  (while (vl-catch-all-error-p
          (setq err (vl-catch-all-apply 'read
                                        (list
                                          (setq func (getstring "\nFunktion f(x) eingeben (LISP-Ausdruck ) z.B (* 2 x) :"))
                                        )
                    )
          )
        )
    (alert
      (strcat "Fehlerhafter LISP-Ausdruck: \n" (vl-catch-all-error-message err))
    )
  )
  (setvar "CMDECHO" 0)
  (if (< (setq os (getvar "OSMODE")) 16384)
    (setvar "OSMODE" (+ os 16384))
  )
  (initget 1)
  (setq xa (getreal "\nXa Startwert:"))
  (initget 1)
  (while (<= (setq xe (getreal "\nXe Endwertwert:")) xa)
    (prompt "\nEndwert muss größer als Startwert sein !")
  )
  (initget 7)
  (setq inc (getreal "\nInkrement (Zuwachs):"))
  (setq x xa)
  (command "_PLINE")
  (while (<= x xe)
    ;; Hier wird Benutzerfunktion evaluiert
    (command (print (list x (eval (read func)))))
    (setq x (+ x inc))
  )
  (command "")
  (setvar "OSMODE" os)
  (setvar "CMDECHO" 1)
  (prin1)
)

---

Grüße

Andi

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

---

Super,
Danke Andi!

------------------
strukturiertes Zeichnen mit www.Werner-Maahs.de

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