리습 중 cad에서 엑셀파일로 옮기는 lisp을 수정하려고하는데..
어디를 어떻게 손을 봐야할지 몰라서 고수님들께 조언구합니다..
현재 lisp에서는 사진과 같이 출력되어 나옵니다.
(위 사진파일에서 아래와 같이 엑셀파일로 변환됩니다.)
여기서 칸을 그대로 두고 엑셀로 옮기고 싶은데.. 가능할까요?
(예를 들면 아래 사진처럼 엑셀로 옮기고 싶습니다.)
고수님들 부탁드립니다..
리습공부123Lv.0
cad에서 엑셀로 옮기는 lisp
공유
리습은 아니고 VBA에서 작동하는 모듈하나 첨부합니다.
VBA ENABLER설치하시고 모듈가져오시면 됩니다.
명령어 연결하는 법은
1. 리습에서 아래 명령어를 추가합니다.
(defun c:ctoe ()
(command “vbastmt” “ThisDrawing.ctoevba”)
);defun end
2. VBA편집기 를 열어서 왼쪽 프로젝트 탐색기에서
AUTOCAD 개체 – ThisDrawing 을 열어서 아래코드를 추가합니다.
Sub ctoevba()
call ctoe
End Sub
어렵지 않은 코드이니, 용도에 맞게 변형해서 쓰시면 됩니다.
저 그림의 표가 캐드에서 만든 테이블이 아닌한 힘들거 같은데요 올리신 리습은 캐드의 문자를 선택해서
수야님 vba실행 한번 해보세요.
제가 vba를 전혀 몰라서 실행은 해보지 못하네요(글을 읽으면서 몇번 시도 해밨지만 컴파일 오류라는 메세지만 ㅜ.ㅜ;;) 그러나 대충 소스에 달린 주석으로 봐서는 라인객체를 읽어 들여서 칸수를 설정하는 거 같군요 참 vba인상적이네요 한글로 변수도 되고
관련 유튜브 링크입니다.
https://www.youtube.com/watch?v=0pc2lTCrKoo
PMSG->MSGBOX로 수정하고, Unload FORM_NCKIM를 주석처리하니 잘되네요. 신세계입니다. 전 패널에 버튼 추가해서 VBA되게 하니 좋네요.