Try this version and post what you get at the command prompt.
Thanks
;;PASSEM.LSP Written by: UD
(defun C:PASSEM( / P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13
#TOP #BOT A1 D1 D2 S1 E1 E2 *error*)
(defun *error* (msg)
(or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **")))
(vl-bt)
(princ)
)
(setq debugCAB t)
(if (= *usermode* "CAB") ; debug
(setq #MENUDIR "")
(setq #MENUDIR "C:\Program Files\AutoCAD 2004\Support\Assemblies\ASSEM")
)
(defun lookup (idx / tmp)
(setq tmp
(cadr (assoc idx
'(("I00" nil)
("I01" "Std. Flanged Pair Assembly")
("I02" "Flanged Gate Valve Assembly")
("I03" "Flanged Ball Valve Assembly")
("I04" "Flanged Check Valve Assembly")
("I05" "Flanged Plug Valve Assembly")
("I06" "Flanged Globe Valve Assembly")
("I07" "Std. Flange & Blind Assembly")
("I08" "Common SWxSC Vent/drain Assembly")
("I09" "Gasket and RFWN Flange Assembly")
("I10" "Weldolet, RFWN Flange and Gasket Assembly")
("I11" "Gasket, WN Flange, Pipe, WN Flange, Gasket, Assembly")
("I12" "Gasket, WN Flange, Pipe, Assembly")
("I13" "Gasket, Slip-on Flange, Pipe, Slip-on Flange, Gasket, Assembly")
("I14" "Gasket, Slip-on Flange, Pipe, Assembly")
("I15" "")
("I16" "")
("I17" "Common Vent/Drain Assembly, Threaded")
("I18" "Common Vent/Drain Assembly, Threaded, For Small Bore Piping")
)
)))
(if tmp tmp "") ; always return a string
)
(defun assm_help ()
(alert
(strcat
"PasSem.lsp (c) 2010 Laison\n"
"Please report any problems you may have to Laison\n"
)
)
) ;end defun help
(defun assm_info ()
(alert
(strcat
"PasSem.lsp Version1.0 10.30.2010 (c) 2010 Laison\n"
""
)
)
) ;end defun help
(and debugCAB (princ "\nLoading DCL file"))
(setq Dat (load_dialog (strcat #MENUDIR "ASSEMBLY-CAB.DCL")))
(and debugCAB (princ "\nLoading dialog"))
(if (not (new_dialog "ASM01" Dat)) (exit))
(and debugCAB (princ "\nPrepairing slides"))
(setq H (dimy_tile "I01"))
(setq W (dimx_tile "I01"))
(setq CNT 0)
(repeat 30
(setq CNT (+ CNT 1)
suf (itoa cnt))
(if (< CNT 10) (setq suf (strcat "0" suf)))
(start_image (strcat "I" suf))
(slide_image 0 0 W H (strcat #MENUDIR "ASM(ASM" suf ")"))
(end_image)
)
(action_tile "help" "(assm_help)")
(action_tile "info" "(assm_info)")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(and debugCAB (princ "\nStarting dialog"))
(setq Ok (start_dialog))
(unload_dialog Dat)
(and debugCAB (princ "\nDialog closed ok"))
(if (= OK 1)
(assembly ASM)
)
(princ)
)