[编程申请]：求助各位大侠

lxyufo

背面是一张 图幅。
  我在CAD“标题栏”中添加了 一个“图幅”命令。我想当我点击“图幅”命令时 弹出 “图幅对话框”（这一步我已经会做）。
现在的问题是 通过“图幅对话框”将固定图幅导入到 CAD中。图幅大小，横向，纵向，总共 14 张 图幅 ，图我已经 画好。     
例如：选中 图幅 A0 ，方向 横向，之后，这张图幅随 所选的 比例 而 变化。不知道程序怎么写？？
  请各位大侠 帮忙 写一下。谢谢！！！

newer

最初由 lxyufo 发布
[B]背面是一张 图幅。
  我在CAD“标题栏”中添加了 一个“图幅”命令。我想当我点击“图幅”命令时 弹出 “图幅对话框”（这一步我已经会做）。
现在的问题是 通过“图幅对话框”将固定图幅导入到 CAD中。图幅大小... [/B]

你应该用 DCL 的 imagebutton 图像按钮控件，接受Action_Tile 事件，然后弹出新的DCL窗口，这个窗口里面可以是很多的imagebutton 图像按钮控件,点击他们可以接受选择，然后返回父窗口，把新选的幻灯画到父窗口里面的imagebutton 图像按钮控件里面。

编程时候，关键的是往imagebutton 图像按钮控件绘制幻灯，可以用下面的函数：

2. <normalfont>
   
3. (defun $XDDCL_SlideImage (key sldname color / x y)
   
4.   (setq x (dimx_tile key)
   
5.         y (dimy_tile key)
   
6.   )
   
7.   (start_image key)
   
8.   (fill_image 0 0 x y color)
   
9.   (slide_image 0 0 x y sldname)
   
10.   (end_image)
    
11. )
    
12. </normalfont>
    

<normalfont><br /> (defun $XDDCL_SlideImage (key sldname color / x y)<br />   (setq x (dimx_tile key)<br />         y (dimy_tile key)<br />   )<br />   (start_image key)<br />   (fill_image 0 0 x y color)<br />   (slide_image 0 0 x y sldname)<br />   (end_image)<br /> )<br /> </normalfont><br />

上面是晓东工具箱里面晓东给我们写的现成函数，建议你也多看看晓东工具箱里面的LISP文件，里面写了很多现成的函数。

晓东前一段给我们写的“柱子截面配筋”的工具，里面就有你说的，点击图像按钮选择不同的图像功能的，你可以去看看里面的代码。

相关讨论帖子见：（里面有动画教学，可以看看演示）
http://www.xdcad.net/forum/showt ... d=200697#post200697