안녕하세요
항상 리습을 짜는데 도움을 받으며 감사드리고 있습니다.
캐드에서 도번만 입력하면 도번의 경로를 따라가서 도면을 열도록 리습을 짜려고 하는데요.
c:도면도번131234131234001_도면명131234001A.dwg
이런식으로 된 폴더인데..
제 능력선에서 131234폴더까지는 경로설정을 할수 있는데
문제는 도면명이 붙은 폴더를 131234001A라는 명령어만으로 접근하려면
131234의 폴더에 있는 하위 폴더를 검색해서 131234가 들어있는 폴더의 이름을
변수로 가져와야 할 듯 합니다.
그런데 어떤식으로 해야 할지 잘 모르겠습니다 ㅠㅠ
리스트로 해서 그 리스트에서 검색해 파일명을 가져오는 방식일 듯 한데…
잘 모르겠습니다 ㅠ
어떤 식으로 해야할지 조언좀 부탁드리겠습니다.
리습관련 질문은 lisp/vba Q&A가 좌측에 따로 있으며, 위 질문과 같은 내용은 강좌/리습을 보아야될것으로 보입니다.
131234의 폴더에 있는 하위 폴더중 131234가 들어있는 폴더의 이름 리스트
(vl-remove-if-not ‘(lambda (x) (wcmatch x “131234*”))
(vl-directory-files “c:\도면\도번\131234” nil -1) )
감사합니다!!
위처럼 해서 리스트에 딱 1개만 남겨놨는데
이것을 일반 텍스트 변수로 빼서 쓰려면 어떻게 해야하나요??ㅠ
q라는 변수안에 담아서 경로 지정할때 사용 하고 싶은데…
(setq q (vl-princ-to-string fi))
이걸로 해서 q안에 답긴 담았는데요….
문제는 문자 앞뒤로 가로가 만들어 져요…
이 가로 어떻게 지울 방법 없을까요??ㅜ
vl-string-left-trim 이거 이용해서 해결했습니다~
기초적인 함수를 모르셔서 애로사항이 있어 보입니다.
리스트는 (nth 숫자 리스트) 로 하셔야합니다. 0 이 맨 처음것입니다.
(setq q (nth 0 fi))