안녕하세요
첨부한 리습은 겹치기제거하는 리습인데 잘 사용하다가 어느날 부터 안디는데 왜그런지 모르겠네요.
express 의 overkill 과 같은 기능입니다.
고수님들 좀 봐주세요~

고수님들 매일 감사하고있습니다.
lisp 수정부탁합니다.
저가 해볼려구 했지만 실력이…영….

;일정간격으로 move해줌(오른쪽)

(defun c:mr(/ ss ss1 pt1 pt2)

(setq ss (entsel “n>> MOVE할 객체….. : “))
(setq ss1 (entsel “n>> 기준 객체….. : “))

(setq pt1 (cdr (assoc 10 (entget (car ss)))))
(setq pt2 (cdr (assoc 10 (entget (car ss1)))))

(command “move” ss “” pt1 pt2) ; 기준객체로 이동
(command “move” ss “” pt2 “@1.5,0”) ;다시 일정간격으로 이동 <=== 이부분
(princ)
)

;일정간격으로 move해줌(아래쪽)
(defun c:md(/ ss ss1 pt1 pt2)

(setq ss (entsel “n>> MOVE할 객체….. : “))
(setq ss1 (entsel “n>> 기준 객체….. : “))

(setq pt1 (cdr (assoc 10 (entget (car ss)))))
(setq pt2 (cdr (assoc 10 (entget (car ss1)))))

(command “move” ss “” pt1 pt2) ; 기준객체로 이동
(command “move” ss “” pt2 “@0,-1.7”) ; 다시 일정간격으로 이동 <=== 이부분
(princ)
)

text 를 정렬 하려고 만든것인데요..
move할 객체 클릭하고 기준객체 클릭하면 기준객체의 포인트를 기준으로 하,좌 로 움직이게 하는 것입니다…
그런데 문제는.. <=== 해놓은 부분이... 잘 안되서요..
기준객체까지는 잘 움직이는데 다시 일정간격으로 움직이지를 않습니다.. 처음 만들때는 잘 되었는데.. 이쪽 저쪽으로 복사해주고 test 를 했더니.. 기준객체에 붙어있는경우도 있고요. 전혀 엉뚱한 방향으로 움직이는 경우도 있습니다… 모가 잘못되었는지 도통 모르겠습니다… 지도 부탁드립니다… 감사합니다.