goubeishu 发表于 2012-5-12 17:48:34

求助专家们，能够用下面的lisp程序写出DCL对话框文件

(if (< (setq dcl_id (load_dialog "mc.dcl")) 0)
    (exit)
    )
    (setq execprog 0)
(setq what_next 6)
(while (< 2 what_next)
(if (not (new_dialog "mc" dcl_id))
      (exit)
)
(set_tile "DDF" Dp)
(set_tile "DDP" Dia)
(mode_tile "MC_DY" 1)
(mode_tile "MC_DQ" 1)
(mode_tile "MC_TDIA" 1)
(mode_tile "DDP" 2)
(mode_tile "DDF" 1)
(SET_TILE "MC_DY" CDo)
(SET_TILE "MC_DQ" CBOO)
(SET_TILE "MC_TDIA" TDD)
(SET_TILE "MC_TXTS" (RTOS ts 2 PREC))
(action_tile "DDP" "(setq DIA (atoi $value)) (new_DIA)")
(action_tile "MC_TXTS" "(setq ts (atoi $value)) (new_txt)")
(action_tile "MC_DL" "(Setq ppg \"DRILL\")(set_drsy) ")
(action_tile "MC_BOR" "(Setq ppg \"BORE\")(set_cbmod) ")
(action_tile "MC_D&T" "(Setq ppg \"DTAP\") (set_drtp) ")
(action_tile "MC_TP" "(Setq ppg \"TAP\") (set_tpmod) ")
(action_tile "MC_CB" "(Setq ppg \"CBORE\") (set_scbmod) ")
(action_tile "MC_MCB" "(Setq ppg \"MCBORE\")(set_mcbmod) ")
(action_tile "MC_CS" "(Setq ppg \"CSINK\")(set_csmod) ")
(action_tile "MC_RM" "(Setq ppg \"REAM\")(set_rmmod) ")
(action_tile "MC_DOW" "(Setq ppg \"DOWEL\")(set_dwmod) ")
(action_tile "MC_SM" "(Setq ppg \"SLOT\")(set_slmod) ")
(action_tile "MC_STD" "(setq TDIA (atof (get_tile \"DDP\")))(std_main) " )
(action_tile "MC_TH" "(setq SI \"THRU\")(mode_tile \"DDF\" 1)")
(action_tile "MC_FF" "(setq SI \"FF DEPTH\")(mode_tile \"DDF\" 0)(mode_tile \"DDF\" 2) ")
(action_tile "MC_FB" "(setq SI \"FB DEPTH\")(mode_tile \"DDF\" 0)(mode_tile \"DDF\" 2) ")
(action_tile "MC_FS" "(setq SI \"FS DEPTH\")(mode_tile \"DDF\" 0)(mode_tile \"DDF\" 2) ")
(SET_TILE "MC_SYM" OPR)
(action_tile "MC_SYM" "(setq OPR (atoi $value)) (new_SYM)")
(action_tile "cancel" "(done_dialog) (setq gperr \"\") (exit) ")
(action_tile"mc_wc" "(show_wc)" )
(action_tile "accept" "(s_gtval)" )
(action_tile "MC_SRF" "(done_dialog 4)" )
(action_tile "MC_TIT" "(done_dialog 5)" )
   (setq what_next (start_dialog))
    (if (= 3 what_next)
      (done_dialog 2)
    )

flytoday 发表于 2012-5-12 18:11:05

真佩服什么说明没有如果写出来就神了哈

fine 发表于 2012-5-12 22:37:41

本帖最后由 fine 于 2012-5-14 14:16 编辑



怎样根据这段lisp程序写出他的dcl对话框文件？

fine 发表于 2012-5-14 14:14:18

有能写出dcl对话框文件的吗？

fine 发表于 2012-5-15 16:58:01

怎么没人回应呢？

hvac_wh 发表于 2012-5-19 03:37:55

没有含义，这段程序就相识对话框，在用户没有点击之前，什么都没干！

goubeishu 发表于 2012-5-20 18:48:50

3楼有源程序，望高手帮忙解决！
页: [1]
查看完整版本: 求助专家们，能够用下面的lisp程序写出DCL对话框文件