Topic: Use of %1 in autolisp routine

[CAB]

Just revisited this function & made some modifications.

Code: [Select]

;;  CAB 08.31.09
(defun str-format (str lst / r)
  (mapcar '(lambda (x y)
    (while (vl-string-search y str 0)
      (setq str (vl-string-subst (vl-princ-to-string x) y str)))
  )
lst
         (mapcar '(lambda(x)
           (strcat "%" (itoa(if r (setq r (1+ r))(setq r 1))))) lst)
  )
  str
)
 

Code: [Select]

(str-format "As you wish number %1, %2 is my favorite %3." (list 1 pi "number"))"As you wish number 1, 3.14159 is my favorite number."

[Lee Mac]

Very nice Alan, definitely keeping that one   

[ElpanovEvgeniy]

Code: [Select]

(defun str-format-recursion (s l)
 (if (wcmatch s "*%#*")
  (if (wcmatch s "%#*")
   (strcat (vl-princ-to-string (nth (1- (atoi (substr s 2))) l))
           (str-format (substr s 3) l)
   ) ;_  strcat
   (strcat (substr s 1 1) (str-format (substr s 2) l))
  ) ;_  if
  s
 ) ;_  if
)

[CAB]

Thanks Lee.
As you probably know it was inspired by the Express Tools subroutine.

Code: [Select]

(princ (acet-str-format "\nCurrent settings: Mode = %1, Radius = %2" sTrim sRad))