제가 dcl edit_box를 만들어 캐드상에 line을 생성시키고 싶습니다.
우선 제가 만들어 둔것에서 무엇이 잘못되었는지 잘 모르겠어서
이렇게 글과 함께 제가 만들어둔 것을 올려둡니다. 제발 가르쳐주세요ㅠㅠ
이것이 dcl 이고
aab : dialog { label = “test”;
:edit_box {
label = “w”; key = ‘key1″; edit_width = 5; }
allow_accept = true;
value = “380”;
}
ok_cancel;
}
이것이 lsp로 만들어 둔것입니다.
(defun c:aab()
(setq n 3)
(setq id (load_dialog “c:/UserPRG/aab.dcl”))
(new_dialog “aab” id)
(mode_tile “key1”)
(setq ok (start_dialog))
(if (= ok 1)
(draw)
)
(unload_dialog id)
)
(defun draw()
(command “LINE” “0,0” “0,w”
)
)
어디가 어떻게 잘못 되었는지 가르쳐주세요
공유