---

ell.JPG

Hallo,

ich möchte die beiliegende Liste an die Funktion entmake übergeben um dadurch ein Objekt Ellipse zu zeichnen. Leider hat die Funktion entmake den Rückgabewert nil.

Was mache ich noch falsch?

Danke im Voraus und viele Grüße
Bernd

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

---

Zitat:

---

Original erstellt von Bernd10:
Was mache ich noch falsch?

Danke im Voraus und viele Grüße
Bernd

---

Besser Du stellst hier den Sourcecode ein. Ich vermute, dass Du die Enityliste nicht korrekt aufbaust, also ungefähr sowas schreibst: (entmake ((....)))

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

---

Hallo archtools,

danke für Deine Antwort.

Zitat:

---

Original erstellt von archtools:
Besser Du stellst hier den Sourcecode ein.

---

Wie gewünscht der wesentliche Sourcecode:
(setq l0 (cons '0 (strcase "ellipse")))
(setq l10 (cons '10 lzent))
(setq l41 (cons '41 0.0))
(setq l42 (cons '42 (* pi 2))) 
(setq l8 (cons '8 clayerele))
(setq l11 (cons '11 (list (* (/ rnatzbr 2) -1) 0.0 0.0)))
(setq rvhnaha (/ rnatzho rnatzbr))
(setq l40 (cons '40 rvhnaha))
(setq lele (list l0 l8 l10 l11 l40 l41 l42))
(setq lkon (entmake lele))

Viele Grüße
Bernd

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

---

Hallo Bernd,
füge mal noch folgendes ein:

Code:

---

(setq l100_1 (cons 100 "AcDbEntity"))
(setq l100_2 (cons 100 "AcDbEllipse"))

---

und dann

Code:

---

(setq lele (list l0 l100_1 l8 l100_2 l10 l11 l40 l41 l42))

---

HTH

Gruß
Thomas

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

---

schau dir mal die Liste an, welche du mit (entget(car(entsel))) erhälts
...

Code:

---

(entmake (list (cons 0 "ELLIPSE")
                  (cons 100 "AcDbEntity")
                  (cons 100 "AcDbEllipse")
                  (cons 10 c)
                  (cons 11 b)
                  (cons 40 r)
                  (cons 41 0)
                  (cons 42 (* 2 pi))))

---

dann sollt es so gehen

vla-addellipse wäre auch noch möglich...

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

[Diese Nachricht wurde von Dorfy am 05. Nov. 2010 editiert.]

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

---

Hallo Thomas, hallo Heiko,

hat beides ohne Probleme funktioniert.

Danke und viele Grüße
Bernd

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

---

Zitat:

---

Original erstellt von Bernd10:
Hallo archtools,

danke für Deine Antwort.

Wie gewünscht der wesentliche Sourcecode:
(setq l0 (cons '0 (strcase "ellipse")))
(setq l10 (cons '10 lzent))
(setq l41 (cons '41 0.0))
(setq l42 (cons '42 (* pi 2))) 
(setq l8 (cons '8 clayerele))
(setq l11 (cons '11 (list (* (/ rnatzbr 2) -1) 0.0 0.0)))
(setq rvhnaha (/ rnatzho rnatzbr))
(setq l40 (cons '40 rvhnaha))
(setq lele (list l0 l8 l10 l11 l40 l41 l42))
(setq lkon (entmake lele))

Viele Grüße
Bernd

---

Warum quotierst Du denn Zahlen?

Du brauchst in Deiner Entityliste nur noch die 100er Gruppen passend einzufügen:

(setq lele (list
l0
'(100 . "AcDbEntity")
l8
'(100 . "AcDbEllipse")
l10 l11 l40 l41 l42))

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

---

Hallo archtools,

Zitat:

---

Original erstellt von archtools:
Warum quotierst Du denn Zahlen?

---

weil in den Beispielen zur Funktion cons in der Entwickler-Hilfe der erste Parameter immer quotiert ist, habe ich es auch bei Zahlen so gemacht. Bisher habe ich damit keine Probleme feststellen können.

Viele Grüße
Bernd

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

---

Zitat:

---

Original erstellt von Bernd10:
Hallo archtools,

weil in den Beispielen zur Funktion cons in der Entwickler-Hilfe der erste Parameter immer quotiert ist, habe ich es auch bei Zahlen so gemacht. Bisher habe ich damit keine Probleme feststellen können.

Viele Grüße
Bernd

---

  Tolle Erklärung!!
(eval 1) und (eval '1) liefern ja auch dasselbe ....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas,

Zitat:

---

Original erstellt von CADmium:
    Tolle Erklärung!!
(eval 1) und (eval '1) liefern ja auch dasselbe ....

---

bedeutet das nun, dass man es nicht quotieren muss?

Viele Grüße
Bernd

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

---

nee .. warum soll man ne Zahl oder einen STRING qoutieren ????

eval ist da vielleicht auch etwas doof gewählt, besser ist:
(setq A 5)
!A  -> 5
!'A -> A
!1  -> 1
!'1 -> 1

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von Bernd10:
Hallo archtools,

weil in den Beispielen zur Funktion cons in der Entwickler-Hilfe der erste Parameter immer quotiert ist, habe ich es auch bei Zahlen so gemacht. Bisher habe ich damit keine Probleme feststellen können.

Viele Grüße
Bernd

---

Das passiert, wenn Dinge macht, ohne Sie zu verstehen :-)

Arbeite mal Mapcars Lisp-Kochbuch durch, das wird Dir viel helfen können.

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

---

Zitat:

---

Original erstellt von CADmium:
nee .. warum soll man ne Zahl oder einen STRING qoutieren ????

eval ist da vielleicht auch etwas doof gewählt, besser ist:
(setq A 5)
!A  -> 5
!'A -> A
!1  -> 1
!'1 -> 1

---

Dabei wär's schon interessant zu sagen, warum es setQ heisst, und was der Unterschied zu set ist.

(setq A 'B)
(setq B 5)

-> !B -> 5

(set A 6)

-> !B -> 6

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

---

jo .. aber, da du ja schon auf Axels Seiten verwiesen hast ....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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