(set_tile \ (set_tile \ (start_image \
(slide_image 0 0 (dimx_tile \ \ )
(end_image) (start_list \ (mapcar 'add_list list0) (end_list)
(action_tile \ (action_tile \
(action_tile \ (action_tile \ (action_tile \ (action_tile \ (setq std (start_dialog)) (if
(= std 2)(progn(setvar \32)(setq p0 (getpoint \
point:\ )
(if(= std 1)(draw4)) (unload_dialog dcl_id)
(princ) )
(defun do_list() (cond
((= zcxl \619/3\
\
623 \
))
(setq list000(list'(3 4.2 8 3)'(3 4.2 10 4) )) (start_list \ (mapcar 'add_list list0) (end_list))
((= zcxl \
(setq d 4 d11 4.8 d1 9 t1 3.5 ) (set_tile \ (set_tile \ (set_tile \ (set_tile \
(setq list1'( \3.5 628/4\
\
4 619/4\
\ 5.6 13 5 624\
\
5 634\
))
(setq list111(list'(4 4.8 9 3.5)'(4 5.2 11 4)'(4 5.6 13 5)
'(4 6.4 16 5)
))
(start_list \
(mapcar 'add_list list1) (end_list)) ((= zcxl \
(setq d 5 d11 6.6 d1 13 t1 4 ) (set_tile \ (set_tile \ (set_tile \ (set_tile \
(setq list2'( \4 619/5\
\
5 605\
\ 7.4 16 5 625\
\
6 635\
))
(setq list222(list'(5 6.6 13 4)'(5 6.6 14 5)'(5 7.4 16 5)
'(5 7.4 19 6)
))
(start_list \
(mapcar 'add_list list2) (end_list)) ((= zcxl \
(setq d 6 d11 7.2 d1 13 t1 5 ) (set_tile \ (set_tile \ (set_tile \ (set_tile \
(setq list3'( \5 628/6\
