Topic: Why with princ

[Adesu]

What happend with princ function in that code, if you use sample 1 is OK but with sample 2 it can not use.

sample 1

Code: [Select]

; idea from Josh
(defun comma (a / b d e f g)
   (setq b (fix a))
   (setq d (itoa b))
   (setq e (strlen d))
   (setq f "")
   (setq g "")
   (while
      (> e 3)
      (setq f (strcat "," (substr d (- e 2)) f))
      (setq d (substr d 1 (- e 3)))
      (setq e (- e 3))
      ) ; while
   (setq f (strcat d f g))
   ) ; defun

(comma 123498)

sample 2

Code: [Select]

; idea from Josh
(defun comma (a / b d e f g)
   (setq b (fix a))
   (setq d (itoa b))
   (setq e (strlen d))
   (setq f "")
   (setq g "")
   (while
      (> e 3)
      (setq f (strcat "," (substr d (- e 2)) f))
      (setq d (substr d 1 (- e 3)))
      (setq e (- e 3))
      ) ; while
   (setq f (strcat d f g))
   (princ)
   ) ; defun

(comma 123498)


[TimSpangler]

If you mean that the 2nd example doesn't return anything, that is the entention of the princ function.  If want your sub to return a value then you cannot use (princ) at the very end of the function.

[daron]

or, you must use (princ f)

[CAB]

You will see in many routine this line

Code: [Select]

(princ) ; exit quietly
The point is that (princ) returns nothing and therefor makes no noise.

[Adesu]

Thanks to alls for your comment.