请教该如何使lsp带入对话框中的值?(已解決)

lincctw_ccl

请教该如何使lsp带入对话框中的值?谢谢!!

lincctw_ccl

自顶!!
有人能帮忙看一下错误的地方吗?
谢谢!!

xianaihua

2. (defun c:tt()
   
3.    (dcl_dieside)  ;;加载dcl对话框子程序
   
4.    (prin1)
   
5. )
   
6. (defun dcl_dieside (/ dcl_id keynamelst vallst what)
   
7.   (defun get_data ()
   
8.     (mapcar (function (lambda (x y) (set x (atof (get_tile y)))))
   
9.       varnamelst
   
10.       keynamelst
    
11.     ) ;_ 结束mapcar
    
12.   ) ;_ 结束defun
    
13.   ;;对话框子程序
    
14.   (setq dcl_id (load_dialog "dieside"))
    
15.   ;;启动dieside dcl 档案
    
16.   (new_dialog "dieside" dcl_id)
    
17.   ;;启动dieside对话框
    
18.   (setq  keynamelst
    
19.    '("layt#" "platexl#" "plt1#" "plt2#" "plt3#" "plt4#" "plt5#" "plt6#" "plt7#" "plt8#")
    
20.   vallst '("0.5" "300" "50.0" "15.0" "18.0" "11.0" "25.0"  "25.0" "15.0" "55.0")
    
21.   varnamelst
    
22.    '(layt platexl plt1 plt2 plt3 plt4 plt5 plt6 plt7 plt8)
    
23.   ) ;_ 结束setq
    
24.   (mapcar (function set_tile) keynamelst vallst);初始化变量（窗体文本框）
    
25.   (action_tile "a10000" "(get_data)(done_dialog 1)")
    
26.   (action_tile "cancel" "(done_dialog 0)")
    
27. 
    
28.   (setq what (start_dialog))
    
29.   (cond  ((= what 1)
    
30.    (c:drawdiedide)
    
31.   )
    
32.   (t (alert "未完成任何动作!!!"))
    
33.   ) ;_ 结束cond
    
34.   (unload_dialog dcl_id)
    
35. ) ;_ 结束defun
    
36. (defun c:drawdiedide ()
    
37.   (setvar "osmode" 0)
    
38.   (setvar "blipmode" 0)
    
39.   (setvar "OrthoMode" 0)
    
40.   (setvar "cmdecho" 0)
    
41.   (setq basept (getpoint "\n断面图放置点： "))
    
42.   (setq drawpt (list (car basept) (cadr basept)))
    
43.   (setq plt5recpt (list (+ (car basept) platexl) (+ (cadr basept) plt5)))
    
44.   (command "_rectang" drawpt plt5recpt)
    
45.   (prin1)
    
46. ) ;_ 结束defun
    
47. 
    
48. 
    
49. 
    
50. 
    
51. 
    
52. 
    

(defun c:tt()<br />    (dcl_dieside)  ;;加载dcl对话框子程序<br />    (prin1)<br /> )<br /> (defun dcl_dieside (/ dcl_id keynamelst vallst what)<br />   (defun get_data ()<br />     (mapcar (function (lambda (x y) (set x (atof (get_tile y)))))<br />       varnamelst<br />       keynamelst<br />     ) ;_ 结束mapcar<br />   ) ;_ 结束defun<br />   ;;对话框子程序<br />   (setq dcl_id (load_dialog "dieside"))<br />   ;;启动dieside dcl 档案<br />   (new_dialog "dieside" dcl_id)<br />   ;;启动dieside对话框<br />   (setq  keynamelst<br />    '("layt#" "platexl#" "plt1#" "plt2#" "plt3#" "plt4#" "plt5#" "plt6#" "plt7#" "plt8#")<br />   vallst '("0.5" "300" "50.0" "15.0" "18.0" "11.0" "25.0"  "25.0" "15.0" "55.0")<br />   varnamelst<br />    '(layt platexl plt1 plt2 plt3 plt4 plt5 plt6 plt7 plt8)<br />   ) ;_ 结束setq<br />   (mapcar (function set_tile) keynamelst vallst);初始化变量（窗体文本框）<br />   (action_tile "a10000" "(get_data)(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br /> <br />   (setq what (start_dialog))<br />   (cond  ((= what 1)<br />    (c:drawdiedide)<br />   )<br />   (t (alert "未完成任何动作!!!"))<br />   ) ;_ 结束cond<br />   (unload_dialog dcl_id)<br /> ) ;_ 结束defun<br /> (defun c:drawdiedide ()<br />   (setvar "osmode" 0)<br />   (setvar "blipmode" 0)<br />   (setvar "OrthoMode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq basept (getpoint "\n断面图放置点： "))<br />   (setq drawpt (list (car basept) (cadr basept)))<br />   (setq plt5recpt (list (+ (car basept) platexl) (+ (cadr basept) plt5)))<br />   (command "_rectang" drawpt plt5recpt)<br />   (prin1)<br /> ) ;_ 结束defun<br /> <br /> <br /> <br /> <br /> <br /> <br />

你的无效语句太多！！

lincctw_ccl

xianaihua 发表于 2011-11-22 11:21
你的无效语句太多！！

谢谢指导!!
我是依书上范例改来的!
第一次做这种型态的dcl