I'm still having trouble. Maybe I'm just not understanding how to answer the prompts from the routine and continue on with the program? Even if i answer the prompts manually...it does not complete the rest of the program. Also with this method it did not even bring up a dialog box for me select the bmp file....let me post my entire code, maybe this will help...
Code:
(defun C:reviewstamp ()
(setq os (getvar "osmode"))
(setq cl (getvar "clayer"))
(setvar "osmode" 0)
(setq test 1)
(setq blockinsert (getstring "Is this block Approved? approved as Noted? to be Revised? <A/N/R>:"))
(cond
((or (= blockinsert "A") (= blockinsert "a"))
(setq insertstring "\\\\Fileman\\MAC\\Engineering\\Drawings\\AutoCAD Designers\\acad2004\\program files\\acadlisp\\reviewstamp\\approved.dwg")
)
((or (= blockinsert "N") (= blockinsert "n"))
(setq insertstring "\\\\Fileman\\MAC\\Engineering\\Drawings\\AutoCAD Designers\\acad2004\\program files\\acadlisp\\reviewstamp\\approvedasnoted.dwg")
)
((or (= blockinsert "R") (= blockinsert "r"))
(setq insertstring "\\\\Fileman\\MAC\\Engineering\\Drawings\\AutoCAD Designers\\acad2004\\program files\\acadlisp\\reviewstamp\\revise.dwg")
)
)
(setq blkscale (getvar "DIMSCALE"))
(setq pt (getpoint "Select insertion point:"))
(command "insert" insertstring pt blkscale "" 0)
(command "explode" "L" "")
(setq sigdatepty (- (nth 1 pt) (* 0.9375 (getvar "DIMSCALE"))))
(setq sigx (- (nth 0 pt) (* 0.5625 (getvar "DIMSCALE"))))
(setq datex (+ (nth 0 pt) (* 1.5 (getvar "DIMSCALE"))))
(setq bmpptx (- (nth 0 pt) (* 1.5 (getvar "DIMSCALE"))))
(setq sigpt (list sigx sigdatepty 0))
(setq datept (list datex sigdatepty 0))
(setq bmppt (list bmpptx sigdatepty 0))
(setq signature (getstring "\nWould you like to Type your signature or insert digital signature .bmp from a File? <T/F>:"))
(cond
((or (= signature "T") (= signature "t"))
(setq printsig (getstring T "Type your signature:"))
(setq txtsize (* 0.1875 (getvar "DIMSCALE")))
(command "clayer" "text")
(command "Text" "j" "bc" sigpt txtsize "0" printsig "")
)
((or (= signature "F") (= signature "f"))
(initdia 0)
(command "_.image" "a" bmppt (getvar "DIMSCALE") 0)
)
)
(setq date (rtos (getvar "CDATE") 2 8))
(setq datetxt (strcat (substr date 5 2) "/" (substr date 7 2) "/" (substr date 1 4)))
(setq txtsize (* 0.125 (getvar "DIMSCALE")))
(command "Text" "j" "bc" datept txtsize "0" datetxt "")
(command "clayer" cl)
(setvar "osmode" os)
)