badgirl 发表于 2004-6-2 10:25:00

斑竹，请问在AutoLisp里可以实现TEXTCHANGE事件吗？

本帖最后由 作者 于 2004-6-2 11:47:15 编辑 <br /><br /> 我想实现这样的一个功能：在我选择了第一个POPUE_LIST中的第一项，那么就在第四个POPUP_LIST的内容中增加一项“1”，选取了第二项就在第四个POPUP_LIST中增加“2”，......，但就不能实现。请问这是为什么？不好意思，我是只菜鸟。



(defun C:PN()


(setq cc (load_dialog "partno.dcl"))<BR>                       (if (not (new_dialog "nn" cc)) (exit))<BR>                       (action_tile "c1" "(group-index)")<BR>                       (start_dialog)<BR>)<BR>(defun group-index()<BR>                                       (setq c1-value (get_tile "c1"))<BR>       (cond (c1-value 0)<BR>        (progn<BR>       (start_list "c4")<BR>       (add_list "1")<BR>       (end_list )<BR>       )


(c1-value 1)


(progn


        (start_list "c4")<BR>       (add_list "2")<BR>       (end_list )<BR>)<BR>        )<BR>       (start_dialog)<BR>)<BR>


DCL如下（nn.dcl）：


nn:dialog<BR>{label="Part No. information";<BR>:row<BR>        {label="Please select item";<BR>                :row<BR>                {label="Group Index";<BR>                        width=25;<BR>                        :popup_list<BR>                        {<BR>                        key="c1";<BR>                        list="E--Electronic \n N--Electrical &amp; Mechanical \n M--Metal \n P--Plastic \n K--Packaging \n H--Other";<BR>                        value="0";<BR>                        }<BR>                }


                :row<BR>                {label="Nature Index";<BR>                        width=25;<BR>                        :popup_list<BR>                        {<BR>                        key="c2";<BR>                        list="S--Standardized Material\n F--Functioning Material\n T--Tailor-made Material";<BR>                        value="0";<BR>                        }<BR>                }<BR>                :row<BR>                {label="C3";<BR>                        width=25;<BR>                        :popup_list<BR>                        {<BR>                        key="c3";<BR>                        list="Accessory \n Adaptor \n Bearing \n Brand label \n Chemical Material \n Clock \n Conducting Parts \n Connector \n Decorative Cut Sheet \n Dowel";<BR>                        value="0";<BR>                        }<BR>                }<BR>                :row<BR>                {label="C4";<BR>                        width=25;<BR>                        :popup_list<BR>                        {<BR>                        key="c4";<BR>                        value="0";<BR>                        }<BR>                }               


}<BR>:text_part<BR>{key=display_text;<BR>}<BR>ok_only;<BR>}

alin 发表于 2004-6-2 10:38:00

You should load the DCL file first.

龙龙仔 发表于 2004-6-2 12:43:00

(defun C:PN ()<BR>       (setq ID (load_dialog "nn"))<BR>       (if (not (new_dialog "nn" ID))<BR>                       (exit)<BR>       )<BR>       (action_tile "c1" "(group-index)")<BR>       (start_dialog)<BR>)<BR>(defun GROUP-INDEX ()<BR>       (setq C1-VALUE (get_tile "c1"))<BR>       (cond        ((= C1-VALUE "0")<BR>       (start_list "c4" 1 0)<BR>       (add_list "1")<BR>       (end_list)<BR>       (set_tile "c4" "0")<BR>        )<BR>        ((= C1-VALUE "1")<BR>       (start_list "c4" 1 1)<BR>       (add_list "2")<BR>       (end_list)<BR>       (set_tile "c4" "1")<BR>        )<BR>       )<BR>)<BR>

badgirl 发表于 2004-6-4 13:38:00

谢谢斑竹!
页: [1]
查看完整版本: 斑竹，请问在AutoLisp里可以实现TEXTCHANGE事件吗？