How to goin tow Variables

Hello everybody,

(defun c:abc (/ a b c)

(setq a 111)

(setq b 222)

(setq c (strcat a "x" b))

(command "_text" pause "" "" c "")

(princ)

)

The outcome must be 111x222 as a text

but it respond nil . .... Why?

regards,

Tharwat

The reason the text wasn't created was because your variables a and b are not strings, they are numbers. You can only pass string arguments to strcat. You can change the numbers to strings using:

(itoa 123)

for integers (numbers without a decimal point) or

(rtos 123.123 2 3)

for real numbers or floating point numbers (numbers with a decimal point)

EDIT: Reversed my *to* functions.. I always do that.. it's correct now. >

Thanks Lee.

The codes that I have provided are a part of a medium sized Lisp, and to use entmakethat would tighten the program and would be crowded with entmaks function.

So why strcat function is not responding since it is used correctly ?

Thanks a lot

While I agree with Lee on using entmake, especially for text, your problem lies with trying to join 3 items that are supposed to be text where variables a and b are not.

eg.

(defun c:abc (/ a b c)
(setq a [color=Red]"111"[/color])
(setq b [color=Red]"222"[/color])
(setq c (strcat a "x" b))
(command "_text" pause "" "" c "")
(princ)
)

entmake eg.

(defun c:abc (/ a b c pt)
 (setq a "111")
 (setq b "222")
 (setq c (strcat a "x" b))
 (if (setq pt (getpoint "\nSpecify placement point: "))
   (entmake (list '(0 . "TEXT")
                  (cons 40 (getvar 'textsize))
                  (cons 10 (trans pt 1 0))
                  (cons 1 c)
            )
   )
 )
 (princ)
)

The reason the text wasn't created was because your variables a and b are not strings, they are numbers. You can only pass string arguments to strcat. You can change the numbers to strings using:

 

(itoa 123)

for integers (numbers without a decimal point) or

(rtos 123.123 2 3)

for real numbers or floating point numbers (numbers with a decimal point)

 

EDIT: Reversed my *to* functions.. I always do that.. it's correct now. >

Thanks a lot.

But giving numbers to variables can not be considered wrong , And there is no need to use (itoa , rots ....so on ) and here is an example .... try it;

(defun c:abc (/ a )

(setq a 111)

(command "_text" pause "" "" a "")

(princ)

)

 

It works well

Regards.

Tharwat

While I agree with Lee on using entmake, especially for text, your problem lies with trying to join 3 items that are supposed to be text where variables a and b are not.

 

eg.

(defun c:abc (/ a b c)
(setq a [color=Red]"111"[/color])
(setq b [color=Red]"222"[/color])
(setq c (strcat a "x" b))
(command "_text" pause "" "" c "")
(princ)
)

 

entmake eg.

(defun c:abc (/ a b c pt)
 (setq a "111")
 (setq b "222")
 (setq c (strcat a "x" b))
 (if (setq pt (getpoint "\nSpecify placement point: "))
   (entmake (list '(0 . "TEXT")
                  (cons 40 (getvar 'textsize))
                  (cons 10 (trans pt 1 0))
                  (cons 1 c)
            )
   )
 )
 (princ)
)

That was great Mr.alanjt

both are perfect.

Thank you sooooooooooo much

Tharwat

Thanks a lot.

But giving numbers to variables can not be considered wrong , And there is no need to use (itoa , rots ....so on ) and here is an example .... try it;

(defun c:abc (/ a )

(setq a 111)

(command "_text" pause "" "" a "")

(princ)

)

 

It works well

Regards.

Tharwat

Sending numbers to command won't screw things up, but try and join anything (using strcat, as you did above) or use entmake/vla-addtext and you'll receive an error. :wink:

Mr.alanjt

how to have a text in inches for example 111"x222" .I have tried this for so many times but the result was nil.

Could you please give me your idea.

Regards.

Tharwat

Mr.alanjt

how to have a text in inches for example 111"x222" .I have tried this for so many times but the result was nil.

 

Could you please give me your idea.

Regards.

Tharwat

 "111\"x222"

Sending numbers to command won't screw things up, but try and join anything (using strcat, as you did above) or use entmake/vla-addtext and you'll receive an error. :wink:

So Can I know your alternative suggestion instead of strcat in this case.

Many Thanks

Tharwat

So Can I know your alternative suggestion instead of strcat in this case.

 

Many Thanks

Tharwat

 "111\"x222"

(defun c:abc (/ a b c)

(setq a "111\"x222")

(command "_text" pause "" "" a "")

(princ)

)

result; 111"x222

That's will be oki .... but for the first number, So what about the second

number like this ; 111"x222"

Thanks.

Tharwat

Come on man...

"111\"x222\""

Come on man...

"111\"x222\""

Thanks again and again ... it's Beautiful.

All respects.

Tharwat

Thanks again and again ... it's Beautiful.

All respects.

 

Tharwat

Just messing with you.

Hello,

So here is the result of giving variables numerical values.

it is just the beginning .

Thanks for all Participants.

Specially to alanjt.

Tharwat

Cool and you're welcome.