In the lisp in the link below the slides are linked to the 'tile' or 'box' selected which then populates the list(sizes) in the list box widow.
viewtopic.php?p=7072&sid=324356655be7dc ... 11e3#p7072.
.
Code: Select all
(action_tile "rb22" ;toggle RF option
"(cond
((and (= sel \"flg_\")(= flg \"wn_\"))
(progn
(L4_ON)
(SET_WNRF_IMAGE)
(RB22_FLAG)
)
)
This is my first attempt:
Code: Select all
(defun SET_IMAGE ()
;
(setq sldFile(nth 2 SIZE_DIMS))
(if (not (findfile sldFile))
(progn
(alert (strcat "Not found file: " sldFile))
(setq sldFile "default.sld")))
;
(setq w (dimx_tile "imagekey") ;get image tile width
h (dimy_tile "imagekey") ;get image tile height
);end of setq
;
(start_image "imagekey") ;start the image
(fill_image 0 0 w h 251)
(slide_image 0 0 w h sldFile) ;display a slide
(end_image) ;end image
) ;End SET_IMAGE
Code: Select all
("1/2" "1/2" "1-2_wnrf.sld" 89.00 11.20 34.90 4 15.80 21.30 48.00 00.60)
??
Steve