topic Re: Combining strings / rtos / strcat in Visual LISP, AutoLISP and General Customization Forum

Combining strings / rtos / strcat

thomas.schive — Tue, 14 Nov 2017 13:44:11 GMT

Hello!

I'm trying to write a routine that does something like this. First of all the user puts in two values - one "constant" and one that's supposed to increase by one per click. As an example would this be useful for naming objects, if you have 10 boxes that should be named 60E1-1, 60E1-2, 60E1-3 and so on ...

I want the name to appear where the user clicks on a new created layer. Most of it is working, but I'm struggeling with combining the user inputs with strcat as I want to call it an integer, but then I'm not able to combine, and it won't write anything with my rtos now (I think).

Maybe you pros can find the problems here?

;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

;;Message to user
(princ "Write TBP to begin ... ")

;;Cleaning up
(defun LM:gpp ( / )
   (vl-load-com)
   (setq
       cmdech (getvar "CMDECHO")
       oldlay (getvar 'clayer)
   );_ setq
   (setvar "CMDECHO" 0)
);_ defun

;;Getting input
(defun LM:brukerinput ( / )
   (setq
       konstant (vl-string-translate " " " " (getstring T "\nWrite constant value "))
   )
   (setq
       variabelsv (getstring "\nWrite start value ") ;;I actually want this to be a getint, as it's supposed to be a number ...
   )
);_defun

;;Combining input
(defun LM:kombinering ( / )
   (setq
       kombinert (strcat konstant variabelsv) ;;This one fails when they're not both strings apparently
   )
);_defun

;;Write text
(defun LM:skrivtekst ( / )
   (command "_.Layer" "_Make" "Tellelag" "_Color" "7" "" "LType" "Continuous" "" "")
   (eval
       (append
           '(command "._text" punkta)
               (if
                   (zerop
                       (cdr
                           (assoc 40
                               (entget
                                   (tblobjname "style"
                                       (getvar 'textstyle)
                                   )
                               )
                           )
                       )
                   )
                   '(0.5);;Text size
               )
           '(0
               (rtos kombinert 2 0);; And here lies (I think) my next problem, rtos maybe isn't what I'm supposed to use?
           )
       )
   )
);_defun

;;mp
(defun c:tbp ( / )
   (LM:gpp)
   (LM:brukerinput)
   (LM:kombinering)
       (while
           (setq
               punkta (getpoint "\nChoose point ")
               variabelsv (+ variabelsv 1)
           )setq
           (LM:skrivtekst)
       )
       (setvar "CMDECHO" cmdech)
       (setvar "CLAYER" oldlay)
   (princ)
);_defun

;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> End of routine

Regards

Re: Combining strings / rtos / strcat

Kent1Cooper — Tue, 14 Nov 2017 13:49:08 GMT

If you use (getint) for the 'variabelsv' variable, then use (itoa) to make it into a string that you can concatenate with 'konstant':

(strcat konstant (itoa variabelsv))

Re: Combining strings / rtos / strcat

thomas.schive — Tue, 14 Nov 2017 13:53:30 GMT

Thanks, that solves that part!

Getting a "Choose point bad argument type: numberp: "60E21""

(now I wrote 60E2 as konstant and 1 as variabelsv)

I'm suspecting my rtos?

/ts

Re: Combining strings / rtos / strcat

rkmcswain — Tue, 14 Nov 2017 13:54:34 GMT

Try this:

;;Message to user
(princ "Write TBP to begin ... ")

;;Cleaning up
(defun LM:gpp ( / )
    (vl-load-com)
    (setq
        cmdech (getvar "CMDECHO")
        oldlay (getvar 'clayer)
    );_ setq
    (setvar "CMDECHO" 0)
);_ defun


;;Getting input
(defun LM:brukerinput ( / )
    (setq
        konstant (vl-string-translate " " " " (getstring T "\nWrite constant value "))
    )
    (setq
        variabelsv (getint "\nWrite start value ") ;;I actually want this to be a getint, as it's supposed to be a number ...
    )
);_defun

;;Combining input
(defun LM:kombinering ( / )
    (setq
        kombinert (strcat konstant (itoa variabelsv)) 
    )
);_defun

;;Write text
(defun LM:skrivtekst ( / )
    (command "_.Layer" "_Make" "Tellelag" "_Color" "7" "" "LType" "Continuous" "" "")
    (eval
        (append
            '(command "._text" punkta)
                (if
                    (zerop
                        (cdr
                            (assoc 40
                                (entget
                                    (tblobjname "style"
                                        (getvar 'textstyle)
                                    )
                                )
                            )
                        )
                    )
                    '(0.5);;Text size
                )
            '(0
                kombinert
            )
        )
    )
);_defun

;;mp
(defun c:tbp ( / )
    (LM:gpp)
    (LM:brukerinput)
    (LM:kombinering)
        (while
            (setq
                punkta (getpoint "\nChoose point ")
                variabelsv (+ variabelsv 1)		
            )setq
	    (LM:skrivtekst)
	    (LM:kombinering)
        )
        (setvar "CMDECHO" cmdech)
        (setvar "CLAYER" oldlay)
    (princ)
);_defun

I didn't evaluate the code as a whole, just edited it enough to get it to work.

Re: Combining strings / rtos / strcat

thomas.schive — Tue, 14 Nov 2017 14:00:43 GMT

This worked great, thanks!

/ts