版主帮我看下问题出在哪怎么运行不了呢？但用快捷键调用又可以的

lyh289114980 · 发表于 2013-8-28 18:15

EDA365欢迎您！

您需要登录才可以下载或查看，没有帐号？注册

x

axlCmdRegister("efilm" `edit_film)
(defun edit_film ()
if( (home = axlGetVariable("home")) then
   menudir = strcat(home "/pcbenv")
  else
;;;; NT Only ;;;
if( (home = axlGetVariable("homedrive") && (homepath = axlGetVariable("homepath"))) then
   menudir = strcat(home homepath "/pcbenv")
else
   menudir = getWorkingDir()
); endif

  ); endif
printf("%s\n" menudir)
name1 = strcat(menudir "/" "scr" "/" "editfilm.scr")
printf("%s\n" name1)
editfilm = outfile(name1 "w")
fprintf(editfilm "setwindow pcb\n")
fprintf(editfilm "trapsize 344\n")
fprintf(editfilm "artwork\n")
fprintf(editfilm "setwindow form.film_control\n")
fprintf(editfilm "FORM film_control general_parameters\n")
fprintf(editfilm "FORM film_control gerber_rs274x YES\n")
fprintf(editfilm "FORM film_control error_abort_film YES\n")
fprintf(editfilm "FORM film_control film_max_x 32\n")
fprintf(editfilm "FORM film_control film_max_y 24\n")
fprintf(editfilm "FORM film_control format_int_places 3\n")
fprintf(editfilm "FORM film_control format_dec_places 5\n")
fprintf(editfilm "FORM film_control units_english YES\n")
fprintf(editfilm "FORM film_control apertures\n")
fprintf(editfilm "setwindow form.apt_wheels\n")
fprintf(editfilm "FORM apt_wheels 1 edit\n")
fprintf(editfilm "setwindow form.apt_stations\n")
fprintf(editfilm "FORM apt_stations auto Without Rotation\n")
fprintf(editfilm "FORM apt_stations apt_done\n")
fprintf(editfilm "setwindow form.apt_wheels\n")
fprintf(editfilm "FORM apt_wheels done\n")
fprintf(editfilm "setwindow form.film_control\n")
fprintf(editfilm "FORM film_control ok \n")
fprintf(editfilm "setwindow pcb\n")
fprintf(editfilm "\n")
close(editfilm)
axlShell("replay  editfilm.scr")
)