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

龙龙仔

2. (defun GEAR ()
3.    (setq RETURN_VALUE (load_dialog "gear.dcl"))
4.    (setq WHAT_NEXT 2)
5.    (while (>= WHAT_NEXT 2)
6.        (if  (null (new_dialog "gear" RETURN_VALUE))
7.            (exit)
8.        )          ;end if
9.        (SHOW "key_image" "gear")
10.        (action_tile "accept" "(getdata)(done_dialog 1)")
11.        (action_tile "cancel" "(done_dialog 0)")
12.        (setq WHAT_NEXT (start_dialog))
13.        ;;(if (= WHAT_NEXT 1)
14.        ;;   (DRAW)
15.        ;;)
16.    )
17.    (unload_dialog RETURN_VALUE)
18.    (print)
19. )(defun GETDATA ()
20.    (setq N (atof (get_tile "key_N")))
21.    (setq DP (atof (get_tile "key_DP")))
22.    (setq HHH (atof (get_tile "key_HHH")))
23. )
24. (defun SHOW (IMAGE_NAME FILE_NAME)
25.    (setq X1 (dimx_tile IMAGE_NAME))
26.    (setq Y1 (dimy_tile IMAGE_NAME))
27.    (start_image IMAGE_NAME)
28.    (slide_image 0 0 X1 Y1 FILE_NAME)
29.    (end_image)
30. )

(defun GEAR ()    (setq RETURN_VALUE (load_dialog "gear.dcl"))    (setq WHAT_NEXT 2)    (while (>= WHAT_NEXT 2)        (if  (null (new_dialog "gear" RETURN_VALUE))            (exit)        )          ;end if        (SHOW "key_image" "gear")        (action_tile "accept" "(getdata)(done_dialog 1)")        (action_tile "cancel" "(done_dialog 0)")        (setq WHAT_NEXT (start_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) )

ZZXXQQ

改过的对话框：


       

bitterwood

maomao2004发表于2005-6-1 9:36:00option->文件->支持搜索路径->添加你那个目录 还有你这个程序.lsp错误不少 建议你好好看看书吧 或者找个资料查询下每个函数的用法吧，别着急 ...

这个没看懂啊..

bitterwood

看懂了看懂了-_-

zza12345

哈哈 程序能用了 比以前简练多了~~~多谢楼上诸位dx阿~~~QQQ哦~~

zza12345

运行程序，出现界面框，输入数据，点确定后，界面框消失，是么都没有，图也没画~~~哭了~~~~~


我估计是驱动和程序某个关联没弄好~~~~哪位大哥给个详细资料我研究下阿~~~