CADsite forum

AutoCAD => Autolisp => Topic gestart door: zone2000 op do 26 06 2008, 11:42:53

Titel: Variabele in tekstregel printen (Opgelost)
Bericht door: zone2000 op 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.
Titel: Re: Variabele in tekstregel printen
Bericht door: Joop op do 26 06 2008, 12:32:23
(setq b 1)
(setq question (strcat  "\nSelect midpoint to place number:" b " Or cancel and renumber with command 'RN'"))
(setq a (getpoint question))

:wink:
Titel: Re: Variabele in tekstregel printen
Bericht door: zone2000 op do 26 06 2008, 14:08:52
Citaat van: Joop op do 26 06 2008, 12:32:23
(setq b 1)
(setq question (strcat  "\nSelect midpoint to place number:" b " Or cancel and renumber with command 'RN'"))
(setq a (getpoint question))

:wink:

Deze code geeft de volgende error:

; error: bad argument type: stringp 1

Zit er een fout in?

Groeten,
Lars
Titel: Re: Variabele in tekstregel printen
Bericht door: EddyBeerke op do 26 06 2008, 14:25:41
Lukt het hiermee?

(princ "\nSelect midpoint to place number: \"")(princ b)(princ "\" Or cancel and renumber with command 'RN'")
(setq a (getpoint))
Titel: Re: Variabele in tekstregel printen
Bericht door: zone2000 op 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
Titel: Re: Variabele in tekstregel printen
Bericht door: EddyBeerke op 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)
Titel: Re: Variabele in tekstregel printen
Bericht door: EddyBeerke op do 26 06 2008, 15:16:05
Dit is ook nog een oplossing:


(setq b 12)
(princ (strcat "\nSelect midpoint to place number: " (itoa  b) " Or cancel and renumber with command 'RN'"))(princ)
Titel: Re: Variabele in tekstregel printen
Bericht door: zone2000 op vr 27 06 2008, 10:32:42
Citaat van: EddyBeerke op do 26 06 2008, 15:16:05
Dit is ook nog een oplossing:


(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