(defun C:test
( / *error* dcl des dch dcf e o cen ang ll ur
)
); defun *error*
(
'(
"RotateObject : dialog"
"{ label = \"Rotate Object\";"
" : column"
" { : image_button { key = \"img\" ; width = 5.5 ; aspect_ratio = 1.0; alignment = centered; fixed_width = true; fixed_height = true; } " ; 32x32 image
" : edit_box { label = \"Angle\"; key = \"eb\"; alignment = centered; edit_width = 12; fixed_width = true; is_enabled = false; value = \"0\"; }" ; info
" : row"
" { : button { label = \"Pick object >>\"; key = \"pick\"; alignment = centered; width = 5; fixed_width = true; }"
" : toggle { key = \"p\"; is_enabled = false; value = 0; }" ; info
" }"
" }"
" spacer;"
" ok_cancel;"
" : text { label = \"\"; key = \"err\"; }"
"}"
)
); mapcar
); and
); not
(princ "\nUnable to write or load the DCL file.") )
(
(T
(LM:DisplayBitmap "img"; list
); mapcar
(action_tile "img" ; this did not worked, because I used : image, instead of : image_button! ); action_tile
); cond
); vl-prin1-to-string
); action_tile
)
); cond
); and
); while
(/= 1 dcf)
); progn
(princ "\nUser cancelled the dialog.") )
(T
); and
)
); cond
); defun
;;--------------------=={ Display Bitmap }==------------------;;
;; ;;
;; Renders the supplied ACI colour list representation of a ;;
;; Bitmap image on the DCL image tile or image_button tile ;;
;; with the given key. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2012 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; key - key of DCL image tile or image_button tile ;;
;; lst - ACI colour list ;;
;;------------------------------------------------------------;;
;; Returns: nil ;;
;;------------------------------------------------------------;;
(defun LM:DisplayBitmap
( key lst
/ i j s x y
) )
)
)
)