ODCL奇怪的出错

alwtyp

以下是我借鉴秋枫的批打程序，做的一个ODCL界面的程序。程序可以正常运行， 不过有一个奇怪的错误。
程序的要求是先取得要打印的图框(块)名称，这里选得的图框的种类，在这里不管怎么点都可以正常取得块名。
然后要选取要打印的图框，这一步也OK,可以得到提示选了多少个指定的图框。
问题来了：如果这时如何想改变图框块的名称，再回去点"取得图框名称“，程序就会出错：错误: 函数错误: "XX"。XX就是文本框里的内容.
请各位高手帮忙看看，问题出在哪里

更新一下附件

2. ;批量打印
   
3. (Defun C:bp (/)
   
4.   (Vl-Load-Com)
   
5.   (Setvar "Cmdecho" 0)
   
6.   (Command "Opendcl")
   
7.   (Setvar "Cmdecho" 1)
   
8.   (Dcl_Project_Load "BPlot.Odcl");加载对话框程序
   
9.   (Setq Docontinue T)
   
10.   (While Docontinue
    
11.     (Setq Intresult (Dcl_Form_Show Bplot_Batchplot))
    
12.     (Cond
    
13.      ((= Intresult 1) (Setq Docontinue Nil))
    
14.      ((= Intresult 2) (Setq Docontinue Nil))
    
15.      ((= Intresult 3) (FrameName))
    
16.      ((= Intresult 4) (RangeNum)))  )
    
17.   (Princ) )
    
18. 
    
19. (Defun C:Bplot_BatchPlot_PickFrameName_Onclicked (/)
    
20.      (Dcl_Form_Close BPlot_BatchPlot 3) )
    
21. 
    
22. (Defun C:BPlot_BatchPlot_Range_OnClicked (/)
    
23.      (Setq FrameName (Dcl_Control_Gettext BPlot_BatchPlot_FrameName))
    
24.      (Dcl_Form_Close BPlot_BatchPlot 4) )
    
25. 
    
26. ;对话框默认界面
    
27. (Defun C:BPlot_BatchPlot_OnInitialize(/)
    
28.   (If (/= Blockname Nil)
    
29.       (Dcl_Control_Settext BPlot_BatchPlot_FrameName Blockname)
    
30.       (Dcl_Control_Settext BPlot_BatchPlot_FrameName (Dcl_Control_Gettext BPlot_BatchPlot_FrameName)))
    
31.   (If (= FrameNum Nil)
    
32.       (Dcl_Control_Setcaption BPlot_BatchPlot_Display (Strcat "您一共选取了" (Itoa FrameNum) "个图框"))
    
33.       (Dcl_Control_Setcaption BPlot_BatchPlot_Display "您未按规则选取图框"))
    
34. )
    
35. 
    
36. ;取得块名
    
37. (Defun Framename (/ SS Lst Lst2 M A)
    
38.   (Setq Ss (Ssget '((0 . "Insert")))
    
39.   Lst Nil Lst2 Nil)
    
40.   (Cond ((Not Ss) (Setq Ss Nil  Docontinue T))
    
41.         ((Vl-Catch-All-Error-P Ss) (Setq Ss Nil  Docontinue Nil))  )
    
42.   (Repeat (Setq M (Sslength Ss))
    
43.           (Setq Lst (Cons (Cdr (Assoc 2 (Entget (Ssname Ss (Setq M (1- M)))))) Lst))  )   
    
44.   (While (Setq A (Car Lst) Lst2 (Cons A Lst2) Lst (Vl-Remove A Lst)))
    
45.   (Setq Blockname (Vl-String-Right-Trim "," (Apply 'Strcat (Mapcar '(Lambda (X) (Strcat X ",")) Lst2))))
    
46. )
    
47. 
    
48. (Defun RangeNum (/)
    
49.   (If (Setq Block (Ssget (List '(-4 . "<and") '(0 . "Insert") (Cons 2 FrameName) '(-4 . "and>"))))
    
50.       (Setq FrameNum (Sslength Block))
    
51.       (Setq FrameNum Nil)) )
    
52.         
    
53. ;按下确定
    
54. (Defun C:BPlot_BatchPlot_OK_OnClicked (/)
    
55.   (Setq N 0 K 0 Oldlist Nil)
    
56.   (Setq ShunXu (dcl_OptionList_GetCurSel BPlot_BatchPlot_From))
    
57.   (Setq FuMian (dcl_OptionList_GetCurSel BPlot_BatchPlot_Page))
    
58.   (cond ((= FuMian 0) (setq Page "A4"));决定使用多大的纸张，暂不可用
    
59.         ((= FuMian 1) (setq Page "A3")))
    
60.   (Dcl_Form_Close BPlot_BatchPlot 1);关闭对话框
    
61.    (Repeat (Sslength Block)
    
62.      (Setq Ent (Entget (Ssname Block N)))
    
63.      (Setq Inspt (Cdr (Assoc 10 Ent)))
    
64.      (Setq Tuyuan (Cdr (Assoc -1 Ent))
    
65.      Signlist (List (Cons Tuyuan Inspt))
    
66.      Oldlist (Append Oldlist Signlist))
    
67.      (Setq N (1+ N))
    
68.   );Repeat End
    
69.   ;以下排序代码修改自秋枫BPLOT
    
70.    (Cond
    
71.       ((= Shunxu 0) (Setq Newlist (Vl-Sort Oldlist '(Lambda (E1 E2 / Rt X1 Y1 X2 Y2 Vs);Z形排列
    
72.                                          (Setq Y1 (Caddr E1)) (Setq Y2 (Caddr E2)) (Setq X1 (Cadr E1)) (Setq X2 (Cadr E2))
    
73.                  (Setq Rt (> Y1 Y2));优先Y坐标比较，大的话在前
    
74.                                          (If (And (Null Rt) (= Y1 Y2));Y坐标相同时，比较x坐标，小的话在前
    
75.                                    (Setq Rt (< X1 X2)) )
    
76.                                          Rt))))
    
77.       ((= Shunxu 1) (Setq Newlist (Vl-Sort Oldlist '(Lambda (E1 E2 / Rt X1 Y1 X2 Y2 Vs);N形排列
    
78.                  (Setq Y1 (Caddr E1)) (Setq Y2 (Caddr E2)) (Setq X1 (Cadr E1)) (Setq X2 (Cadr E2))
    
79.                                          (Setq Rt (< X1 X2));优先X坐标比较，小的话在前
    
80.                                          (If (And (Null Rt) (= X1 X2));当X坐标相同时，比较y坐标，大的话在前
    
81.                                    (Setq Rt (> Y1 Y2)) )
    
82.                                          Rt)))) );Cond End 图块框的插入点坐标排序完成
    
83.    (Repeat (Length Newlist)
    
84. ;|STRAT|;(Vla-Getboundingbox (Vlax-Ename->Vla-Object (Cdr (Assoc -1 (Entget (Car (Nth M Newlist)))))) 'Minpoint 'Maxpoint)
    
85.                 (Setq Ptmax (Trans (Vlax-Safearray->List Maxpoint) 0 1)
    
86.                       Ptmin (Trans (Vlax-Safearray->List Minpoint) 0 1));|END| 此段代码为取得图框的对角点|;
    
87. ;打印机不可用，用TEXT代替测试
    
88.      (Vl-Cmdf ".Text" "S" "Complex" "J" "Mc" Ptmin "20" "0" (Itoa K))
    
89. ;;;     (If (> (Abs (- (Car Ptmin) (Car Ptmax))) (Abs (- (Cadr Ptmin) (Cadr Ptmax))));确定横向还是纵向
    
90. ;;;         (Setq Pl "L")
    
91. ;;;         (Setq Pl "P"))
    
92. ;;;     (Vl-Cmdf ".Plot" "Yes" "" "Default Windows SYStem Printer" Page "M" Pl "N" "W" Ptmin Ptmax "F" "" "Yes" "Monochrome.ctb" "Yes" "" "" "" "")
    
93.      (Setq K (1+ K))
    
94.    );Repeat End
    
95.   (Dcl_Project_Unload "BPlot");释放对话框
    
96. )
    
97. 
    
98. ;按下取消
    
99. (Defun C:BPlot_BatchPlot_Cancel_Onclicked (/)
    
100.   (Dcl_Form_Close BPlot_BatchPlot 1);关闭对话框
     
101.   (Dcl_Project_Unload "BPlot");释放对话框
     
102. )
     

;批量打印<br /> (Defun C:bp (/)<br />   (Vl-Load-Com)<br />   (Setvar "Cmdecho" 0)<br />   (Command "Opendcl")<br />   (Setvar "Cmdecho" 1)<br />   (Dcl_Project_Load "BPlot.Odcl");加载对话框程序<br />   (Setq Docontinue T)<br />   (While Docontinue<br />     (Setq Intresult (Dcl_Form_Show Bplot_Batchplot))<br />     (Cond<br />      ((= Intresult 1) (Setq Docontinue Nil))<br />      ((= Intresult 2) (Setq Docontinue Nil))<br />      ((= Intresult 3) (FrameName))<br />      ((= Intresult 4) (RangeNum)))  )<br />   (Princ) )<br /> <br /> (Defun C:Bplot_BatchPlot_PickFrameName_Onclicked (/)<br />      (Dcl_Form_Close BPlot_BatchPlot 3) )<br /> <br /> (Defun C:BPlot_BatchPlot_Range_OnClicked (/)<br />      (Setq FrameName (Dcl_Control_Gettext BPlot_BatchPlot_FrameName))<br />      (Dcl_Form_Close BPlot_BatchPlot 4) )<br /> <br /> ;对话框默认界面<br /> (Defun C:BPlot_BatchPlot_OnInitialize(/) <br />   (If (/= Blockname Nil)<br />       (Dcl_Control_Settext BPlot_BatchPlot_FrameName Blockname)<br />       (Dcl_Control_Settext BPlot_BatchPlot_FrameName (Dcl_Control_Gettext BPlot_BatchPlot_FrameName)))<br />   (If (= FrameNum Nil)<br />       (Dcl_Control_Setcaption BPlot_BatchPlot_Display (Strcat "您一共选取了" (Itoa FrameNum) "个图框"))<br />       (Dcl_Control_Setcaption BPlot_BatchPlot_Display "您未按规则选取图框"))<br /> )<br /> <br /> ;取得块名<br /> (Defun Framename (/ SS Lst Lst2 M A)<br />   (Setq Ss (Ssget '((0 . "Insert")))<br />   Lst Nil Lst2 Nil)<br />   (Cond ((Not Ss) (Setq Ss Nil  Docontinue T))<br />         ((Vl-Catch-All-Error-P Ss) (Setq Ss Nil  Docontinue Nil))  )<br />   (Repeat (Setq M (Sslength Ss))<br />           (Setq Lst (Cons (Cdr (Assoc 2 (Entget (Ssname Ss (Setq M (1- M)))))) Lst))  )    <br />   (While (Setq A (Car Lst) Lst2 (Cons A Lst2) Lst (Vl-Remove A Lst)))<br />   (Setq Blockname (Vl-String-Right-Trim "," (Apply 'Strcat (Mapcar '(Lambda (X) (Strcat X ",")) Lst2))))<br /> )<br /> <br /> (Defun RangeNum (/)<br />   (If (Setq Block (Ssget (List '(-4 . "<and") '(0 . "Insert") (Cons 2 FrameName) '(-4 . "and>"))))<br />       (Setq FrameNum (Sslength Block))<br />       (Setq FrameNum Nil)) )<br />         <br /> ;按下确定<br /> (Defun C:BPlot_BatchPlot_OK_OnClicked (/)<br />   (Setq N 0 K 0 Oldlist Nil)<br />   (Setq ShunXu (dcl_OptionList_GetCurSel BPlot_BatchPlot_From))<br />   (Setq FuMian (dcl_OptionList_GetCurSel BPlot_BatchPlot_Page))<br />   (cond ((= FuMian 0) (setq Page "A4"));决定使用多大的纸张，暂不可用<br />         ((= FuMian 1) (setq Page "A3")))<br />   (Dcl_Form_Close BPlot_BatchPlot 1);关闭对话框<br />    (Repeat (Sslength Block)<br />      (Setq Ent (Entget (Ssname Block N)))<br />      (Setq Inspt (Cdr (Assoc 10 Ent)))<br />      (Setq Tuyuan (Cdr (Assoc -1 Ent))<br />      Signlist (List (Cons Tuyuan Inspt))<br />      Oldlist (Append Oldlist Signlist))<br />      (Setq N (1+ N))<br />   );Repeat End<br />   ;以下排序代码修改自秋枫BPLOT<br />    (Cond<br />       ((= Shunxu 0) (Setq Newlist (Vl-Sort Oldlist '(Lambda (E1 E2 / Rt X1 Y1 X2 Y2 Vs);Z形排列<br />                                          (Setq Y1 (Caddr E1)) (Setq Y2 (Caddr E2)) (Setq X1 (Cadr E1)) (Setq X2 (Cadr E2))<br />                  (Setq Rt (> Y1 Y2));优先Y坐标比较，大的话在前<br />                                          (If (And (Null Rt) (= Y1 Y2));Y坐标相同时，比较x坐标，小的话在前<br />                                    (Setq Rt (< X1 X2)) )<br />                                          Rt))))<br />       ((= Shunxu 1) (Setq Newlist (Vl-Sort Oldlist '(Lambda (E1 E2 / Rt X1 Y1 X2 Y2 Vs);N形排列<br />                  (Setq Y1 (Caddr E1)) (Setq Y2 (Caddr E2)) (Setq X1 (Cadr E1)) (Setq X2 (Cadr E2))<br />                                          (Setq Rt (< X1 X2));优先X坐标比较，小的话在前<br />                                          (If (And (Null Rt) (= X1 X2));当X坐标相同时，比较y坐标，大的话在前<br />                                    (Setq Rt (> Y1 Y2)) )<br />                                          Rt)))) );Cond End 图块框的插入点坐标排序完成<br />    (Repeat (Length Newlist)<br /> ;|STRAT|;(Vla-Getboundingbox (Vlax-Ename->Vla-Object (Cdr (Assoc -1 (Entget (Car (Nth M Newlist)))))) 'Minpoint 'Maxpoint) <br />                 (Setq Ptmax (Trans (Vlax-Safearray->List Maxpoint) 0 1) <br />                       Ptmin (Trans (Vlax-Safearray->List Minpoint) 0 1));|END| 此段代码为取得图框的对角点|;<br /> ;打印机不可用，用TEXT代替测试<br />      (Vl-Cmdf ".Text" "S" "Complex" "J" "Mc" Ptmin "20" "0" (Itoa K))<br /> ;;;     (If (> (Abs (- (Car Ptmin) (Car Ptmax))) (Abs (- (Cadr Ptmin) (Cadr Ptmax))));确定横向还是纵向<br /> ;;;         (Setq Pl "L")<br /> ;;;         (Setq Pl "P"))<br /> ;;;     (Vl-Cmdf ".Plot" "Yes" "" "Default Windows SYStem Printer" Page "M" Pl "N" "W" Ptmin Ptmax "F" "" "Yes" "Monochrome.ctb" "Yes" "" "" "" "")<br />      (Setq K (1+ K))<br />    );Repeat End<br />   (Dcl_Project_Unload "BPlot");释放对话框<br /> )<br /> <br /> ;按下取消<br /> (Defun C:BPlot_BatchPlot_Cancel_Onclicked (/)<br />   (Dcl_Form_Close BPlot_BatchPlot 1);关闭对话框<br />   (Dcl_Project_Unload "BPlot");释放对话框<br /> )<br />

alwtyp

自己顶一下

alwtyp

再顶一下，请各位高手帮忙看看。虽然可以使用，但还是不爽