topic Re: Lisp to edit block description with Excel, csv or text in Visual LISP, AutoLISP and General Customization Forum

Lisp to edit block description with Excel, csv or text

jtm2020hyo — Wed, 04 Dec 2019 05:20:12 GMT

Anyone knows any lisp to edit block description?

Might be better if can import and export to Excel or csv or txt

I did not find anything rekeyed in Google, so probably this is the first time that anyone request this.

Re: Lisp to edit block description with Excel, csv or text

Ajilal.Vijayan — Wed, 04 Dec 2019 10:10:30 GMT

@jtm2020hyo wrote:
I did not find anything rekeyed in Google, so probably this is the first time that anyone request this.
You missed this and this

1.Read block description from CSV

a. read the csv file [Link]

(defun c:testread ( / data file )
    (if
        (and
            (setq file (getfiled "Select CSV File" "" "csv" 16))
            (setq data (LM:readcsv file))
        )
        (progn
            (foreach line data
				(print line)
                (block_desc (nth 0 line)(nth 1 line))
            )
        )
    )
    (princ)
)
(princ)


;;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/change-block-description-in-autolisp/td-p/895135
(defun block_desc (bl_name bl_desc / bl_item bl_list)
	(cond
	((setq bl_item (tblobjname "BLOCK" bl_name))
	(cond
	((assoc 4 (setq bl_list (entget bl_item)))
	(entmake (subst (cons 4 bl_desc) (assoc 4 bl_list) bl_list))
	)
	(T (entmake (append bl_list (list (cons 4 bl_desc)))))
	);cond
	(setq bl_item (cdr (assoc -2 bl_list)))
	(while bl_item
	(entmake (entget bl_item))
	(setq bl_item (entnext bl_item))
	)
	(entmake (list (cons 0 "ENDBLK")))
	)
	(T nil)
	);cond
);defun

2. Export block description : [ Link ]

Re: Lisp to edit block description with Excel, csv or text

jtm2020hyo — Wed, 04 Dec 2019 18:54:31 GMT

@Ajilal.Vijayan wrote:

@jtm2020hyo wrote:
I did not find anything rekeyed in Google, so probably this is the first time that anyone request this.
You missed this and this

1.Read block description from CSV

a. read the csv file [Link]

(defun c:testread ( / data file )
    (if
        (and
            (setq file (getfiled "Select CSV File" "" "csv" 16))
            (setq data (LM:readcsv file))
        )
        (progn
            (foreach line data
				(print line)
                (block_desc (nth 0 line)(nth 1 line))
            )
        )
    )
    (princ)
)
(princ)


;;; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/change-block-description-in-autolisp/td-p/895135
(defun block_desc (bl_name bl_desc / bl_item bl_list)
	(cond
	((setq bl_item (tblobjname "BLOCK" bl_name))
	(cond
	((assoc 4 (setq bl_list (entget bl_item)))
	(entmake (subst (cons 4 bl_desc) (assoc 4 bl_list) bl_list))
	)
	(T (entmake (append bl_list (list (cons 4 bl_desc)))))
	);cond
	(setq bl_item (cdr (assoc -2 bl_list)))
	(while bl_item
	(entmake (entget bl_item))
	(setq bl_item (entnext bl_item))
	)
	(entmake (list (cons 0 "ENDBLK")))
	)
	(T nil)
	);cond
);defun

2. Export block description : [ Link ]

exporting to CSV file "block2excel.lsp" works great

but importing or read the file I have errors. so, What should I do?

Command:
Command: Specify opposite corner or [Fence/WPolygon/CPolygon]:
Command: CSVREAD
; error: no function definition: LM:READCSV
Command:

Re: Lisp to edit block description with Excel, csv or text

hak_vz — Wed, 04 Dec 2019 18:57:09 GMT

http://www.lee-mac.com/readcsv.html

Re: Lisp to edit block description with Excel, csv or text

jtm2020hyo — Wed, 04 Dec 2019 19:55:17 GMT

the tested files are inside of "Apartman example.zip", attached below.

I'm using "Blocks2Excel-v1.1.LSP", attached below, to export block data (layer, name, count, description)

the output file has the name "block2excel-exported.csv" inside attached .zip

but when I tried to use "CSVread.lsp" to import the modified

the input file has the name "block2excel-to import.csv" inside attached .zip

RESULT:

Command: (LOAD "C:/Users/jtm2019hyo/Google Drive/@Programing/@CAD/LSP-VLX/TABLE/DESCRIPTION/LEE MAC - Read CSV/CSVread/CSVread.lsp") BLOCK_DESC
Command: CSVREAD
; error: no function definition: LM:READCSV
Command:

so, I don't know what I did bad.

Re: Lisp to edit block description with Excel, csv or text

devitg — Thu, 05 Dec 2019 02:52:14 GMT

You need to have this defun (LM:readcsv file)

see here

http://www.lee-mac.com/lisp/html/ReadCSV-V1-3.html

Re: Lisp to edit block description with Excel, csv or text

Ajilal.Vijayan — Thu, 05 Dec 2019 05:28:47 GMT

; error: no function definition: LM:READCSV

Copy the code from here and add to the end of your CSVread.lsp file to fix the above error.

Also if you are using the exported csv file format to read the description, then update the code in CSVread.lsp file also

(block_desc (nth 0 line)(nth 1 line))

The number 0 and 1 in above code refers to the first and second column of CSV.

Layer Name:;Block Name:;QTY;Description
0;ROOM-SYM;4;asdw

so update the code to refer the correct column numbers

(block_desc (nth 1 line)(nth 3 line));;values from second and fourth column [ zero based index ]

Re: Lisp to edit block description with Excel, csv or text

jtm2020hyo — Thu, 05 Dec 2019 18:51:46 GMT

thanks a lot

attached the lisp that, I'm using for anyone.