반응형 csv3 Stamping DATE/TIME (setq d (rtos (getvar "CDATE") 2 6))(setq csvfile (strcat "c:/temp/" d ".csv")) 2025. 5. 8. Tag RoomName: AREA ;; c:AAA () Select-1: Lwpoyline >> Select-2: RoomName >> RoomName: 1234.56m2 (789PY) ;; c:RNN () Select Area_Tag: RoomName: 1234.56m2 (789PY) >> RoomName ;; c:CSV () Select Area_Tags >> Put Total Area >> "\t", "=SUM(C2:Cn)" included CSV ;;===================ROOM NAME AREA======================= ;; Author: KM Lab, Copyright © 2021 - kmlab.tistory.com ;; Version 1.0 - 2021-09-06 ;; Version 1.01 - .. 2021. 11. 2. 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 (s.. 2021. 9. 28. 이전 1 다음 반응형