路過大神請幫忙一下，利用DCL批量打開工具條無法實現..

adslwang

如题我附上档案......
LISP是从ZZXXQQ版主于其中一个档案延伸修改，在此谢过.....

是这样的，因为我有许多工具条，一般都是点选打开，我想利用DCL的方式可以看到原有工具条的样态....
在附加的档案中如果单独执行TR100后输入   1+2+3   就可以将工具条连续的打开三个，可是加入DCL并给
一栏输入   1+2+3  输入之后确没有办法将工具条连续的打开三个，这是为什麽呢?我特别将那两栏以蓝色及
红色区别出来，请路过大神帮个忙一下，感谢.....
(defun TR100 (/ S0 S S1)
  (setq A "")
  (while (= A "")
     (setq A (getstring "\ 请工具列打开批号   [范例(1~10)：1+6+8+10]:")) ;;採用LISP该处单独输入就不会发生问题
     (setq A ATOOL10))                                                                                  ;;该处搭配DCL就会无法开启工具条

ZZXXQQ

2. (defun c:T10()
   
3.    (setvar "cmdecho" 0)
   
4.    (dcl_dia8b)
   
5.    (prin1)
   
6. )
   
7. (defun dcl_dia8b()
   
8. (if (> (setq dcl_id (load_dialog "dia8b")) 0) (progn
   
9.   (if (new_dialog "dia8b" dcl_id) (progn
   
10.    (def_dia8b)
    
11.    ;;          dcl对应命令       lisp副程式子命令名
    
12.    (action_tile "kimage1"   "(addtool 1)")
    
13.    (action_tile "kimage2"   "(addtool 2)")
    
14.    (action_tile "kimage3"   "(addtool 3)")
    
15.    (action_tile "kimage4"   "(addtool 4)")
    
16.    (action_tile "kimage5"   "(addtool 5)")
    
17.    (action_tile "kimage6"   "(addtool 6)")
    
18.    (action_tile "kimage7"   "(addtool 7)")
    
19.    (action_tile "kimage8"   "(addtool 8)")
    
20.    (action_tile "kimage9"   "(addtool 9)")
    
21.    (action_tile "kimage10" "(addtool 10)")
    
22.    (action_tile "kimage20" "(setq ddtype 20)") ;;输入批量载入使用
    
23.    (action_tile "accept" "(ok_dia8b)(done_dialog 1)")
    
24.    (setq dd (start_dialog))
    
25.   )
    
26.    (princ "\n无法显示对话框！")
    
27.   )
    
28.   (unload_dialog dcl_id)
    
29. )
    
30.   (princ "\n无法加载对话框！")
    
31. )
    
32. (if (= dd 1) (draw_dia8b))
    
33. )
    
34. (defun def_dia8b()
    
35.    ;;       dcl对应命令的四个命令钮
    
36. (setq i 0)
    
37. (repeat 10
    
38.   (show_sld (strcat "kimage" (itoa (setq i (1+ i)))) (strcat "AA" (itoa i)))
    
39. )
    
40. ;   (setq sldkey_list '("kimage1" "kimage2" "kimage3" "kimage4" "kimage5" "kimage6" "kimage7" "kimage8" "kimage9" "kimage10"))
    
41.    ;;       dcl中的.sld对应上方命令的四个幻灯片档
    
42. ;   (setq sld_list    '("AA1" "AA2" "AA3" "AA4" "AA5" "AA6" "AA7" "AA8" "AA9" "AA10"))
    
43. ;   (mapcar 'show_sld sldkey_list sld_list)
    
44. )
    
45. ;;dcl中的.sldw影像档转化程式
    
46. (defun show_sld (key sld)
    
47.    (setq x (dimx_tile key))
    
48.    (setq y (dimy_tile key))
    
49.    (start_image key)
    
50.    (fill_image 0 0 x y -2)
    
51.    (slide_image 0 0 x y sld)
    
52.    (end_image)
    
53. )
    
54. (defun addtool (n)
    
55. (mode_tile (strcat "kimage" (itoa n)) 1)
    
56. (setq ddtype n)
    
57. (setq ATOLL (get_tile "ATOOL10"))
    
58. (set_tile "ATOOL10" (strcat ATOOL (if (> (strlen ATOOL) 0) "+" "") (itoa n)))
    
59. )
    
60. (defun ok_dia8b() (setq ATOOL (get_tile "ATOOL10")))
    
61. (defun draw_dia8b()
    
62. (if (= (strlen ATOOL) 0)
    
63. (if (< ddtype 11)
    
64.   (alert (strcat "工具列第" (itoa ddtype) "组打开"))
    
65.   (TR100)
    
66. )
    
67. (progn
    
68.   (setq ATOOL (read(strcat "(" (vl-string-translate "+" " " ATOOL) ")")))
    
69.   (foreach s ATOOL (command "toolbar" (strcat "B" (itoa s) "项目工具条") "S"))
    
70. ))
    
71. )
    
72. (defun TR100 ()
    
73. (setq ATOOL "")
    
74. (while (= ATOOL "")
    
75.     (setq ATOOL (getstring "\ 请工具列打开批号   [范例(1~10)：1,6,8,10]:"))  ;;输入如:2/6/23…..
    
76. )
    
77. (setq ATOOL (strcat ATOOL ","))  ;;ATOOL = 1,5,6,
    
78. (initget 1)
    
79. (setq AL (+ (strlen ATOOL) 1))    ;; 1,5,6 = 5+1 =6个字母;;;;;;;;;;;;;;;;;;;
    
80. (setq N 1)
    
81. (setq S "")
    
82. (setq S0 0)
    
83. (while (/= N AL) ;(not (= N AL))    ;; 1 /= 6
    
84.    (if  (= (substr ATOOL N 1) ",")     ;;取出字串的第一个字元是否为 ,
    
85.     (progn
    
86.       (setq S0  (atoi S))  ;(setq s0 (+ s0 (atoi s)))
    
87.       (setq S1 (strcat "B" s "项目工具条"))
    
88.       (command "toolbar" S1 "S") ;;批量打开工具列  S=打开  H=关闭
    
89.       (setq S "")
    
90.     )
    
91.      (setq S (strcat S (substr ATOOL N 1))) ;; ""1
    
92.    )
    
93.    (setq N (+ N 1))
    
94.   )
    
95. )
    

(defun c:T10()<br />    (setvar "cmdecho" 0)<br />    (dcl_dia8b)<br />    (prin1)<br /> )<br /> (defun dcl_dia8b()<br /> (if (> (setq dcl_id (load_dialog "dia8b")) 0) (progn<br />   (if (new_dialog "dia8b" dcl_id) (progn<br />    (def_dia8b)<br />    ;;          dcl对应命令       lisp副程式子命令名<br />    (action_tile "kimage1"   "(addtool 1)")<br />    (action_tile "kimage2"   "(addtool 2)")<br />    (action_tile "kimage3"   "(addtool 3)")<br />    (action_tile "kimage4"   "(addtool 4)")<br />    (action_tile "kimage5"   "(addtool 5)")<br />    (action_tile "kimage6"   "(addtool 6)")<br />    (action_tile "kimage7"   "(addtool 7)")<br />    (action_tile "kimage8"   "(addtool 8)")<br />    (action_tile "kimage9"   "(addtool 9)")<br />    (action_tile "kimage10" "(addtool 10)")<br />    (action_tile "kimage20" "(setq ddtype 20)") ;;输入批量载入使用<br />    (action_tile "accept" "(ok_dia8b)(done_dialog 1)")<br />    (setq dd (start_dialog))<br />   )<br />    (princ "\n无法显示对话框！")<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= dd 1) (draw_dia8b))<br /> )<br /> (defun def_dia8b()<br />    ;;       dcl对应命令的四个命令钮<br /> (setq i 0)<br /> (repeat 10<br />   (show_sld (strcat "kimage" (itoa (setq i (1+ i)))) (strcat "AA" (itoa i)))<br /> )<br /> ;   (setq sldkey_list '("kimage1" "kimage2" "kimage3" "kimage4" "kimage5" "kimage6" "kimage7" "kimage8" "kimage9" "kimage10"))<br />    ;;       dcl中的.sld对应上方命令的四个幻灯片档<br /> ;   (setq sld_list    '("AA1" "AA2" "AA3" "AA4" "AA5" "AA6" "AA7" "AA8" "AA9" "AA10"))<br /> ;   (mapcar 'show_sld sldkey_list sld_list)<br /> )<br /> ;;dcl中的.sldw影像档转化程式<br /> (defun show_sld (key sld)<br />    (setq x (dimx_tile key))<br />    (setq y (dimy_tile key))<br />    (start_image key)<br />    (fill_image 0 0 x y -2)<br />    (slide_image 0 0 x y sld)<br />    (end_image)<br /> )<br /> (defun addtool (n)<br /> (mode_tile (strcat "kimage" (itoa n)) 1)<br /> (setq ddtype n)<br /> (setq ATOLL (get_tile "ATOOL10"))<br /> (set_tile "ATOOL10" (strcat ATOOL (if (> (strlen ATOOL) 0) "+" "") (itoa n)))<br /> )<br /> (defun ok_dia8b() (setq ATOOL (get_tile "ATOOL10")))<br /> (defun draw_dia8b()<br /> (if (= (strlen ATOOL) 0)<br /> (if (< ddtype 11)<br />   (alert (strcat "工具列第" (itoa ddtype) "组打开"))<br />   (TR100)<br /> )<br /> (progn<br />   (setq ATOOL (read(strcat "(" (vl-string-translate "+" " " ATOOL) ")")))<br />   (foreach s ATOOL (command "toolbar" (strcat "B" (itoa s) "项目工具条") "S"))<br /> ))<br /> )<br /> (defun TR100 ()<br /> (setq ATOOL "") <br /> (while (= ATOOL "") <br />     (setq ATOOL (getstring "\ 请工具列打开批号   [范例(1~10)：1,6,8,10]:"))  ;;输入如:2/6/23…..<br /> )<br /> (setq ATOOL (strcat ATOOL ","))  ;;ATOOL = 1,5,6,<br /> (initget 1) <br /> (setq AL (+ (strlen ATOOL) 1))    ;; 1,5,6 = 5+1 =6个字母;;;;;;;;;;;;;;;;;;;<br /> (setq N 1) <br /> (setq S "")<br /> (setq S0 0) <br /> (while (/= N AL) ;(not (= N AL))    ;; 1 /= 6<br />    (if  (= (substr ATOOL N 1) ",")     ;;取出字串的第一个字元是否为 ,<br />     (progn<br />       (setq S0  (atoi S))  ;(setq s0 (+ s0 (atoi s)))<br />       (setq S1 (strcat "B" s "项目工具条"))<br />       (command "toolbar" S1 "S") ;;批量打开工具列  S=打开  H=关闭<br />       (setq S "")<br />     )<br />      (setq S (strcat S (substr ATOOL N 1))) ;; ""1<br />    )<br />    (setq N (+ N 1))<br />   )<br /> )<br />

edata

比较明显的是(setq A ATOOL10))中变量写错了，没有10这个结尾，手机上看不太清楚。

adslwang

ZZXXQQ 发表于 2014-2-11 22:38

一直沒有意會到已經修改完成，還再執著於自給的自定義的工具條名稱，所以一直沒有實現成功，謝謝。
另外也謝謝EDATA的幫忙..

chbddzx12

学习了~~~~~~~~