[LISP程序]：那位兄弟帮我看一下这个为什么不能在2004里面运行

cjk

(defun c:cylind(/ dcl typ sz ser p)(setq dcl(load_dialog "cylind.dcl"))(if(not(new_dialog "cylind" dcl))(exit))(show_slide "fa")(show_slide "fas")(action_tile "fa" "(if typ (mode_tile typ 4)) (setq typ $key) (mode_tile typ 4)")(action_tile "fas" "(if typ (mode_tile typ 4)) (setq typ $key) (mode_tile typ 4)")(setq cy '("40" "50" "63" "80" "100" "125" "150" "180" "200"))(start_list "cylist")(mapcar 'add_list cy)(end_list)(action_tile "cylist" "(setq sz (nth (atoi $value) cy))")(setq ser "c")(action_tile "c" "(setq ser $key)")(action_tile "b" "(setq ser $key)")(action_tile "accept" "(done_dialog)")(action_tile "cancel" "(done_dialog) (exit)")(start_dialog)(unload_dialog dcl)(setq p(getpoint "\nInsert point:"))(if(= typ "fa")(command "insert"(strcat "*fa" sz ser) p 1 pause)(command "insert"(strcat "*fa" sz ser "s") p 1 pause)))



DCL文件
dcl_settings:default_dcl_settings{audit_level=0;}cylind:dialog{label="油壓缸 Oil cylinder";:row{:icon_image{key="fa";}:icon_image{key="fas";}}:row{:list_box{label="尺寸 &Size";key="cylist";width=10;height=9;allow_accept=true;}spacer;:column{label="形式 Serice";:radio_button{label="C";key="c";value="1";mnemonic="C形";}:radio_button{label="B形";key="b";mnemonic="B";}}}spacer;ok_cancel;spacer;}

zih1427

程序中用到自定义函数 (show_slide) 在本程序中未定义, 可能放在其它地方了, 暂时屏蔽调用它的两处
;;(show_slide "fa")
  ;;(show_slide "fas")
即可运行.

另需要相关的幻灯片fa fas  及 图块如 fa40cs.dwg 等等