EDA365电子论坛网

标题: 另类Form制作-skill [打印本页]

作者: 王开鑫55 时间: 2017-3-15 17:56
标题: 另类Form制作-skill
有谁知道，这种目录下还有目录的FORM怎么做（见FORM红框），给个小例子，或者告诉哪里可以找到这个FORM的资料，非常感谢。

360反馈意见截图1617111783123103.png (22.63 KB, 下载次数: 5)

作者: chrysalis 时间: 2017-3-15 17:56

王开鑫55 发表于 2017-3-29 11:00
可以给个例子？或者路径也行，谢谢！

FORM部分

FIELD fName
FLOC x y
TREEVIEW dx dy
ENDFIELD

复制代码

skill部分用axlFormTreeViewAddItem等设置，用axlFormTreeViewGetSelectState等读取，函数用法见algroskill.pdf

作者: chrysalis 时间: 2017-3-15 18:26
这个叫树状图，没什么另类的，skill的form自带这个对象，就是treeview

作者: 王开鑫55 时间: 2017-3-29 11:00

chrysalis 发表于 2017-3-15 18:26
这个叫树状图，没什么另类的，skill的form自带这个对象，就是treeview

可以给个例子？或者路径也行，谢谢！

作者: lc1234 时间: 2017-4-1 00:31
好，好，一定顶！！

作者: ice_cadence 时间: 2017-4-21 14:14
學習

作者: pzt648485640 时间: 2017-4-21 15:57
(defun my_form ()
time = getCurrentTime()
time = parseString(time)
day = nth(1 time)
month = car(time)
month = upperCase(month)
year = nth(3 time)
date = strcat(" Date: " day " " month " " year)
CreateForm()
myform=axlFormCreate( (gensym) form_file nil 'Form_Action t)
axlFormDisplay(myform)
axlUIWPrint(myform date)

)

(defun CreateForm ()
drain()
form_file = "123"
myform = outfile(form_file "w")
fprintf(myform "#Created by xml2bnf perl utility\n")
fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM AUTOGREYTEXT\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 47 37\n")
fprintf(myform "HEADER \"Form Field Type Demo\"\n\n")
fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
fprintf(myform "TILE\n\n")
fprintf(myform "## Group Definition in Form## \n")
fprintf(myform "GROUP \"Group1\"\n")
fprintf(myform "GLOC 1 2\n")
fprintf(myform "FSIZE 42 31\n")
fprintf(myform "ENDGROUP\n\n")
fprintf(myform "## Button Field in Group## \n")
fprintf(myform "FIELD Button1\n")
fprintf(myform "FLOC 2 4\n")
fprintf(myform "MENUBUTTON \"Button1\" 13 4\n")
fprintf(myform "FGROUP \"Group1\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in Group## \n")
fprintf(myform "FIELD Button2\n")
fprintf(myform "FLOC 16 4\n")
fprintf(myform "MENUBUTTON \"Button2\" 13 4\n")
fprintf(myform "FGROUP \"Group1\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## LIST Field in Group## \n")
fprintf(myform "FIELD List1\n")
fprintf(myform "FLOC 3 8\n")
fprintf(myform "LIST \" \" 38 11\n")
fprintf(myform "FGROUP \"Group1\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "ENDTILE\n\n")
fprintf(myform "ENDFORM\n\n")

close(myform)
)

(defun Form_Action (myform)
(let (t1 item index field cnt)(printf "field/value %L = %L (int %L\n)"
myform->curField myform->curValue, myform->curValueInt )
(printf "doneState %L\n" myform->doneState )
case(myform->curField
("Button1"

;Button Field
;Enter Action Here

)
("Button2"

;Button Field
;Enter Action Here

)
("List1"

;List Field
;Enter Action Here

)
)
)

if((nequal myform->doneState 0)
axlFormClose(myform))
)

作者: 王开鑫55 时间: 2017-7-4 17:19
本帖最后由王开鑫55 于 2017-7-5 21:06 编辑

chrysalis 发表于 2017-3-29 11:05
FORM部分

作者: 王开鑫55 时间: 2017-7-5 14:37
怎样通过勾选上，得到他下级的所有的名字呢，现在做出来，没法读到数据，点击的数据

作者: 王开鑫55 时间: 2017-7-5 16:00
本帖最后由王开鑫55 于 2017-7-5 21:07 编辑

chrysalis 发表于 2017-3-29 11:05
FORM部分

不会就调试，

作者: 酱紫 时间: 2017-7-15 20:26
虽然没听懂，马克

作者: 馒头 时间: 2017-7-15 23:04
谢谢提供~

作者: Chesi 时间: 2019-9-19 14:02
？？？？？？？？？？？？？？？？

作者: YuanJ 时间: 2019-11-28 14:09

谢谢提供~

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