[[Lisp]]리습실행후 UNDO를 확실히 할 수 있는방법 좀 알려주세요.

[올빼미]

성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^

 - 제목 작성시 금지어

   만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등

- 특정분과 질문은 제목에 분과삽입 [건축] 

   좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.

- 말머리 필수 

① CAD 종류   : 오토캐드

② VERSION   : 2002

③ 운영 체제    :엑스피

④ 질문내용 및 스크린샷(이미지 및동영상)

(defun c:TT()

  (command "_undo" "_be") ;; (1)

  (defun Error(e)

     (command "_undo" "_e") ;;(2)

     (princ)

  )

  (setq *error* Error)

  (while (setq p1 (getpoint "\n 첫번째 점 입력: "))

     (setq p2 (getpoint "\n 두번째 점 입력: "))

     (command "_line" p1 p2 "")

  )

  (command "_undo" "_e") ;;(3)

  (princ)

)

위와 같이 프로그램하여 여러번 실행한 후 UNDO하면 간헐적으로

UNDO   E 가 실행되지 않아  UNDO 할 수 없다 는 메시지가 나옵니다.

질문은

UNDO를 확실히 하려면 어떤 방식으로 프로그램해야 하는 건가요?

⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.

※ 유의사항

 - ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^

 - ②Screenshot : 이해를 돕기위해 삽입요망.

 - ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.

                          해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.

 - ④제       목 : 질문 내용 반영(개략적인 내용),       예) 해치를 만들고 싶어요, pline을 연결할려면?

 - ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.

    여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음. 

※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.

    회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해

    검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.

    이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.

 

[태은]

문제없어 보이기는 한데.. 이렇게 한번사용해보세욤

(defun c:TT( / *error* )
(command "_undo" "_be")
(defun *error*(e)
(command "_undo" "_e")
(princ)
)
(while (setq p1 (getpoint "\n 첫번째 점 입력: "))
(setq p2 (getpoint "\n 두번째 점 입력: "))
(command "_line" p1 p2 "")
)
(command "_undo" "_e")
(princ)
)

[가인]

좋은 자료 감사합니다^^

[3:16]

칠떡이님 태은님 수고하셨습니당^^*

[3:16]

근데 어느시점으루부터...undo를 하구 싶으신지...^^;

[올빼미]

처음부터요....

답변주신분께 감사드립니다.