Visual LISP, AutoLISP and General Customization

Reply
Mentor
Posts: 253
Registered: ‎11-05-2008
Message 1 of 4 (278 Views)
Accepted Solution

vl-string-subst

278 Views, 3 Replies
01-18-2013 07:37 AM

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

 

*Expert Elite*
Posts: 2,370
Registered: ‎11-24-2009
Message 2 of 4 (272 Views)

Re: vl-string-subst

01-18-2013 07:54 AM in reply to: aqdam1978

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

 

 

 

Mentor
Posts: 253
Registered: ‎11-05-2008
Message 3 of 4 (260 Views)

Re: vl-string-subst

01-18-2013 09:29 AM in reply to: pbejse

Hi,

 

Thank you so much.

 

*Expert Elite*
Posts: 2,370
Registered: ‎11-24-2009
Message 4 of 4 (234 Views)

Re: vl-string-subst

01-19-2013 07:00 AM in reply to: aqdam1978

aqdam1978 wrote:

Hi,

 

Thank you so much.

 


You are welcome.

 

I'm happy to help. :smileyhappy:

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Announcements
Are you interested in helping shape the Autodesk Community?
We’re looking at a few different ways to improve the “All Forums” landing page and need your feedback! If interested, please take a few minutes to fill out the following Usability Study. Thank you for your time!

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community