这个地址该如何改？

lucas_3333

请教大师们，这个对话框，指定SLD文件位置用的绝对位置，

1. (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" )

(strcat "E:\\Program Files\\<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 2010\\Support\\test\\" a ".sld" )

为什么仍然显示不出幻灯片？　如果想要相对地址（只要sld放在支持路径下）那改如何改？

1.   (if (null *fb_user*)
   
2.     (setq *fb_user* (mapcar 'itoa '(1 0 1 0)))
   
3.     ) ;_ end of if
   
4. 
   
5. (defun fbdia (/ radio dcl_id path dcl)
   
6.   (setq  radio '("radio1" "radio2" "radioA" "radioB" )
   
7.   path  (getenv "temp")
   
8.   )
   
9.   
   
10.   ('((f lst /)
    
11.      (setq f (open f "w"))
    
12.      (mapcar ''(($) (write-line $ f)) lst)
    
13.      (close f)
    
14.      (setq f nil)
    
15.      )
    
16.     (setq dcl (strcat path "\\tmp.dcl"))
    
17.     '("icon_fbox_img : image {"
    
18.       "        color                   = 0;"
    
19.       "        width                   = 40;"
    
20.       "        aspect_ratio            = 0.75;"
    
21.       "        allow_accept            = true;"
    
22.       "        fixed_height            = true;"
    
23.       "        fixed_width             = true;"
    
24.       "}"
    
25.       ""
    
26.       ""
    
27.       "fbox: dialog {"
    
28.       "\tlabel=\"Fillet Box settings\";"
    
29.       "        key = \"dcl_title\";"
    
30.       ""
    
31.       ": paragraph{"
    
32.       "        : text_part{"
    
33.       "\tlabel =\"Choose options \";"
    
34.       "\t//alignment = centered;"
    
35.       "}"
    
36.       "  }      "
    
37.       "        :column {"
    
38.       "                :row { "
    
39.       "                    :column {"
    
40.      
    
41.       "                      :icon_fbox_img {key = \"SH-CENTRE\";}"
    
42.       "                    }"
    
43.       "                    :column {             "
    
44.       
    
45.       "                      :icon_fbox_img {key = \"SH-EDGE\";}"
    
46.       "                    }"
    
47.       "                 }"
    
48.       "}"
    
49.       " :column{fixed_width=true;//alignment=centered;"
    
50.       " :boxed_radio_row{label=\"Draw method\";"
    
51.       "\t:radio_button{label=\"Pick centre                                         \";key=\"radio1\";}//value=\"0\";"
    
52.       "        :radio_button{label=\"Pick side                                       \";key=\"radio2\";}//value=\"1\""
    
53.       "}"
    
54.       "}"
    
55.       "           :column {"
    
56.       "                 :row { "
    
57.       "                    :column {"
    
58.       
    
59.       "                      :icon_fbox_img {key = \"SH-P2P\";}"
    
60.       "                    } "
    
61.       "                    :column {"
    
62.       
    
63.       "                      :icon_fbox_img {key = \"SH-C2C\";}"
    
64.       "                    }"
    
65.       "                 } "
    
66.       "        }"
    
67.       "        "
    
68.       "        spacer_1;"
    
69.       " :column{fixed_width=true;//alignment=centered;"
    
70.       " :boxed_radio_row{label=\"Mode\";"
    
71.       "           :radio_button{label=\"A:Edge to Edge                                 \";key=\"radioA\";}//value=\"0\""
    
72.       "           :radio_button{label=\"B:Radii to radii                               \";key=\"radioB\";}//value=\"1\";"
    
73.       "           }"
    
74.       "}"
    
75.       "        :column{fixed_width=true;alignment=centered;"
    
76.       "        : paragraph{"
    
77.       "        : text_part{"
    
78.       "\tlabel =\"Fillet box : hanhphuc 2014\";"
    
79.       "\talignment = centered;"
    
80.       "}"
    
81.       "  }      "
    
82.       "        :row {"
    
83.       " \t  spacer_0;"
    
84.       "           ok_cancel;"
    
85.       "        }"
    
86.       "}"
    
87.       "}"
    
88.       )
    
89.     )
    
90. 
    
91.   (setq dcl_id (load_dialog dcl))
    
92.   (new_dialog "fbox" dcl_id)
    
93.   (mapcar ''((a)
    
94.        ('((i sld)
    
95.     (setq x (dimx_tile i))
    
96.     (setq y (dimy_tile i))
    
97.     (start_image i)
    
98.     (fill_image 0 0 x y -2)
    
99.     (slide_image 0 0 x y sld)
    
100.     (end_image)
     
101.     )
     
102.         a
     
103.         (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" )
     
104.         )
     
105.        )
     
106.     sld
     
107.     ) ;_ end of mapcar
     
108.   
     
109. (if
     
110.    *fb_user*
     
111.     (mapcar 'set_tile
     
112.       radio
     
113.       (setq *fb_user* (apply 'append
     
114.            (list
     
115.            (if (= *pos* "Centre")
     
116.              '("1" "0")
     
117.              '("0" "1")
     
118.              ) ;_ end of if
     
119. 
     
120.            (if (= *key* "A")
     
121.              '("1" "0")
     
122.              '("0" "1")
     
123.              ) ;_ end of if
     
124.            ) ;_ end of list
     
125.            ) ;_ end of apply
     
126.       ) ;_ end of setq
     
127.       ) ;_ end of mapcar
     
128.     ) ;_ end of if
     
129.   
     
130. (setq        
     
131.        *fb_user*
     
132.   (mapcar ''((k a b) (action_tile k (strcat "(setq " a " \"" b "\" )")))
     
133.        radio
     
134.        '("*pos*" "*pos*" "*key*" "*key*")
     
135.        '("Centre" "Edge" "A" "B")
     
136.        ) ;_ end of mapcar
     
137.        ) ;_ end of setq
     
138. 
     
139.   
     
140.   (action_tile "accept" "(setq *fb_user* (mapcar 'get_tile radio))
     
141.   (alert (strcat
     
142.    \"\nmethod: \"*pos* \"\nmode: \" *key* \"\n\"(vl-princ-to-string *fb_user*)))(done_dialog)")
     
143. 
     
144.   (start_dialog)
     
145.   
     
146.   (unload_dialog dcl_id)
     
147.   (princ)
     
148.   ) ;_ end of defun

  (if (null *fb_user*)<br />     (setq *fb_user* (mapcar 'itoa '(1 0 1 0)))<br />     ) ;_ end of if<br /> <br /> (defun fbdia (/ radio dcl_id path dcl)<br />   (setq  radio '("radio1" "radio2" "radioA" "radioB" )<br />   path  (getenv "temp")<br />   )<br />   <br />   ('((f lst /)<br />      (setq f (open f "w"))<br />      (mapcar ''(($) (write-line $ f)) lst)<br />      (close f)<br />      (setq f nil)<br />      )<br />     (setq dcl (strcat path "\\tmp.dcl"))<br />     '("icon_fbox_img : image {"<br />       "        color                   = 0;"<br />       "        width                   = 40;"<br />       "        aspect_ratio            = 0.75;"<br />       "        allow_accept            = true;"<br />       "        fixed_height            = true;"<br />       "        fixed_width             = true;"<br />       "}"<br />       ""<br />       ""<br />       "fbox: dialog {"<br />       "\tlabel=\"Fillet Box settings\";"<br />       "        key = \"dcl_title\";"<br />       ""<br />       ": paragraph{"<br />       "        : text_part{"<br />       "\tlabel =\"Choose options \";"<br />       "\t//alignment = centered;"<br />       "}"<br />       "  }      "<br />       "        :column {"<br />       "                :row { "<br />       "                    :column {"<br />      <br />       "                      :icon_fbox_img {key = \"SH-CENTRE\";}"<br />       "                    }"<br />       "                    :column {             "<br />       <br />       "                      :icon_fbox_img {key = \"SH-EDGE\";}"<br />       "                    }"<br />       "                 }"<br />       "}"<br />       " :column{fixed_width=true;//alignment=centered;"<br />       " :boxed_radio_row{label=\"Draw method\";"<br />       "\t:radio_button{label=\"Pick centre                                         \";key=\"radio1\";}//value=\"0\";"<br />       "        :radio_button{label=\"Pick side                                       \";key=\"radio2\";}//value=\"1\""<br />       "}"<br />       "}"<br />       "           :column {"<br />       "                 :row { "<br />       "                    :column {"<br />       <br />       "                      :icon_fbox_img {key = \"SH-P2P\";}"<br />       "                    } "<br />       "                    :column {"<br />       <br />       "                      :icon_fbox_img {key = \"SH-C2C\";}"<br />       "                    }"<br />       "                 } "<br />       "        }"<br />       "        "<br />       "        spacer_1;"<br />       " :column{fixed_width=true;//alignment=centered;"<br />       " :boxed_radio_row{label=\"Mode\";"<br />       "           :radio_button{label=\"A:Edge to Edge                                 \";key=\"radioA\";}//value=\"0\""<br />       "           :radio_button{label=\"B:Radii to radii                               \";key=\"radioB\";}//value=\"1\";"<br />       "           }"<br />       "}"<br />       "        :column{fixed_width=true;alignment=centered;"<br />       "        : paragraph{"<br />       "        : text_part{"<br />       "\tlabel =\"Fillet box : hanhphuc 2014\";"<br />       "\talignment = centered;"<br />       "}"<br />       "  }      "<br />       "        :row {"<br />       " \t  spacer_0;"<br />       "           ok_cancel;"<br />       "        }"<br />       "}"<br />       "}"<br />       )<br />     )<br /> <br />   (setq dcl_id (load_dialog dcl))<br />   (new_dialog "fbox" dcl_id)<br />   (mapcar ''((a)<br />        ('((i sld)<br />     (setq x (dimx_tile i))<br />     (setq y (dimy_tile i))<br />     (start_image i)<br />     (fill_image 0 0 x y -2)<br />     (slide_image 0 0 x y sld)<br />     (end_image)<br />     )<br />         a<br />         (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" ) <br />         )<br />        )<br />     sld<br />     ) ;_ end of mapcar<br />   <br /> (if<br />    *fb_user* <br />     (mapcar 'set_tile<br />       radio<br />       (setq *fb_user* (apply 'append<br />            (list <br />            (if (= *pos* "Centre")<br />              '("1" "0")<br />              '("0" "1")<br />              ) ;_ end of if<br /> <br />            (if (= *key* "A")<br />              '("1" "0")<br />              '("0" "1")<br />              ) ;_ end of if<br />            ) ;_ end of list<br />            ) ;_ end of apply<br />       ) ;_ end of setq<br />       ) ;_ end of mapcar<br />     ) ;_ end of if <br />   <br /> (setq        <br />        *fb_user*<br />   (mapcar ''((k a b) (action_tile k (strcat "(setq " a " \"" b "\" )")))<br />        radio<br />        '("*pos*" "*pos*" "*key*" "*key*")<br />        '("Centre" "Edge" "A" "B")<br />        ) ;_ end of mapcar<br />        ) ;_ end of setq<br /> <br />   <br />   (action_tile "accept" "(setq *fb_user* (mapcar 'get_tile radio))<br />   (alert (strcat <br />    \"\nmethod: \"*pos* \"\nmode: \" *key* \"\n\"(vl-princ-to-string *fb_user*)))(done_dialog)")<br /> <br />   (start_dialog)<br />   <br />   (unload_dialog dcl_id)<br />   (princ)<br />   ) ;_ end of defun

lucas_3333

对话框界面已上传

xyp1964

lucas_3333

xyp1964 发表于 2014-7-31 09:25

谢谢院长，只是还是一样，看不到幻灯片

４个幻灯片与lisp都放在E:\Program Files\AutoCAD 2010\Support\test
且这个路径已经是ＣＡＤ支持文件搜索路径　

为什么还不行呢？　难道跟驱动程序有关？

小菜123

用：(command "vslide" (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" ) )试试能不能放出来，确定是否是路径问题

edata

1. (setq sld '("SH-CENTRE" "SH-EDGE" "SH-P2P" "SH-C2C"))

(setq sld '("SH-CENTRE" "SH-EDGE" "SH-P2P" "SH-C2C"))

应该是 缺少这句
其次，这个SLD名字要对应。

lucas_3333

小菜123 发表于 2014-7-31 10:32
用：(command "vslide" (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" ) )试试能不 ...

谢谢小菜，　我试了
(command "vslide" (strcat "E:\\Program Files\\AutoCAD
2010\\Support\\test\\" a ".sld" ) ) vslide
Enter name of slide file to view <C:\Documents and Settings\Administrator\My
Documents\Drawing1>: ; error: bad argument type: stringp nil
Enter name of slide file to view <C:\Documents and Settings\Administrator\My
Documents\Drawing1>: SH-P2P

输入幻灯片名后，可以预览到

lucas_3333

edata 发表于 2014-7-31 10:39
应该是 缺少这句
其次，这个SLD名字要对应。

谢谢Ｅ大，那这一句要放到哪儿呢？

edata

这句之前
因为mapcar需要调用sld变量了。
sld表内容和图形按钮控件key名相同，即幻灯片名和控件key相同。

1. (mapcar ''((a)
   
2.        ('((i sld)
   
3.     (setq x (dimx_tile i))
   
4.     (setq y (dimy_tile i))
   
5.     (start_image i)
   
6.     (fill_image 0 0 x y -2)
   
7.     (slide_image 0 0 x y sld)
   
8.     (end_image)
   
9.     )
   
10.         a
    
11.         (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" )
    
12.         )
    
13.        )
    
14.     sld
    
15.     ) ;_ end of mapcar

(mapcar ''((a)<br />        ('((i sld)<br />     (setq x (dimx_tile i))<br />     (setq y (dimy_tile i))<br />     (start_image i)<br />     (fill_image 0 0 x y -2)<br />     (slide_image 0 0 x y sld)<br />     (end_image)<br />     )<br />         a<br />         (strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" ) <br />         )<br />        )<br />     sld<br />     ) ;_ end of mapcar

lucas_3333

edata 发表于 2014-7-31 10:51
这句之前
因为mapcar需要调用sld变量了。
sld表内容和图形按钮控件key名相同，即幻灯片名和控件key相同。 ...

Ｅ大，太棒了，按你说的，一下就成功了！谢谢！
如果不用绝对地址，就不是就将(strcat "E:\\Program Files\\AutoCAD 2010\\Support\\test\\" a ".sld" )换成a ?