- (action_tile
- "accept" ;if O.K. pressed
- (strcat ;string 'em together
- "(progn
- [color="red"] (setq SIZ (atof (get_tile "selections")))"[/color] ;get list selection
- " (done_dialog)(setq userclick T))" ;close dialog, set flag
- );strcat
- );action tile
- (start_dialog) ;start dialog
- (unload_dialog dcl_id) ;unload
- (if userclick ;check O.K. was selected
- (progn
- [color="red"](setq SIZ (fix SIZ)) [/color] ;convert to integer;
- [color="red"] (setq SIZ (nth SIZ NAMES))[/color] ;get the size
- );progn
- );if userclick
- (princ)
你好,老虎
我被困在这里,这个教程是从下面的链接。平铺“选择”中的If值
是“M8”,为什么atof函数会处理它。http://www.afralisp.net/dialog-control-language/tutorials/dialog-boxes-and-autolisp-part-2.php |