[日积月累]：求DCL设计得例子

xczsb

求DCL设计得例子，最好能有参数读取得，带幻灯片得

zxq0220

2. 
   
3. dcl_settings:default_dcl_settings {audit_level = 3;}
   
4. insdwg:dialog{
   
5. label="图形插入选择";
   
6. :row{
   
7.   :list_box {key=sldlst;width=32;height=24;}
   
8.   :image {key="img";width=70;height=24;color=0;}
   
9. }
   
10. spacer;
    
11. ok_cancel;
    
12. }
    

<br /> dcl_settings:default_dcl_settings {audit_level = 3;}<br /> insdwg:dialog{<br /> label="图形插入选择";<br /> :row{<br />   :list_box {key=sldlst;width=32;height=24;}<br />   :image {key="img";width=70;height=24;color=0;}<br /> }<br /> spacer;<br /> ok_cancel;<br /> }<br />

[php]
(DEFUN C:INSDWG ()
(SETVAR "CMDECHO" 0)
(IF (> (SETQ DCL_ID (LOAD_DIALOG "INSDWG")) 0)
  (IF (NEW_DIALOG "insdwg" DCL_ID "") (PROGN
   (CHANGMAT)
   (action_tile "sldlst" "(SETQ I (ATOI $value)) (togscr)")
   (action_tile "accept"  "(GETVALOFDIA) (DONE_DIALOG 1)")
   (action_tile "cancel" "(DONE_DIALOG 0)")
   (SETQ RE (START_DIALOG))
  ) (PROGN
   (ALERT "Unable to display dialog box!\n无法显示对话框！")
   (UNLOAD_DIALOG DCL_ID)
  ))
  (ALERT "Unable to load dialog box!\n无法装载对话框！")
)
(IF (= RE 1) (PROGN
  (SETQ NM (SUBSTR NM 1 (- (STRLEN NM) 4)))
  (PRINC "\nInsert point :")
  (IF (SETQ FNM (FINDFILE (STRCAT "MIDWG\\" (SUBSTR NM 1 1) "\\" NM ".DWG")))
   (COMMAND ".INSERT" (STRCAT "*" FNM) PAUSE "" "" "ZOOM" "ALL")
  )
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

(DEFUN CHANGMAT ()
(IF (SETQ NM (FINDFILE "MISLD\\DWGSLD.TXT"))) (PROGN
  (SETQ F (OPEN NM "r") IMGLST (LIST))
  (WHILE (SETQ SLDNM (READ-LINE F)) (SETQ IMGLST (CONS SLDNM IMGLST)))
  (CLOSE F)
  (SETQ IMGLST (REVERSE IMGLST))
  (START_LIST "sldlst") (MAPCAR 'ADD_LIST IMGLST) (END_LIST)
  (SETQ I 0)
  (TOGSCR)
) (PROGN
  (PRINC "\nData File not found!")
  (EXIT)
))
)

(DEFUN TOGSCR ()
(SETQ TILE_V (DIMY_TILE "img")
       TILE_H (DIMX_TILE "img")
       NM (FINDFILE (STRCAT "MISLD\\" (NTH I IMGLST))))
(START_IMAGE "img")
(FILL_IMAGE 0 0 TILE_H TILE_V 0)
(SLIDE_IMAGE 0 0 TILE_H TILE_V NM)
(END_IMAGE)
)

(DEFUN GETVALOFDIA () (SETQ NM (NTH (ATOI (GET_TILE "sldlst")) IMGLST)))

(PRINC)
[/php]