Question

CAD二次开发，lisp语言。

刚刚接触LISP，我想用lisp设计一个通过滑动条来改变后面对话框里面的字符，但是我改变滑动条位置时后面的字符不改变。下面是写的程序，恳请技术大牛们指导。

下面这张是预期效果。

DCL程序
dia9a:dialog{ label="滑动条辅助编号设计范例"; :boxed_row{ label="新编号前置类别"; :column{ :text{ label="A←英文字→Z"; alignment=centered; } :slider{ key="slider_abc"; min_value=1; max_value=26; width=30; height=1; small_increment=1; big_increment=1; }} :column{ spacer_0; :edit_box{key="kabc";edit_width=2;} }} :boxed_row{ label="新后置编号";:column{ :text{ label="1←数字→99"; alignment=centered; } :slider{ key="slider_123"; min_value=1; max_value=99; width=30; height=1; small_increment=1; big_increment=10; }} :column{ spacer_0; :edit_box{key="k123";edit_width=2;} }} :edit_box{ label="新编号全名"; key="knumstr"; edit_width=10; alignment=centered; fixed_width=true;}spacer_1;ok_cancel;}

下面上lisp程序
(defun c:dia9a() (setvar "cmdecho" 0) (dcl_dia9a) (prin1) )(defun dcl_dia9a()(setq dcl_id (load_dialog "d:\hua"))(new_dialog "dia9a" dcl_id)(def_dia9a)(action_tile "slide_abc" "(sub_s_abc $value)")(action_tile "slide_123" "(sub_s_123 $value)")(action_tile "accept" "(ok_dia9a)(done_dialog 1)")(setq dd (start_dialog)) (if (= dd 1) (progn (setvar "cmdecho" 1) (command "text" "j" "bl" "0,0" "60" "0" numstr) (setvar "cmdecho" 1) ) ))(defun def_dia9a() (set_tile "kabc" "A") (set_tile "slide_abc" "1") (set_tile "k123" "50") (set_tile "slider_123" "50") (get_numstr) )(defun sub_s_abcO(vvs) (set_tile "kabc" (chr(+ 64 (atoi vvs)))) (get_numstr) )(defun sub_s_123(vvs) (set_tile "k123" vvs) (get_numstr) )(defun get_numstr() (setq numstr1 (get_tile "kabc")) (setq numstr2 (get_tile "k123")) (set_tile "knumstr" (strcat numstr1 numstr2)) )(defun ok_dia9a() (setq numstr (get_tile "knumstr")) )





Answer 1

劝你不要学lisp，功能太受限。我以前搞lisp，现在转C#.net开发。

Answer 2

这个挺难的，我原来研究过一阵DCL程序，最后还是放弃，另想它法，它这个DCL程序感觉不成熟一样的，很多东西没法实现，不知道是不是我水平问题

Answer 3

帮顶一下，路过，，