---

Hallo,

Ich möchte in einer LISP-Routine waagerechten und senkrechten Text auswählen. Dazu benutze ich folgenden Ausdruck:

(setq sset (ssget '((-4 . "<AND")
      (0 . "TEXT")
      (-4 . "<OR")
      (50 . 0)
      (50 . 1.570796326794897)
      (-4 . "OR>")
      (-4 . "AND>")
    )
    )
) .

Ich möchte (50 . 1.570796326794897) durch (50 . (/ pi 2)) ersetzen. Leider funktioniert das nicht. Was mache ich hier falsch?

------------------
Gruß

Steffen

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

---

Hallo Steffen,

kann auch nicht, weil der Ausdruck nicht evaluiert wird.
Versuch diesen Aufbau:

(list
'(0 . "TEXT")
...
(cons 50 (/ pi 2.0))
...)

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,

das geht auch nicht.

(setq sset (ssget '((-4 . "<AND")
      (0 . "TEXT")
      (-4 . "<OR")
      (50 . 0)
      (cons 50 (/ pi 2))
      (-4 . "OR>")
      (-4 . "AND>")
    )
    )
  )

------------------
Gruß

Steffen

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

---

und das?
(setq sset (ssget (list
      '(-4 . "<AND")
      '(0 . "TEXT")
      '(-4 . "<OR")
      '(50 . 0)
      (cons 50 (/ pi 2))
      '(-4 . "OR>")
      '(-4 . "AND>")
    )
    )
  )

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 13. Sep. 2004 editiert.]

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

---

Hallo,

das funktioniert.

Vielen Dank!

------------------
Gruß

Steffen

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