为何下面代码无法得到close后的返回值

bloodtempt0

2.   (setq #layout (vla-get-activelayout #doc))
   
3.   (setq PrinterConfigPath (Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'Preferences) 'Files) 'PrinterConfigPath))
   
4.   
   
5.   (defun c:plotdiy/Form2#OnInitialize (/ DeviceNames StyleTableNames)
   
6.     (dcl-Control-SetList plotdiy/Form2/ComboBox1 (setq DeviceNames (vlax-safearray->list (vlax-variant-value (vla-GetPlotDeviceNames #layout)))))
   
7.     (dcl-Control-SetList plotdiy/Form2/ComboBox2 (setq StyleTableNames (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames #layout)))))
   
8.     (if (member "ToPDF DIY.pc3" DeviceNames)
   
9.       (dcl-Control-SetText plotdiy/Form2/ComboBox1 "ToPDF DIY.pc3")
   
10.       (dcl-Control-SetText plotdiy/Form2/ComboBox1 "DWG To PDF.pc3")
    
11.     )
    
12.     (if (member "白图黑框.ctb" StyleTableNames)
    
13.       (dcl-Control-SetText plotdiy/Form2/ComboBox2 "白图黑框.ctb")
    
14.       (dcl-Control-SetText plotdiy/Form2/ComboBox2 "monochrome.ctb")
    
15.     )
    
16.     (dcl-Control-SetText plotdiy/Form2/TextBox7
    
17.       (strcat
    
18.         (vla-item (vlax-get (vlax-create-object "WScript.Shell" ) 'SpecialFolders) "Desktop")
    
19.         "\\批量导PDF"
    
20.       )
    
21.     )
    
22.   )
    
23.   (defun c:plotdiy/Form2/TextButton1#OnClicked (/)
    
24.     (startapp "explorer"
    
25.       (strcat
    
26.         PrinterConfigPath
    
27.         "\"
    
28.         (dcl-Control-getText plotdiy/Form2/ComboBox1 "ToPDF DIY.pc3")
    
29.       )
    
30.     )
    
31.   )
    
32.   (defun c:plotdiy/Form2/TextButton2#OnClicked (/)
    
33.     (startapp "explorer"
    
34.       (strcat
    
35.         PrinterConfigPath
    
36.         "\\Plot Styles\"
    
37.         (dcl-Control-getText plotdiy/Form2/ComboBox2 "ToPDF DIY.pc3")
    
38.       )
    
39.     )
    
40.   )
    
41.   (defun c:plotdiy/Form2/TextButton3#OnClicked (/ fd)
    
42.     (if (setq fd (GetFolder "选择批量打印文件夹" 12))
    
43.       (dcl-Control-SetText plotdiy/Form2/TextBox7 fd)
    
44.     )
    
45.   )
    
46.   (defun c:plotdiy/Form2/TextButton4#OnClicked (/)
    
47.     (dcl-Form-Close plotdiy/Form2 1)
    
48.   )
    
49.   (defun c:plotdiy/Form2/TextButton5#OnClicked (/)
    
50.     (dcl-Form-Close plotdiy/Form2 3)
    
51.   )
    
52.   (defun c:plotdiy/Form2/TextButton6#OnClicked (/)
    
53.     (dcl-Form-Close plotdiy/Form2 4)
    
54.   )
    
55.   (defun c:plotdiy/Form2/OptionButton1#OnClicked (Value /)
    
56.     (dcl-Control-SetValue plotdiy/Form2/OptionButton2 0)
    
57.   )
    
58.   (defun c:plotdiy/Form2/OptionButton2#OnClicked (Value /)
    
59.     (dcl-Control-SetValue plotdiy/Form2/OptionButton1 0)
    
60.   )
    
61.   (defun c:plotdiy/Form2/OptionButton3#OnClicked (Value /)
    
62.     (dcl-Control-SetValue plotdiy/Form2/OptionButton4 0)
    
63.   )
    
64.   (defun c:plotdiy/Form2/OptionButton4#OnClicked (Value /)
    
65.     (dcl-Control-SetValue plotdiy/Form2/OptionButton3 0)
    
66.   )
    
67.   (Load_ODCL_Project "plotdiy" T nil nil)
    
68.   (setq Result (dcl-Form-Show plotdiy/Form2))
    
69.   (princ)
    
70.   (princ (itoa Result))

  (setq #layout (vla-get-activelayout #doc))<br />   (setq PrinterConfigPath (Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'Preferences) 'Files) 'PrinterConfigPath))<br />   <br />   (defun c:plotdiy/Form2#OnInitialize (/ DeviceNames StyleTableNames)<br />     (dcl-Control-SetList plotdiy/Form2/ComboBox1 (setq DeviceNames (vlax-safearray->list (vlax-variant-value (vla-GetPlotDeviceNames #layout)))))<br />     (dcl-Control-SetList plotdiy/Form2/ComboBox2 (setq StyleTableNames (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames #layout)))))<br />     (if (member "ToPDF DIY.pc3" DeviceNames)<br />       (dcl-Control-SetText plotdiy/Form2/ComboBox1 "ToPDF DIY.pc3")<br />       (dcl-Control-SetText plotdiy/Form2/ComboBox1 "DWG To PDF.pc3")<br />     )<br />     (if (member "白图黑框.ctb" StyleTableNames)<br />       (dcl-Control-SetText plotdiy/Form2/ComboBox2 "白图黑框.ctb")<br />       (dcl-Control-SetText plotdiy/Form2/ComboBox2 "monochrome.ctb")<br />     )<br />     (dcl-Control-SetText plotdiy/Form2/TextBox7<br />       (strcat <br />         (vla-item (vlax-get (vlax-create-object "WScript.Shell" ) 'SpecialFolders) "Desktop")<br />         "\\批量导PDF"<br />       )<br />     )<br />   )<br />   (defun c:plotdiy/Form2/TextButton1#OnClicked (/)<br />     (startapp "explorer" <br />       (strcat <br />         PrinterConfigPath <br />         "\"<br />         (dcl-Control-getText plotdiy/Form2/ComboBox1 "ToPDF DIY.pc3")<br />       )<br />     )<br />   )<br />   (defun c:plotdiy/Form2/TextButton2#OnClicked (/)<br />     (startapp "explorer" <br />       (strcat <br />         PrinterConfigPath <br />         "\\Plot Styles\"<br />         (dcl-Control-getText plotdiy/Form2/ComboBox2 "ToPDF DIY.pc3")<br />       )<br />     )<br />   )<br />   (defun c:plotdiy/Form2/TextButton3#OnClicked (/ fd)<br />     (if (setq fd (GetFolder "选择批量打印文件夹" 12))<br />       (dcl-Control-SetText plotdiy/Form2/TextBox7 fd)<br />     )<br />   )<br />   (defun c:plotdiy/Form2/TextButton4#OnClicked (/)<br />     (dcl-Form-Close plotdiy/Form2 1)<br />   )<br />   (defun c:plotdiy/Form2/TextButton5#OnClicked (/)<br />     (dcl-Form-Close plotdiy/Form2 3)<br />   )<br />   (defun c:plotdiy/Form2/TextButton6#OnClicked (/)<br />     (dcl-Form-Close plotdiy/Form2 4)<br />   )<br />   (defun c:plotdiy/Form2/OptionButton1#OnClicked (Value /)<br />     (dcl-Control-SetValue plotdiy/Form2/OptionButton2 0)<br />   )<br />   (defun c:plotdiy/Form2/OptionButton2#OnClicked (Value /)<br />     (dcl-Control-SetValue plotdiy/Form2/OptionButton1 0)<br />   )<br />   (defun c:plotdiy/Form2/OptionButton3#OnClicked (Value /)<br />     (dcl-Control-SetValue plotdiy/Form2/OptionButton4 0)<br />   )<br />   (defun c:plotdiy/Form2/OptionButton4#OnClicked (Value /)<br />     (dcl-Control-SetValue plotdiy/Form2/OptionButton3 0)<br />   )<br />   (Load_ODCL_Project "plotdiy" T nil nil)<br />   (setq Result (dcl-Form-Show plotdiy/Form2))<br />   (princ)<br />   (princ (itoa Result))