리습 공부중인 허접초보 입니다
dcl을 이용해 limits를 정하는 리습을 만들어 보려하는데
무엇이 문제인지.
limits가 1189,841만 되네요..
psetbox : dialog { label=”NEW PLAN DRAWING SETUP”;
:boxed_column{
label=”New Dwg. Setup”;
:popup_list {label=”Dwg. Size”; key=”dsiz”;edit_width=15;}
}
ok_cancel;
}
(defun c:psetup()
(setvar “cmdecho” 0)
(if (/= (psetup_dcl)0)
(pset)
)
(princ)
)
;;;———————————-
(defun psetup_dcl()
(setq dcl_id (load_dialog “Psetup”))
(if (not (new_dialog “psetbox” dcl_id)) (exit))
(setq si_lst ‘(“a0” “a1” “a2”))
(start_list “dsiz”) (mapcar ‘add_list si_lst) (end_list)
(action_tile “dsiz” “(do_siz)”)
(start_dialog)
(unload_dialog dcl_id)
)
(defun do_siz()
(cond
((= “1” (get_tile “a0”))
(setq sht a0)
)
((= “1” (get_tile “a1”))
(setq sht a1)
)
((= “1” (get_tile “a2”))
(setq sht a2)
)
)
)
(defun pset(/ x0 y0 oax oay)
(setq x0 0
y0 0)
(cond
((= sht a0)
(setq oax 1189
oay 841)
)
((= sht a1)
(setq oax 841
oay 594)
)
((= sht a2)
(setq oax 594
oay 420)
)
)
(command “.redraw”)
(setq lowlim (list x0 y0))
(setvar “limmin” lowlim)
(setq uplim (list oax oay))
(setvar “limmax” uplim)
(command “.zoom” “a”)
(princ)
)
어디에 문제가 있는지…
고수님들의 조언을 부탁드립니다.