Hoe print ik tekst gevolgd door een list? (Opgelost)

[zone2000]

Hallo,

In een LISP wil ik eerst tekst laten zien direct gevolgd door een LIST.
Dus zo: "Cirkel geplaatst op:" a

Hierbij is het eerste deel de gewone tekst en is a een variabele waarin de x, y en z coördinaten zijn opgeslagen.

Dit heb ik zelf bedacht, maar het werkt niet:

(strcat(print "Circle and numbre placed at:")
    (print a))

Dit geeft een error terug.
Weet iemand hoe ik dit kan oplossen?

Groeten
Lars

[HofCAD]

Hallo,

In een LISP wil ik eerst tekst laten zien direct gevolgd door een LIST.
Dus zo: "Cirkel geplaatst op:" a

Hierbij is het eerste deel de gewone tekst en is a een variabele waarin de x, y en z coördinaten zijn opgeslagen.

Dit heb ik zelf bedacht, maar het werkt niet:

(strcat(print "Circle and numbre placed at:")
    (print a))

Dit geeft een error terug.
Weet iemand hoe ik dit kan oplossen?

Groeten
Lars

Beste Lars,

Indien het middelpunt van de cirkel opgeslagen is in de variabele a,
dan moet je elke coordinaat omzetten naar een string.
(defun c:test()
(setq a '(20.25 33.3333333333 80.555))
(princ (strcat "\nCircle and number placed at: " (rtos (car a) 2 3) ","(rtos (cadr a) 2 3) ","
(rtos (caddr a) 2 3)))
(textpage)
(princ)
)

Met vriendelijke groet, HofCAD CSI

PS Lees in de AutoCAD Help bij de AutoLisp Reference verder over

RTOS  Converts a number into a string (rtos number [mode [precision]])
En let op de invloed van de AutoCAD variabele Dimzin