使用OPENDCL的大侠，请帮忙看下程序

alwtyp

初学OPENDCL，照着例子做了一个程序，目前是想把相关信息写入词典，好供其它程序调用。可是怎么也执行不了。各们前辈，请帮忙看一下附件的程序问题出在哪里？

wwwliuyu

又是一个搞冲模的，忙你改了下，看下是不是你想要的。
(Defun C:Pri(/ )
  (Setvar "Cmdecho" 0)
  (Command "Opendcl")
  (Setvar "Cmdecho" 1)

  (Dcl_Project_Load "Pri.Odcl");加载对话框程序
  (Dcl_Form_Show Pri_Pressinfo);显示对话框界面

(Princ)
)


(Defun C:Pri_Pressinfo_Oninitialize (/)
(If (= (Vlax-Ldata-Get "Die-Info" "Bz-Mohao") Nil)
                           (Dcl_Control_Settext Pri_Pressinfo_Mjbh (Vl-Filename-Base (Getvar "Dwgname")))
                           (Dcl_Control_Settext Pri_Pressinfo_Mjbh (Vlax-Ldata-Get "Die-Info" "Bz-Mohao"))
                         
                       )
(If (= (Vlax-Ldata-Get "Die-Info" "Clhd") Nil)
                           (Dcl_Control_Settext Pri_Pressinfo_Clhd "0.20")
                           (Dcl_Control_Settext Pri_Pressinfo_Clhd (Vlax-Ldata-Get "Die-Info" "Clkd")))

  ;(c:pri_PressInfo_OK_OnClicked)
  )
(defun c:pri_PressInfo_OK_OnClicked (/)
  (Setq Clhd (Dcl_Control_Gettext Pri_Pressinfo_Clhd))
  (Setq Mjbh (Dcl_Control_Gettext Pri_Pressinfo_Mjbh))
  (Setq Clkd (Dcl_Control_Gettext Pri_Pressinfo_Clkd))
  (Setq Mjbj (Dcl_Control_Gettext Pri_Pressinfo_Mjbj))
  (Setq Dkjx (Dcl_Control_Gettext Pri_Pressinfo_Dkjx))
  (Setq Tljx (Dcl_Control_Gettext Pri_Pressinfo_Tljx))
  (C:Pri_Pressinfo_Cencel_Onclicked)
  (vlax-ldata-put "Die-Info" "Bz-Mohao" Mjbh)
  (vlax-ldata-put "Die-Info" "Clhd" Clhd)
  (vlax-ldata-put "Die-Info" "Clkd" Clkd)
  (vlax-ldata-put "Die-Info" "Mjbj" Mjbj)
  (vlax-ldata-put "Die-Info" "Dkjx" Dkjx)
  (vlax-ldata-put "Die-Info" "Tljx" Tljx)
  (dcl_Form_Close pri_PressInfo)
  )

(Defun C:Pri_Pressinfo_Cencel_Onclicked (/)
  (Dcl_Form_Close Pri_Pressinfo);关闭对话框界面
)

zhynt

2. 
   
3. (Defun C:Pri (/)
   
4.   (Setvar "Cmdecho" 0)
   
5.   (Command "Opendcl")
   
6.   (Setvar "Cmdecho" 1)
   
7. 
   
8.   (Dcl_Project_Load "Pri.Odcl")                ;加载对话框程序
   
9.   (Dcl_Form_Show Pri_Pressinfo)                ;显示对话框界面
   
10. 
    
11.   (Princ)
    
12. )
    
13. 
    
14. 
    
15. (Defun C:Pri_Pressinfo_Oninitialize (/)
    
16.   (If (= (Vlax-Ldata-Get "Die-Info" "Bz-Mohao") Nil)
    
17.     (Dcl_Control_Settext
    
18.       Pri_Pressinfo_Mjbh
    
19.       (Vl-Filename-Base (Getvar "Dwgname"))
    
20.     )
    
21.     (Dcl_Control_Settext
    
22.       Pri_Pressinfo_Mjbh
    
23.       (Vlax-Ldata-Get "Die-Info" "Bz-Mohao")
    
24.     )
    
25.   )
    
26.   (If (= (Vlax-Ldata-Get "Die-Info" "Clhd") Nil)
    
27.     (Dcl_Control_Settext Pri_Pressinfo_Clhd "0.20")
    
28.     (Dcl_Control_Settext
    
29.       Pri_Pressinfo_Clhd
    
30.       (Vlax-Ldata-Get "Die-Info" "Clkd")
    
31.     )
    
32.   )
    
33. )
    
34. 
    
35. (defun c:pri_PressInfo_OK_OnClicked (/)
    
36.   (C:Pri_Pressinfo_Cencel_Onclicked)
    
37.   (vlax-ldata-put
    
38.     "Die-Info"
    
39.     "Bz-Mohao"
    
40.     (Dcl_Control_Gettext Pri_Pressinfo_Mjbh)
    
41.   )
    
42.   (vlax-ldata-put
    
43.     "Die-Info"
    
44.     "Clhd"
    
45.     (Dcl_Control_Gettext Pri_Pressinfo_Clhd)
    
46.   )
    
47.   (vlax-ldata-put
    
48.     "Die-Info"
    
49.     "Clkd"
    
50.     (Dcl_Control_Gettext Pri_Pressinfo_Clkd)
    
51.   )
    
52.   (vlax-ldata-put
    
53.     "Die-Info"
    
54.     "Mjbj"
    
55.     (Dcl_Control_Gettext Pri_Pressinfo_Mjbj)
    
56.   )
    
57.   (vlax-ldata-put
    
58.     "Die-Info"
    
59.     "Dkjx"
    
60.     (Dcl_Control_Gettext Pri_Pressinfo_Dkjx)
    
61.   )
    
62.   (vlax-ldata-put
    
63.     "Die-Info"
    
64.     "Tljx"
    
65.     (Dcl_Control_Gettext Pri_Pressinfo_Tljx)
    
66.   )
    
67.   (dcl_Form_Close pri_PressInfo)
    
68. )
    
69. 
    
70. (Defun C:Pri_Pressinfo_Cencel_Onclicked        (/)
    
71.   (Dcl_Form_Close Pri_Pressinfo)        ;关闭对话框界面
    
72. )
    
73. 
    

<br /> (Defun C:Pri (/)<br />   (Setvar "Cmdecho" 0)<br />   (Command "Opendcl")<br />   (Setvar "Cmdecho" 1)<br /> <br />   (Dcl_Project_Load "Pri.Odcl")                ;加载对话框程序<br />   (Dcl_Form_Show Pri_Pressinfo)                ;显示对话框界面<br /> <br />   (Princ)<br /> )<br /> <br /> <br /> (Defun C:Pri_Pressinfo_Oninitialize (/)<br />   (If (= (Vlax-Ldata-Get "Die-Info" "Bz-Mohao") Nil)<br />     (Dcl_Control_Settext<br />       Pri_Pressinfo_Mjbh<br />       (Vl-Filename-Base (Getvar "Dwgname"))<br />     )<br />     (Dcl_Control_Settext<br />       Pri_Pressinfo_Mjbh<br />       (Vlax-Ldata-Get "Die-Info" "Bz-Mohao")<br />     )<br />   )<br />   (If (= (Vlax-Ldata-Get "Die-Info" "Clhd") Nil)<br />     (Dcl_Control_Settext Pri_Pressinfo_Clhd "0.20")<br />     (Dcl_Control_Settext<br />       Pri_Pressinfo_Clhd<br />       (Vlax-Ldata-Get "Die-Info" "Clkd")<br />     )<br />   )<br /> )<br /> <br /> (defun c:pri_PressInfo_OK_OnClicked (/)<br />   (C:Pri_Pressinfo_Cencel_Onclicked)<br />   (vlax-ldata-put<br />     "Die-Info"<br />     "Bz-Mohao"<br />     (Dcl_Control_Gettext Pri_Pressinfo_Mjbh)<br />   )<br />   (vlax-ldata-put<br />     "Die-Info"<br />     "Clhd"<br />     (Dcl_Control_Gettext Pri_Pressinfo_Clhd)<br />   )<br />   (vlax-ldata-put<br />     "Die-Info"<br />     "Clkd"<br />     (Dcl_Control_Gettext Pri_Pressinfo_Clkd)<br />   )<br />   (vlax-ldata-put<br />     "Die-Info"<br />     "Mjbj"<br />     (Dcl_Control_Gettext Pri_Pressinfo_Mjbj)<br />   )<br />   (vlax-ldata-put<br />     "Die-Info"<br />     "Dkjx"<br />     (Dcl_Control_Gettext Pri_Pressinfo_Dkjx)<br />   )<br />   (vlax-ldata-put<br />     "Die-Info"<br />     "Tljx"<br />     (Dcl_Control_Gettext Pri_Pressinfo_Tljx)<br />   )<br />   (dcl_Form_Close pri_PressInfo)<br /> )<br /> <br /> (Defun C:Pri_Pressinfo_Cencel_Onclicked        (/)<br />   (Dcl_Form_Close Pri_Pressinfo)        ;关闭对话框界面<br /> )<br /> <br />

alwtyp

謝謝兩位。萬分感謝