EDA365电子论坛网

标题: FORM无法正常显示，一闪就过了 [打印本页]

作者: antoni2011 时间: 2025-3-22 23:05
标题: FORM无法正常显示，一闪就过了
大佬，随便写了个Form ,用SKILL加载，就闪退
axlCmdRegister("Dview" 'viewsevery ?cmdType "general")
procedure(viewsevery()
createviewform()
form=axlFormCreate((gensym) viewform_file '(se outer) 'view_callback t)
axlFormDisplay( form)
deleteFile(viewform_file)
)

(defun createviewform ()
viewform_file="vie.form"
viewport=outfile(viewform_file "w")
fprintf(viewport "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(viewport "FORM\n")
fprintf(viewport "FIXED\n")
fprintf(viewport "PORT 50 80\n")
fprintf(viewport "HEADER \"view\"\n")
fprintf(viewport "TILE\n")
fprintf(viewport "\n")

fprintf(viewport "GROUP \"PIN_T\"\n")
fprintf(viewport "GLOC 1 1\n")
fprintf(viewport "GSIZE 40 20\n")
fprintf(viewport "ENDGROUP\n")

fprintf(viewport "FIELD PIN_view\n")
fprintf(viewport "FLOC 4 6\n")
fprintf(viewport "FGROUP \"PIN_T\"\n")
fprintf(viewport "CHECKLIST \"PIN\"\n")
fprintf(viewport "ENDFIELD\n")
fprintf(viewport "ENDTILE\n")
fprintf(viewport "ENDFORM\n")
close(viewport)
)

作者: antoni2011 时间: 2025-3-23 18:29
感谢茅台哥，改成这样，可以呼出 FORM了，但报2个错
axlCmdRegister("Dview" 'viewsevery ?cmdType "general")
procedure( viewsevery()

  createviewform()

  createform()
  form=axlFormCreate((gensym) viewform_file '(se inner) 'view_callback t)
  axlFormDisplay( form)
deleteFile(viewform_file)
)
(defun createviewform ()

axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") - nil
axlFormClose: argument #1 should be any user-defined (other) type (type template = "o") - nil

作者: antoni2011 时间: 2025-3-24 15:00

antoni2011 发表于 2025-3-23 18:29
感谢茅台哥，改成这样，可以呼出 FORM了，但报2个错
axlCmdRegister("Dview" 'viewsevery ?cmdType "gener ...

茅台哥,还是不行,我参考其它的这个函数也是这样做的,就可以.搞不懂了

作者: antoni2011 时间: 2025-3-25 18:34

antoni2011 发表于 2025-3-24 15:00
茅台哥,还是不行,我参考其它的这个函数也是这样做的,就可以.搞不懂了

视窗试过了,各种位置不行,我手动输入了一下,可以了.之前的FORM很多是COPY的,不知道是不是COPY哪里有问题了,感谢

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)