代码哪里错了

xieeyawen 发表于 2025-2-18 20:37:37

本帖最后由 xieeyawen 于 2025-2-19 09:45 编辑

提示这个E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") - nil

;新建form文件
procedure(CutShapesForm()
let(()
aformPath = "./supercutshapes.form"
aformPort = outfile(aformPath "w")
fprintf(aformPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(aformPort "FORM\n")
fprintf(aformPort "FIXED\n")
fprintf(aformPort "PORT 36 36 \n")
fprintf(aformPort "HEADER \"Super-cutshapes\"\n")
fprintf(aformPort "\n")

fprintf(aformPort "TILE\n")
fprintf(aformPort "TEXT\"Click to CUT\"blue_a\n")
fprintf(aformPort "TLOC 1 1\n")
fprintf(aformPort "ENDTEXT \n")

fprintf(aformPort "FIELD cutshape\n")
fprintf(aformPort "FLOC 1 4\n")
fprintf(aformPort "MENUBUTTON \"Super-cutshapes\" 18 3\n")
fprintf(aformPort "ENDFIELD\n")

fprintf(aformPort "FIELD Undo\n")
fprintf(aformPort "FLOC 1 7\n")
fprintf(aformPort "MENUBUTTON \"Undo\" 18 3\n")
fprintf(aformPort "ENDFIELD\n")

fprintf(aformPort "FIELD Cancel\n")
fprintf(aformPort "FLOC 1 10\n")
fprintf(aformPort "MENUBUTTON \"Cancel\" 18 3\n")
fprintf(aformPort "ENDFIELD\n")

fprintf(aformPort "FIELD Done\n")
fprintf(aformPort "FLOC 1 13\n")
fprintf(aformPort "MENUBUTTON \"Done\" 18 3\n")
fprintf(aformPort "ENDFIELD\n")

close(aformPort)
cutForm = axlFormCreate( (gensym) "supercutshapes.form" '(e inner) 'aFormAction t nil)
axlFormDisplay( cutForm)
deleteFile(aformPath)
);let close
);procedure close

xieeyawen 发表于 2025-2-19 10:53:45

let(()
   aformPath = "./supercutshapes.form"
   aformPort = outfile( aformPath "w")

   fprintf(aformPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
   fprintf(aformPort "FORM\n")
   fprintf(aformPort "FIXED\n")
   fprintf(aformPort "PORT 35 32\n")
   fprintf(aformPort "HEADER \"Snap\"\n")
   fprintf(aformPort "TILE\n")

   fprintf(aformPort "FIELD cutshape\n")
   fprintf(aformPort "FLOC 2 2\n")
   fprintf(aformPort "MENUBUTTON \"Super-cutshapes\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Undo\n")
   fprintf(aformPort "FLOC 18 2\n")
   fprintf(aformPort "MENUBUTTON \"Undo\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Cancel\n")
   fprintf(aformPort "FLOC 2 6\n")
   fprintf(aformPort "MENUBUTTON \"Cancel\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Done\n")
   fprintf(aformPort "FLOC 18 6\n")
   fprintf(aformPort "MENUBUTTON \"Done\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "ENDTILE\n")
   fprintf(aformPort "ENDFORM\n")
   close(aformPort)

   cutForm = axlFormCreate( (gensym) "supercutshapes.form" '(e inner) 'aFormAction t nil)
   axlFormDisplay( cutForm )
   deleteFile(aformPath)
);let close把form框架改了有好了，其他的也没改啊

szr 发表于 2025-2-19 22:08:07

deleteFile(cutForm)

xieeyawen 发表于 2025-2-20 10:25:20

szr 发表于 2025-2-19 22:08
deleteFile(cutForm)

这里没关系，我都试过，这里我是看skill文档的例子加了空格，所以试了下还是不行

winskillabc 发表于 2025-2-20 16:33:19

xieeyawen 发表于 2025-2-20 10:25
这里没关系，我都试过，这里我是看skill文档的例子加了空格，所以试了下还是不行

能具体说下,改了哪些框架又可以了?

xieeyawen 发表于 2025-2-21 11:22:53

winskillabc 发表于 2025-2-20 16:33
能具体说下,改了哪些框架又可以了?

   fprintf(aformPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
   fprintf(aformPort "FORM\n")
   fprintf(aformPort "FIXED\n")
   fprintf(aformPort "PORT 35 32\n")
   fprintf(aformPort "HEADER "Snap"\n")
   fprintf(aformPort "TILE\n")

   fprintf(aformPort "FIELD cutshape\n")
   fprintf(aformPort "FLOC 2 2\n")
   fprintf(aformPort "MENUBUTTON "Super-cutshapes" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Undo\n")
   fprintf(aformPort "FLOC 18 2\n")
   fprintf(aformPort "MENUBUTTON "Undo" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Cancel\n")
   fprintf(aformPort "FLOC 2 6\n")
   fprintf(aformPort "MENUBUTTON "Cancel" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Done\n")
   fprintf(aformPort "FLOC 18 6\n")
   fprintf(aformPort "MENUBUTTON "Done" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "ENDTILE\n")
   fprintf(aformPort "ENDFORM\n")
这是成功了的form 框架

就把运行不成功的form用另一个别人的form框架替换

winskillabc 发表于 2025-2-21 18:01:26

xieeyawen 发表于 2025-2-21 11:22
fprintf(aformPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(aformPort "FORM\n")
...

那就怪了,好像提示那个也不是框架错误,谢谢

szr 发表于 2025-2-23 15:30:23

defun(add_form ()
let(()
   aformPath = "./supercutshapes.form"
   aformPort = outfile( aformPath "w")

   fprintf(aformPort "FILE_TYPE=FORM_DEFN VERSION=2\n")
   fprintf(aformPort "FORM\n")
   fprintf(aformPort "FIXED\n")
   fprintf(aformPort "PORT 35 32\n")
   fprintf(aformPort "HEADER \"Snap\"\n")
   fprintf(aformPort "TILE\n")

   fprintf(aformPort "FIELD cutshape\n")
   fprintf(aformPort "FLOC 2 2\n")
   fprintf(aformPort "MENUBUTTON \"Super-cutshapes\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Undo\n")
   fprintf(aformPort "FLOC 18 2\n")
   fprintf(aformPort "MENUBUTTON \"Undo\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Cancel\n")
   fprintf(aformPort "FLOC 2 6\n")
   fprintf(aformPort "MENUBUTTON \"Cancel\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "FIELD Done\n")
   fprintf(aformPort "FLOC 18 6\n")
   fprintf(aformPort "MENUBUTTON \"Done\" 14 4\n")
   fprintf(aformPort "ENDFIELD\n")

   fprintf(aformPort "ENDTILE\n")
   fprintf(aformPort "ENDFORM\n")
   close(aformPort)

   cutForm = axlFormCreate( (gensym) "supercutshapes.form" '(e inner) 'aFormAction t nil)
   axlFormDisplay(cutForm)
   deleteFile(cutForm)
);let close
)

winskillabc 发表于 2025-2-24 09:45:45

szr 发表于 2025-2-23 15:30
defun(add_form ()
let(()
aformPath = "./supercutshapes.form"

请问下,是改了哪里?具体

szr 发表于 2025-2-26 20:57:44

winskillabc 发表于 2025-2-24 09:45
请问下,是改了哪里?具体

加了几个/,可以运行了

页: [1] 2

Cadence Skill 论坛's Archiver

代码哪里错了