求助：这个能够实现吗？用AL

alwaysbin

实在是太感谢了，你可解决了我的大难题，谢谢！！谢谢！！！


对了，关于dcl控制的书哪里能买到啊？我买了几本都很肤浅，有的甚至是抄cad的帮助。

龙龙仔

(defun C:BBC (/ WHAT_NEXT)
(if (< (setq DCL_ID (load_dialog "ff.dcl")) 0)
(exit)
)
(setq LIS '("香港" "巴西" "葡萄牙" "中國"))
(new_dialog "ff" DCL_ID)
(start_list "justone")
(action_tile
"justone"
"(setq ind (nth (atoi $value) lis))(set_tile \"nation\" ind)"
)
(action_tile "accept" "(done_dialog 1)")
(start_dialog)
(unload_dialog DCL_ID)
IND
)

alwaysbin

这个也能实现，真是收获不小啊，谢谢了。