lisp编译成VLX后，原设定命令不能用

linwanglian

这2个文件，编译成VLX，输入JLTC，就提示未知命令，刚开始学LISP，搞不明白了。请前辈们帮忙看看咋回事！！！

自贡黄明儒

估计是对话框加载路径不对。

linwanglian

自贡黄明儒 发表于 2022-8-2 16:50
估计是对话框加载路径不对。

单独编译LISP也不好用

wzg356

可能是编译有问题，没加载完

linwanglian

wzg356 发表于 2022-8-2 21:55
可能是编译有问题，没加载完

我安装个原版CAD试试吧，我怀疑精简版的可能不行。

xudongchu

2006 2012已测试编译后加载没有问题，可以使用。

linwanglian

xudongchu 发表于 2022-8-3 14:49
2006 2012已测试编译后加载没有问题，可以使用。

谢谢，我用的2021，编译完成以后，一直是未知命令。我再装个2006吧，非常感谢！

wharan

这个问题确实存在。有时候一个不合适的中文文件名，编译后也会找不到命令。

hhh454

2. ;对话框程序开始：
   
3. (defun ngc-dcl()
   
4. (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
   
5. (setq f_dcl (open Dcl_File "w"))
   
6. (write-line "JLTC:dialog{" f_dcl)
   
7. (write-line "         label="立弘-图层设定";" f_dcl)
   
8. (write-line "         :boxed_radio_column{" f_dcl)
   
9. (write-line "                             label="新建图层";" f_dcl)
   
10. (write-line "                             :radio_button{label="安装图层";key="rb11";}" f_dcl)
    
11. (write-line "                             :radio_button{label="加工图层";key="rb12";}" f_dcl)
    
12. (write-line "                             :radio_button{label="深化图层";key="rb13";}" f_dcl)
    
13. (write-line "                             }" f_dcl)
    
14. (write-line "          spacer_1;" f_dcl)
    
15. (write-line "          ok_cancel;" f_dcl)
    
16. (write-line "           }" f_dcl)
    
17. (close f_dcl)Dcl_File)
    
18. ;;主程序开始：
    
19. (defun        c:tt ()
    
20.    (setq dcl_id (load_dialog (setq Dcl_File (ngc-dcl))))
    
21.    (vl-file-delete Dcl_File)
    
22.    (SETQ CHK 0)
    
23.    (NEW_DIALOG "JLTC" DCL_ID)
    
24.    (ACTION_TILE "accept" "(SETQ CHK 1)(S_PGON)(DONE_DIALOG)")
    
25.    (START_DIALOG)
    
26.    (UNLOAD_DIALOG DCL_ID)
    
27.    (cond ((= dd 1) (sub_achk_layer))
    
28.          ((= dd 2) (sub_jchk_layer))
    
29.          ((= dd 3) (sub_schk_layer))
    
30.    )
    
31.    (PRINC)
    
32. )
    
33. (DEFUN        S_PGON ()
    
34.    (COND ((= (GET_TILE "rb11") "1") (SETQ dd 1))
    
35.          ((= (GET_TILE "rb12") "1") (SETQ dd 2))
    
36.          ((= (GET_TILE "rb13") "1") (SETQ dd 3))
    
37.    )
    
38. )
    
39. (defun        sub_achk_layer ()
    
40.    (alert "\n001")
    
41. )
    
42. (defun        sub_jchk_layer ()
    
43.    (alert "\n002")
    
44. )
    
45. (defun        sub_schk_layer ()
    
46.    (alert "\n003")
    
47. )

;对话框程序开始：<br /> (defun ngc-dcl()<br /> (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))<br /> (setq f_dcl (open Dcl_File "w"))<br /> (write-line "JLTC:dialog{" f_dcl)<br /> (write-line "         label="立弘-图层设定";" f_dcl)<br /> (write-line "         :boxed_radio_column{" f_dcl)<br /> (write-line "                             label="新建图层";" f_dcl)<br /> (write-line "                             :radio_button{label="安装图层";key="rb11";}" f_dcl)<br /> (write-line "                             :radio_button{label="加工图层";key="rb12";}" f_dcl)<br /> (write-line "                             :radio_button{label="深化图层";key="rb13";}" f_dcl)<br /> (write-line "                             }" f_dcl)<br /> (write-line "          spacer_1;" f_dcl)<br /> (write-line "          ok_cancel;" f_dcl)<br /> (write-line "           }" f_dcl)<br /> (close f_dcl)Dcl_File)<br /> ;;主程序开始：<br /> (defun        c:tt ()<br />    (setq dcl_id (load_dialog (setq Dcl_File (ngc-dcl))))<br />    (vl-file-delete Dcl_File)<br />    (SETQ CHK 0)<br />    (NEW_DIALOG "JLTC" DCL_ID)<br />    (ACTION_TILE "accept" "(SETQ CHK 1)(S_PGON)(DONE_DIALOG)")<br />    (START_DIALOG)<br />    (UNLOAD_DIALOG DCL_ID)<br />    (cond ((= dd 1) (sub_achk_layer))<br />          ((= dd 2) (sub_jchk_layer))<br />          ((= dd 3) (sub_schk_layer))<br />    )<br />    (PRINC)<br /> )<br /> (DEFUN        S_PGON ()<br />    (COND ((= (GET_TILE "rb11") "1") (SETQ dd 1))<br />          ((= (GET_TILE "rb12") "1") (SETQ dd 2))<br />          ((= (GET_TILE "rb13") "1") (SETQ dd 3))<br />    )<br /> )<br /> (defun        sub_achk_layer ()<br />    (alert "\n001")<br /> )<br /> (defun        sub_jchk_layer ()<br />    (alert "\n002")<br /> )<br /> (defun        sub_schk_layer ()<br />    (alert "\n003")<br /> )

测试后能识别启动命令，自己替换自定义函数部分，我换了触发条件，可以参考

linwanglian

hhh454 发表于 2022-8-4 01:03
测试后能识别启动命令，自己替换自定义函数部分，我换了触发条件，可以参考

非常感谢，我再试试。