修改了一个DCL也合成lsp了，有些问题

梦想家-DING

源码来自明经;
根据论坛修改了一个DCL也合成lsp了，但是按钮各方面无效，要怎样才能加入lsp点击按钮或输入命令执行呢，有没有前辈能整个例子学习一下

liuhe

先学会 hello world  不好么

xj6019

链接：https://pan.baidu.com/s/1hG6JinB70NIp2E30LxqzJQ?pwd=9b65
提取码：9b65

飞雪神光

1. (defun c:tt(/ dcl_xssl_dia getpt makexssldcl xy)
   
2.         (defun makexssldcl  (/ lst_str str file f)
   
3.                 (setq lst_str '(
   
4.                                                                                  "xssl:dialog {"
   
5.                                                                                  "    label = \"面板消失示例\" ;"
   
6.                                                                                  "    :column {"
   
7.                                                                                  "        :row {"
   
8.                                                                                  "            :button {"
   
9.                                                                                  "                key = \"b1\" ;"
   
10.                                                                                  "                label = \"拾取坐标\" ;"
    
11.                                                                                  "            }"
    
12.                                                                                  "            :edit_box {"
    
13.                                                                                  "                alignment = top ;"
    
14.                                                                                  "                edit_width = 20 ;"
    
15.                                                                                  "                is_enabled=false;"
    
16.                                                                                  "                key = \"e1\" ;"
    
17.                                                                                  "            }"
    
18.                                                                                  "        }"
    
19.                                                                                  "    }"
    
20.                                                                                  "    :button {"
    
21.                                                                                  "        is_cancel = true ;"
    
22.                                                                                  "        key = \"cancel\" ;"
    
23.                                                                                  "        label = \"确定\" ;"
    
24.                                                                                  "    }"
    
25.                                                                                  "}"
    
26.                                                                          )
    
27.                 )
    
28.                 (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
29.                 (setq f (open file "w"))
    
30.                 (foreach str lst_str
    
31.                         (princ "\n" f)
    
32.                         (princ str f)
    
33.                 )       
    
34.                 (close f)
    
35.                 file
    
36.         )
    
37.         (defun cs(a b c d e f /)
    
38.                         (print (list a b c d e f ))
    
39.                 )
    
40.                
    
41.         (defun getpt( /)
    
42.                 (setq
    
43.                         pt(getpoint "\n指定点:")
    
44.                         x(rtos (car pt)2 3)
    
45.                         y(rtos (cadr pt)2 3)
    
46.                         xy(strcat x","y)
    
47.                 )
    
48.                 (command "circle" pt 50)
    
49.                 (setq ssa(ssadd (entlast) ssa))
    
50.                 (set_tile "e1" xy)
    
51.                 (dcl_xssl_dia)
    
52.         )
    
53.         (setq ssa(ssadd))
    
54.         (defun dcl_xssl_dia()
    
55.                 (setq xssl_dia(makexssldcl))
    
56.                 (setq dcl_id(load_dialog xssl_dia))
    
57.                 (new_dialog "xssl" dcl_id"" (cond (jypt) ( '(-1 -1) )))
    
58.                 (or xy (setq xy ""))
    
59.                 (set_tile "e1" xy)
    
60.                 (action_tile "cancel""(setq jypt(done_dialog -1))")
    
61.                 (action_tile "b1""(cs $key $VALUE $DATA $REASON $X $Y)(setq jypt(done_dialog 1))")
    
62.                 (setq id(start_dialog))
    
63.                 (unload_dialog dcl_id)
    
64.                 (vl-file-delete xssl_dia)
    
65.                 (cond
    
66.                         ((= id 1)
    
67.                                 (getpt)
    
68.                         )
    
69.                         ((= id -1)
    
70.                                 (vl-cmdf "erase" ssa "")
    
71.                                 (princ"\n退出程序!")
    
72.                         )
    
73.                 )
    
74.         )
    
75.         (dcl_xssl_dia)
    
76.         (princ)
    
77. )

(defun c:tt(/ dcl_xssl_dia getpt makexssldcl xy)<br />         (defun makexssldcl  (/ lst_str str file f)<br />                 (setq lst_str '(<br />                                                                                  "xssl:dialog {"<br />                                                                                  "    label = \"面板消失示例\" ;"<br />                                                                                  "    :column {"<br />                                                                                  "        :row {"<br />                                                                                  "            :button {"<br />                                                                                  "                key = \"b1\" ;"<br />                                                                                  "                label = \"拾取坐标\" ;"<br />                                                                                  "            }"<br />                                                                                  "            :edit_box {"<br />                                                                                  "                alignment = top ;"<br />                                                                                  "                edit_width = 20 ;"<br />                                                                                  "                is_enabled=false;"<br />                                                                                  "                key = \"e1\" ;"<br />                                                                                  "            }"<br />                                                                                  "        }"<br />                                                                                  "    }"<br />                                                                                  "    :button {"<br />                                                                                  "        is_cancel = true ;"<br />                                                                                  "        key = \"cancel\" ;"<br />                                                                                  "        label = \"确定\" ;"<br />                                                                                  "    }"<br />                                                                                  "}"<br />                                                                          )<br />                 )<br />                 (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />                 (setq f (open file "w"))<br />                 (foreach str lst_str<br />                         (princ "\n" f)<br />                         (princ str f)<br />                 )        <br />                 (close f)<br />                 file<br />         )<br />         (defun cs(a b c d e f /)<br />                         (print (list a b c d e f ))<br />                 )<br />                 <br />         (defun getpt( /)<br />                 (setq <br />                         pt(getpoint "\n指定点:")<br />                         x(rtos (car pt)2 3)<br />                         y(rtos (cadr pt)2 3)<br />                         xy(strcat x","y)<br />                 )<br />                 (command "circle" pt 50)<br />                 (setq ssa(ssadd (entlast) ssa))<br />                 (set_tile "e1" xy)<br />                 (dcl_xssl_dia)<br />         )<br />         (setq ssa(ssadd))<br />         (defun dcl_xssl_dia()<br />                 (setq xssl_dia(makexssldcl))<br />                 (setq dcl_id(load_dialog xssl_dia))<br />                 (new_dialog "xssl" dcl_id"" (cond (jypt) ( '(-1 -1) )))<br />                 (or xy (setq xy ""))<br />                 (set_tile "e1" xy)<br />                 (action_tile "cancel""(setq jypt(done_dialog -1))")<br />                 (action_tile "b1""(cs $key $VALUE $DATA $REASON $X $Y)(setq jypt(done_dialog 1))")<br />                 (setq id(start_dialog))<br />                 (unload_dialog dcl_id)<br />                 (vl-file-delete xssl_dia)<br />                 (cond <br />                         ((= id 1)<br />                                 (getpt)<br />                         )<br />                         ((= id -1)<br />                                 (vl-cmdf "erase" ssa "")<br />                                 (princ"\n退出程序!")<br />                         )<br />                 )<br />         )<br />         (dcl_xssl_dia)<br />         (princ)<br /> )

萧●﹏●明

楼上说的对先学会 hello world ，不然修改现成的没什么意义

hhh454

你这个只是把dcl，改成lsp，并没有关联的部分，就是点击控件，执行对应lsp，也就是一个萝卜一个坑

bonny

我会(print "\nHello Girls!")