Topic: help writing selected lines to file

[andrew_nao]

im tried to modify this lisp to instead of opening a selected dwg
i want it to add selected lines of the file it read to another file

ive seen this explained here before but search isnt turning up anything
can anyone guide me?

TIA

[andrew_nao]

oops here is the dcl file

[Keith™]

You should look at the following lisp functions in the help file. Everything you need to know about writing stuff to a file can be found there.

• OPEN
• READ-CHAR
• READ-LINE
• WRITE-CHAR
• WRITE-LINE
• CLOSE

[andrew_nao]

Thanks for the reply
Im looking for guidance on writing multple selected lines to a file
i can get 1 line to write to a file no problem

but adding multiple lines at once to a file is what my issue is
everything i try i get bad argument type stringp

[Lee Mac]

For multiple lines, just invoke write-line multiple times, maybe through mapcar, foreach or while, for example:

Code: [Select]

(mapcar
  (function
    (lambda (x)
      (write-line x file))) '("Hello" "Andrew" "Nao"))


Code: [Select]

(foreach str '("Hello" "Andrew" "Nao")
  (write-line str file))


Code: [Select]

(setq lst '("Hello" "Andrew" "Nao"))
(while (setq str (car lst))
  (write-line str file)
  (setq lst (cdr lst)))


[andrew_nao]

For multiple lines, just invoke write-line multiple times, maybe through mapcar, foreach or while, for example:

thanks Lee, ill give this a try

but what i was thinking was somehow i have to get my multiple lines into a list and then i could use foreach function

my selection is coming from a DCL list

[Lee Mac]

You can collect data from a DCL list as described in this tutorial

[Keith™]

If you already have your list, something like this will work

Code: [Select]

(foreach list_item my_dcl_list (write-line list_item my_file))


[andrew_nao]

im stupid  :ugly:

i was trying to turn a list into a list
the foreach works
now i have to get the dcl list to update
that info is in here somewhere i remember seeing it

thanks for the help guys