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

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

(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楼有源程序，望高手帮忙解决！

账号		自动登录	找回密码
密码			注册

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

相关帖子

本帖子中包含更多资源