[求助]高手帮忙看一下这个程序

mingn100

高手帮忙看一下这个程序，
其他部分运行正常，就是在最后一部分实现影像功能时，实现不了，我不知道是说明原因希望高手帮忙看一下，谢谢了
还有一个部分就是插入图形，我不太会用，希望能够给补充一下，让我学习一下是怎么用的
在次感谢明经的高手，多多给予指导!!!!!

ZZXXQQ

最后的函数改成：

3. (defun s_img1 (key)
4. (setq sld path1)
5. (setq tmp_x (dimx_tile key) tmp_y (dimy_tile key))
6. (start_image key)
7. (fill_image 0 0 tmp_x tmp_y -2)
8. (slide_image 0 0 tmp_x tmp_y sld)
9. (end_image)
10. )

(defun s_img1 (key) (setq sld path1) (setq tmp_x (dimx_tile key) tmp_y (dimy_tile key)) (start_image key) (fill_image 0 0 tmp_x tmp_y -2) (slide_image 0 0 tmp_x tmp_y sld) (end_image) )

试试。

mingn100

谢谢你看了我的帖子，并帮我解决问题

我试了一下，现在能执行select3了，但是程序还有问题，就是执行完select后回到

(action_tile "dj_gl" "(setq tmp_r (atoi (get_tile \"dj_gl\"))) (select1)(select2)(select3)")

这一句就又停止了，不知还有什么问题希望在帮忙看一下，谢了！！！

ZZXXQQ

不知道你下一步要做什么？

mingn100

我的思路是

在最后把所要选择的型号，图形都显示来，现在这个程序是刚显示出型号来

在影像图框上显示不出影像，运行时（select3）也运行完了，但是在返回主函数后就不执行了

所以影像还是没显示出来。

然后还有一步就是把影像插入到CAD,这一步我没有程序，不太会编了，想请教一下

我QQ 502482507 如果方便我们可以在QQ上交流，我现在是初学好多问题都不太明白

谢谢你的帮助！！！