EDA365电子工程师网

标题: 版主帮我看下问题出在哪怎么运行不了呢？但用快捷键调用又可以的 [打印本页]

作者: lyh289114980 时间: 2013-8-28 18:15
标题: 版主帮我看下问题出在哪怎么运行不了呢？但用快捷键调用又可以的
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")
)

作者: XYX365 时间: 2013-8-29 08:20
你試試看修改下列兩行

axlCmdRegister("efilm" `edit_film ?cmdType "general")

axlShell(strcat("replay " name1))

作者: lyh289114980 时间: 2013-8-29 14:14

XYX365 发表于 2013-8-29 08:20
你試試看修改下列兩行

axlCmdRegister("efilm" `edit_film ?cmdType "general")

谢谢版主，可以了。能给我说下为什么吗？

作者: kkman2000 时间: 2015-8-22 19:12
支持支持支持非常感謝

欢迎光临 EDA365电子工程师网 (http://bbs.elecnest.cn/)