我写的界面程序和驱动程序，请帮忙看下，哪里有错误

zza12345

//gear.dcl
gear:dialog{
label="绘制标准圆柱直齿齿轮";
:image{
label="image";
key="key_image";
width=16;
aspect_ratio=2;
color=7;
}
:row{
:colom{
:edit_box{
label="齿数";
key="key_Z";
edit_width=6;
}
:edit_box{
label="节圆直径";
key="key_D";
edit_width=6;
}
}
}
ok_cacel;
}
驱动 (defun gear)
(setq return_value (load_dialog "gear.dcl"))
(setq what_next 2)
(whlie (>= what_next 2))
(if (null (new_dialog "gear" return_value))
(exit)
);end if
(inital)
(action_tile "accept" "(done_dialog 1)")
(action_tile "cacnel" "(done_dialog -1)")
(setq what_next (star_dialog))
(if (= what_next 1))
(draw)
(unload_dialog index_value)
(print) (defun getdata()
(setq z (atof (get_tile "key_Z")))
(setq D (atof (get_tile "key_D"")))
) (defun show()
(setq x1 (dimx_tile "key_gear"))
(setq x2 (dimx_tile "key_gear"))
(start_image "image_gear")
(slide_image 0 0 x1 x2 file_name)
(end_image)
)

meflying

你写的？

zza12345

是的。这几天我在学习。帮我看看


我编译了不会用，autocad里面打不开阿~~~另外绘图的程序已经好了~~~不知道怎么把他们连起来

meflying

说实话,如果你会写LISP程序,就不至于贴出上面那些东西来问,,,不是水平高低的问题,完全是会与不会的问题