1.看不懂,你都有了lst,你就知道了列表0~999的内容了。还搞最后一句, (if (= flag 1) ;;(mapcar '(lambda (x) (nth x LST)) (read (strcat "(" Lin ")"))) lin ) 看不懂 2.(action_tile "list" "(setq lin $value)") $value的意思是当你点到列表的时候的返回值,你没去点$value就是默认值 3. 如果想要获取列表框中,你所选的值就是(nth lin lst),这个楼主知道。 4. ;;写入列表框 (start_list "list") (mapcar 'add_list lst) (end_list) 行数是没有限制的。。。刚刚测了1万行,OK |