Hi,
I have a lisp program that find all texts with xxxx/yyyy pattern in current drawing and save all of them in a TEXT file line by line. (each text in one line).
I want to replace "/" with ",/," when the program writes this Texts to the *.CSV via vl-string-subst function.
So, I add (vl-string-subst ",/," "/" itm) to this lisp program.
But it doesn't work and makes an error.
Can anybody help me?
Thanks,
(defun c:W2csv (/ strs fname file i)
(if (and (= (getvar 'DwgTitled) 1)
(setq strs nil
ss (ssget (list '(0 . "TEXT") (cons 1 "*/*"))))
(setq fname (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) ".csv"))
(setq file (open fname "w"))
)
(progn
(repeat (setq i (sslength ss))
(setq strs (cons (cdr (assoc 1 (entget (ssname ss (setq i (1- i)))))) strs))
)
(foreach itm (vl-sort strs '<))
(write-line (vl-string-subst ",/," "/" itm) file)
)
(close file)
(startapp "Notepad" fname)
)
)
(princ)
)
Solved! Go to Solution.
Solved by pbejse. Go to Solution.
@aqdam1978 wrote:Hi,
I have a lisp program that find all texts with xxxx/yyyy pattern in current drawing and save all of them in a TEXT file line by line. (each text in one line).
I want to replace "/" with ",/," when the program writes this Texts to the *.CSV via vl-string-subst function.
So, I add (vl-string-subst ",/," "/" itm) to this lisp program.
But it doesn't work and makes an error.
Can anybody help me?
Thanks,
You prematurely close the foreach line here
(foreach itm (vl-sort strs '<));<----