怪事，程序编译成VLX不能运行

龙城飞将36

2. ;;;(defun insdcl01  (i / k)
   
3. ;;;  (setq  k    (* 2 (atoi i))
   
4. ;;;  lst1 (vl-remove nil (mapcar '(lambda (x) (nth k (read x))) lst))
   
5. ;;;  lst2 (vl-remove  nil
   
6. ;;;      (mapcar '(lambda (x) (nth (1+ k) (read x))) lst)
   
7. ;;;       )
   
8. ;;;  )
   
9. ;;;  (show_list "zl_1" lst1)    ;lst1内nil必须去除。
   
10. ;;;  (set_tile "lj" (car lst2))
    
11. ;;;)
    
12. ;;;(defun insdcl02  (j / lst3)
    
13. ;;;  (setq lst3 (nth (atoi j) lst2))
    
14. ;;;  (set_tile "lj" lst3)
    
15. ;;;)
    
16. (defun c:dkwj (/ #wjlj bb chudir dcl_id fn lst lst1 lst2 strl)
    
17.   (XD::Begin)
    
18.   (vl-Load-COM)
    
19.   (setq  strl   '("dkwj:dialog {label = "打开文件";"
    
20.      "\n:boxed_row {"
    
21.      "\n:list_box {key = "zl_0";"
    
22.      "\n width=20;height=20;}"
    
23.      "\n:list_box {key ="zl_1";"
    
24.      "\n width=20;height=20;}}"
    
25.      "\n :edit_box {label = "路径:";width=20; key="lj";}"
    
26.      "\n ok_cancel;"
    
27.      "\n }"
    
28.     )
    
29.   fn     (xd::dcl:make strl)
    
30.   dcl_id (load_dialog fn)
    
31.   )
    
32.   (if (not (new_dialog "dkwj" dcl_id))
    
33.     (exit)
    
34.   )
    
35. ;;;  (setq  chudir "E:\\MYTOOLS\\lisp\"  ;设置初始目录
    
36. ;;;  lst    (XD::List:FromFile (strcat chudir "打开文件.txt"))
    
37. ;;;  lst1   (mapcar '(lambda (x) (car (read x))) lst)
    
38. ;;;  lst2   (mapcar '(lambda (x) (nth 1 (read x))) lst)
    
39. ;;;  )
    
40. ;;;  (show_list "zl_0" '("打开文件" "打开网页"))
    
41. ;;;  (show_list "zl_1" lst1)
    
42. ;;;  (set_tile "lj" (car lst2))
    
43. ;;;  (action_tile "zl_0" "(insdcl01  $value )")
    
44. ;;;  (action_tile "zl_1" "(insdcl02  $value)")
    
45.   (action_tile
    
46.     "accept"
    
47.     "(done_dialog 1)"
    
48.   )
    
49.   (action_tile "cancel" "(done_dialog 0)")
    
50.   (setq bb (start_dialog))
    
51.   (unload_dialog dcl_id)
    
52.   (vl-file-delete fn)
    
53.   (princ)
    
54. )

;;;(defun insdcl01  (i / k)<br /> ;;;  (setq  k    (* 2 (atoi i))<br /> ;;;  lst1 (vl-remove nil (mapcar '(lambda (x) (nth k (read x))) lst))<br /> ;;;  lst2 (vl-remove  nil<br /> ;;;      (mapcar '(lambda (x) (nth (1+ k) (read x))) lst)<br /> ;;;       )<br /> ;;;  )<br /> ;;;  (show_list "zl_1" lst1)    ;lst1内nil必须去除。<br /> ;;;  (set_tile "lj" (car lst2))<br /> ;;;)<br /> ;;;(defun insdcl02  (j / lst3)<br /> ;;;  (setq lst3 (nth (atoi j) lst2))<br /> ;;;  (set_tile "lj" lst3)<br /> ;;;)<br /> (defun c:dkwj (/ #wjlj bb chudir dcl_id fn lst lst1 lst2 strl)<br />   (XD::Begin)<br />   (vl-Load-COM)<br />   (setq  strl   '("dkwj:dialog {label = "打开文件";"<br />      "\n:boxed_row {"<br />      "\n:list_box {key = "zl_0";"<br />      "\n width=20;height=20;}"<br />      "\n:list_box {key ="zl_1";"<br />      "\n width=20;height=20;}}"<br />      "\n :edit_box {label = "路径:";width=20; key="lj";}"<br />      "\n ok_cancel;"<br />      "\n }"<br />     )<br />   fn     (xd::dcl:make strl)<br />   dcl_id (load_dialog fn)<br />   )<br />   (if (not (new_dialog "dkwj" dcl_id))<br />     (exit)<br />   )<br /> ;;;  (setq  chudir "E:\\MYTOOLS\\lisp\"  ;设置初始目录<br /> ;;;  lst    (XD::List:FromFile (strcat chudir "打开文件.txt"))<br /> ;;;  lst1   (mapcar '(lambda (x) (car (read x))) lst)<br /> ;;;  lst2   (mapcar '(lambda (x) (nth 1 (read x))) lst)<br /> ;;;  )<br /> ;;;  (show_list "zl_0" '("打开文件" "打开网页"))<br /> ;;;  (show_list "zl_1" lst1)<br /> ;;;  (set_tile "lj" (car lst2))<br /> ;;;  (action_tile "zl_0" "(insdcl01  $value )")<br /> ;;;  (action_tile "zl_1" "(insdcl02  $value)")<br />   (action_tile<br />     "accept"<br />     "(done_dialog 1)"<br />   )<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq bb (start_dialog))<br />   (unload_dialog dcl_id)<br />   (vl-file-delete fn)<br />   (princ)<br /> )

程序单独或跟别的程序最后编译成Vlx能运行，如果放在别的程序前面就出现“未知命令dkwj”请高手帮忙看一下

zhxooo555

我也遇到了  同求

tryhi

别的程序是指任何程序吗？比如跟一个(defun c:tt ()(princ "a"))一起编译也会吗？

gslee

我的程序加载后 ，有时正常，有时显示没有这个命令