BlockReplace.lsp
기능: 기존 블록을 사용자가 지정한 다른 블록으로 일괄 교체합니다.
사용 예: BREPLACE
명령어 실행 후 교체할 블록 선택.
리습 코드 예제:
(defun c:BREPLACE (/ ss oldBlock newBlock)
(setq ss (ssget '((0 . "INSERT"))))
(if ss
(progn
(setq oldBlock (getstring T "
교체할 기존 블록 이름을 입력하세요: "))
(setq newBlock (getstring T "
새로운 블록 이름을 입력하세요: "))
(command "_.-BLOCKREPLACE" ss oldBlock newBlock "")
)
(prompt "
블록 선택이 취소되었습니다.")
)
(princ)
)
실행 시, 선택한 블록들 중 지정한 기존 블록을 새로운 블록으로 일괄 교체합니다.
AttributeExtract.lsp
기능: 블록 속성 데이터를 추출하여 엑셀 등으로 내보냅니다.
사용 예: ATTEXT
명령어 실행 후 추출 형식 선택.
리습 코드 예제:
(defun c:ATTEXT (/ ss filePath)
(setq ss (ssget '((0 . "INSERT"))))
(if ss
(progn
(setq filePath (getfiled "속성 데이터 내보내기" "" "csv" 1))
(if filePath
(progn
;; 예제: 선택한 블록 속성 데이터를 CSV 파일로 내보내는 코드 (간단한 형태)
(command "_.ATTEXT" ss filePath)
(prompt "
속성 데이터가 추출되었습니다.")
)
(prompt "
파일 저장이 취소되었습니다.")
)
)
(prompt "
블록 선택이 취소되었습니다.")
)
(princ)
)
실행 시, 선택한 블록의 속성 데이터가 CSV 파일 등으로 추출되어 외부에서 활용할 수 있게 됩니다.
댓글