---

hi,

warum funktioniert dieser code nicht ?

(defun c oo (/)
  (arxload "geomcal")
  (setq 1p (getpoint "\n1."))
  (setq 2p (getpoint "\n2." 1p))
  (setq 3p (list 0.0 0.0 0.0))
  (setq 4p (list 0.0 1.0 0.0))
  (setq 5p (list 0.0 0.0 1.0))
  (princ "\n1: ")
  (princ 1p)
  (princ "\n2: ")
  (princ 2p)
  (princ "\n3: ")
  (princ 3p)
  (princ "\n4: ")
  (princ 4p)
  (princ "\n5: ")
  (princ 5p)
  (princ (cal "ilp(1p, 2p, 3p, 4p, 5p)"))
  (princ)
);defun

------------------
MfG
Frank

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

---

so funktioniert es komischerweise:

(defun c oo (/)
  (arxload "geomcal")
  (setq p1 (getpoint "\n1."))
  (setq p2 (getpoint "\n2." p1))
  (setq p3 (list 0.0 0.0 0.0))
  (setq p4 (list 0.0 1.0 0.0))
  (setq p5 (list 0.0 0.0 1.0))
  (princ "\np1 ")
  (princ p1)
  (princ "\np2: ")
  (princ p2)
  (princ "\np3: ")
  (princ p3)
  (princ "\np4: ")
  (princ p4)
  (princ "\np5: ")
  (princ p5)
  (princ "\n")
  (princ (cal "ILP(p1,p2,p3,p4,p5)"))
  (princ)
);defun

------------------
MfG
Frank

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

---

Tag zusammen.

Zitat:

---

so funktioniert es komischerweise:

(defun c  oo (/)
  ...
  (princ (cal "ILP(p1,p2,p3,p4,p5)"))
  (princ)
);defun

---

ist garnicht so komisch. Kleiner Auszug aus der Hilfe:

.. If you enter an AutoLISP variable with a name containing a character with special meaning in CAL, such as +, –, *, or /, enclose the variable name in apostrophes ('), for example:

'number-of-holes'

Mit folgender Modifikation klappt dann auch alles und es scheint mir keine schlechte Idee, das Apostroph grundsätzlich zu verwenden:

Code:

---

  ..
  (cal "ilp('1p', '2p', '3p', '4p', '5p')")
  ..

---

Achim Dabrunz

------------------

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