Visual LISP, AutoLISP and General Customization

[#1]

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)
)

[#2 · Accepted 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 '<));<----

[#3]

Hi,

Thank you so much.

[#4]

---

aqdam1978 wrote:

Hi,

Thank you so much.

---

You are welcome.

I'm happy to help.