http://cafe.naver.com/elconplan <- 요기 카페에 (카페 광고 아닙니다.;;)
카페지기님인 “도편수”님이 만드신 도면관리 리습입니다.
이런거 여기 퍼와서 물어봐도 되는건가요? 도편수님의 저작권에 문제가 된다면 바로 삭제하겠습니다.
제 캐드 Ver. 2006 입니다.
—————————————————————————————————————————————–
사용법은 다음과 같다.
리습함수는 : s-libmgr
사용문법
s-libmgr <해당디렉토리> <가로개수> <세로개소> <타이틀제목>
s-libmgr <해당디렉토리> <가로개수> <세로개소> <타이틀제목>
예제 : (setq dwgname (s-libmgr “c:ElconEDBDetail” 3 3 “표준디테일” “Elcon2004cadappshan”)
표준디테일을 만든 실제 LISP 프로그램
(defun c:IntDet ( / @@dir pt1 hanpath)
(setq hanpath (strcat dopath”\han“))
(setq @@dir (s-libmgr intpath 3 3 “실내마감디테일 불러오기” hanpath “” 1))
(if @@dir (progn
(setq pt1 (getpoint “nInsert point :”))
(if pt1 (command “insert” (strcat (car @@dir)”\”(cadr @@dir)) pt1 “” “” “”))
))
)
(setq hanpath (strcat dopath”\han“))
(setq @@dir (s-libmgr intpath 3 3 “실내마감디테일 불러오기” hanpath “” 1))
(if @@dir (progn
(setq pt1 (getpoint “nInsert point :”))
(if pt1 (command “insert” (strcat (car @@dir)”\”(cadr @@dir)) pt1 “” “” “”))
))
)
위의 실제 프로그램을 보고, 사용자가 자신에게 맞게 수정해서 사용할수 있다.
————————————————————————————————————————————-
라고 설명이 되어있길래 차근차근 따라해 보았지만.. 안돼네요.
리습이란건 오늘알게되었고.. 정말 도면그리는데 도움이 되는 프로그램언어인간 알겠는데..
어떻게 위에 리습을 적용해야 하는지 궁금합니다.
차근차근 하나씩 가르쳐주시면 감사하고 또 감사드립니다.
————————————————————————————————————————————-
라고 설명이 되어있길래 차근차근 따라해 보았지만.. 안돼네요.
리습이란건 오늘알게되었고.. 정말 도면그리는데 도움이 되는 프로그램언어인간 알겠는데..
어떻게 위에 리습을 적용해야 하는지 궁금합니다.
차근차근 하나씩 가르쳐주시면 감사하고 또 감사드립니다.