前面写的很不好，挨骂了。我连夜又写了一个。初学~~指导指导

zza12345

//gear.dcl
gear:dialog{
label="渐开线圆柱直齿轮设计";
:boxed_row{
:image{
key="key_image";
width=35;
aspect_ratio=2;
color=0;
}
:column{
:edit_box{
label="齿数 ";
key="key_N";
fixed_width=ture;
width=10;
}
:edit_box{
label="节圆直径";
key="key_DP";
fixed_width=ture;
width=10;
}
:edit_box{
label="轴直径 ";
key="key_SD";
fixed_width=ture;
width=10;
}
:edit_box{
label="高度 ";
key="key_HHH";
fixed_width=ture;
width=10;
}
ok_cancel;
}
}
} 驱动 (defun gear()
(setq return_value (load_dialog "gear.dcl"))
(setq what_next 2)
(while (>= what_next 2)
(if (null (new_dialog "gear" renturn_value))
(exit)
);end if
(show "key_image" "gear")
(action_tile "accept" "(getdata) (done_dialog 1)")
(action_tile "cancle" "(done_dialog 0)")
(setq what_next (star_dialog))
(if (= what_next 1) (draw))
)
(unload_dialog return_value)
(print)
)
(defun getdata()
(setq N (atof (get_tile "key_N")))
(setq DP (atof (get_tile "key_DP")))
(setq HHH (atof (get_tile "key_HHH")))

(defun show (image_name file_name)
(setq x1 (dimx_tile image_name))
(setq y1 (dimy_tile image_name))
(start_image image_name)
(slide_image 0 0 x1 y1 file_name)
(end_image)
) 主程序省略。 这次很认真写的。。。有几个问题一起提出来吧。。。 1。先看看有没有语法错误把 2。AutoCAD中能不能预览测试dcl文件，我想看看实际出来的是否和我想的一样。 3。我把 界面程序dcl,主程序(包含驱动程序)lsp 放在同一个目录，加载并执行lsp。但是界面出不来，图也画不出~~~~请问哪里出错了~~~急！！！ 4。界面中要显示出图，但我不知道用哪个函数传递是么东西给key_image。(对于在界面中出图，我实在搞不懂怎么弄，(defun show )这部分我是仿照书上写的，请高手帮我讲讲把 想到这么多现写下来了~~~我初学lisp~~~有描述不全面的地方请见谅。 先谢谢了

maomao2004

我把 界面程序dcl,主程序(包含驱动程序)lsp 放在同一个目录？？？？？？？


是cad的支持路径吗？

zza12345

不是。。。该如何放置？

maomao2004

option->文件->支持搜索路径->添加你那个目录


还有你这个程序.lsp错误不少


建议你好好看看书吧


或者找个资料查询下每个函数的用法吧，别着急

jans

2。autocad中能不能预览测试dcl文件，我想看看实际出来的是否和我想的一样。


当然是可以的


看看这个界面你就知道了.

jans

直接预览就Ok了!

zza12345

我把上述ture改成true。用检查编辑器中的文字， 未发现有错误。可还是预览不了~~~不知道哪里出错了

zza12345

有关于编写驱动程序的文章或资料没~~~给个下载吧~~~我细看下

jans

问飞哥吧

zza12345

编译出来了~~可弹出来2个错误.