Extract BasePoints of Blocks to CSV file

;; Access Floor 블록의 삽입점을 중심으로 교체한 뒤 삽입점의 좌표를 CSV로 추출하기
;; 20210928 @KMLab
;;
(defun c:BB2CSV ( / bls bl _bpt len n msg )
(prompt "\nSelect Blocks: ")

(setq csvfile "c:/temp/cnt_blocks.csv")
(setq file_w (open csvfile "w"))

(setq _header "No.\tX_coord\tY_coord")
(write-line _header file_w)

(if (setq bls (ssget '((0 . "INSERT"))))
(progn
(setq len (sslength bls))
(setq n 0)
(repeat len
(setq bl (ssname bls n))
(setq _bpt (assoc 10 (entget bl)))
(setq n (1+ n))

(setq _coord_bpt (strcat (itoa n) "\t" (rtos (cadr _bpt) 2 1) "\t" (rtos (caddr _bpt) 2 1)))
(write-line _coord_bpt file_w)

);repeat
);progn
(princ)
);if
(setq msg (strcat "\n...Extracted Coordinates of " (itoa len) " Blocks."))
(prompt msg)
(close file_w)
(princ)
);defun