리습을 공부하다 처음으로 필요에 의해서 짜본 리습입니다.
아직 함수나 명령어의 의미를 몰라서 이것 저것 같다 붙이는데만
오늘 하루 다 잡아 먹고 밥먹는 시간빼고 만든 것이 지금 밑의 허접한
리습인데요. 아직 완전 초보라 제가 만든건 객체를 잡고 한점 찍고 다른점
찍으면 선그어지고 move가 되는 건데 정말로 제가 만들고 싶은건
글자에서 기준점을 middle로 하고 dtext를 객체로 처음 잡고 다음 점을 찍으면 선이그어지고 mid에서 mid로 dtext가 move 되도면서 mid점에서 다음점으로 선도 그어지도록 하고싶습니다. 고수님들 도와주십시오…ㅡㅜ
제가 짬뽕한 리습입니다.
(DEFUN ERR_MSG(e)
(if (/= e “Function cancelled”)
(princ (strcat “n Error : ” e))
)
(setq *error* olderr)
(princ)
)
;;; ———— main program ———-
(defun c:pp1 (/ d sset pt1 pt2)
(setvar “cmdecho” 0)
(graphscr)
(setq d “K”)
(while d
(setq sset (ssget))
(if (= null sset)
(princ “n ERROR: Nothing selected.”))
(setq PT1 (getpoint “nStart Point: “))
(setq PT2 (getpoint pt1 “nEnd Point: “))
(command “._line” pt1 PT2 “”)
(command “move” sset “”pt1 pt2)
)
)
(setvar “cmdecho” 1)
(princ)
그리고 현재 김석준님 역의 autolisp 책(1990년) 과 VBcad.co.kr에서
다운받은 이혁진님 리습강좌로 혼자서 공부하고 있는데 체계적이지도 못하고 너무 어렵습니다. 혹시 리습책 괜찮은 것들 좀 더 추천해주시면 감사하겠습니다.
매일 매일 즐겁고 보람찬 하루 되시길 바랍니다. GOD BLESS YOU.