;; cyck(常用词库) 2015-02-03
(defun c:cyck (/ ilst klst lst0)
(xyp-Start)
(defun main-pro (/ p1)
(while (setq p1 (getpoint "\n基点<退出>: "))
(xyp-Text 5 p1 t1)
)
)
(defun ali1 ()
(setq tx (nth (atoi li1) lst0))
(set_tile "t1" tx)
)
(setq klst '(li1 "0" t1 "")
lst0 (xyp-txt2list (findfile "常用词库.txt"))
ilst '(("li1" "" "list" "lst0" "8" "10" "(ali1)")
("t1" "选词" "str" "8")
)
)
(xyp-initSet0 klst)
(if (= (xyp-Dcl-Init Ilst "【常用词库】" t) 1)
(main-pro)
)
(xyp-End)
)