Variabele in tekstregel printen (Opgelost)

zone2000 · do 26 06 2008, 11:42:53

Hallo,

Ik wil graag een getal opgeslagen in een variabele weer laten geven in een tekstregel.
In mijn geval heb ik een getal tussen 0 en 99 opgeslagen onder de variabele b op deze manier: (setq b 1) of welk getal dan ook.
Dit nummer moet geprint worden in de volgende regel na de dubbele punt.
(setq a (getpoint "\nSelect midpoint to place number: Or cancel and renumber with command 'RN'"))

Voorbeeld:
Dan ziet de zichtbare tekst er alsvolgt uit:
Select midpoint to place number: 12, Or cancel and renumber with command 'RN'

Hoe kan ik dit doen? Via 'rtos' krijg ik een error melding.

Groeten Lars.

Joop · do 26 06 2008, 12:32:23

Code Selecteer

(setq b 1)
(setq question (strcat  "\nSelect midpoint to place number:" b " Or cancel and renumber with command 'RN'"))
(setq a (getpoint question))

zone2000 · do 26 06 2008, 14:08:52

Citaat van: Joop op do 26 06 2008, 12:32:23
Code Selecteer Uitklappen
(setq b 1) (setq question (strcat "\nSelect midpoint to place number:" b " Or cancel and renumber with command 'RN'")) (setq a (getpoint question))

Deze code geeft de volgende error:

; error: bad argument type: stringp 1

Zit er een fout in?

Groeten,
Lars

EddyBeerke · do 26 06 2008, 14:25:41

Lukt het hiermee?

Code Selecteer


(princ "\nSelect midpoint to place number: \"")(princ b)(princ "\" Or cancel and renumber with command 'RN'")
(setq a (getpoint))

zone2000 · do 26 06 2008, 14:57:45

Hey,

Opzich lukt het wel, maar nu geeft AutoCAD 2x dezelfde tekst. Dit probleem heb ik altijd met princ.
Is daar ook iets aan te doen?

Groeten,
Lars

EddyBeerke · do 26 06 2008, 15:11:18

Nog een keer (princ) erachter
(princ "\nSelect midpoint to place number: ")(princ b)(princ " Or cancel and renumber with command 'RN'")(princ)

EddyBeerke · do 26 06 2008, 15:16:05

Dit is ook nog een oplossing:

Code Selecteer


(setq b 12)
(princ (strcat "\nSelect midpoint to place number: " (itoa  b) " Or cancel and renumber with command 'RN'"))(princ)

zone2000 · vr 27 06 2008, 10:32:42

Citaat van: EddyBeerke op do 26 06 2008, 15:16:05
Dit is ook nog een oplossing:

Code Selecteer Uitklappen
(setq b 12) (princ (strcat "\nSelect midpoint to place number: " (itoa b) " Or cancel and renumber with command 'RN'"))(princ)

Hey bedankt voor de hulp, Hieronder is de juiste code. De (princ) is eruit gehaald. Dit gaf de error: "bad argument type: point:"

(setq a (getpoint (strcat "\nSelect midpoint to place number: " (itoa b) " Or cancel and renumber with command 'RN'" )

Bedankt voor de hulp!
Groeten Lars