[求助]如何创建自动加载工具条？

ygrzz

***POP15
**PULL_DOWN
               [@辅助]
               [线型比例<1>]^C^C_ltscale 1
               [线型比例<2>]^C^C_ltscale 2
               [修改线宽为0.35mm]^C^C_gw
               [镜像文字反向]'_mirrtext 1
               [镜像文字不变]'_mirrtext 0
               [--]
               [标注略零]'_dimzin 0
               [标注不略零]'_dimzin 8
               [--]
               [量取点距]'cal DIST(cur,cur);
               [量取交角+/-]'cal ang(cur,cur,cur);
               [量取绝对角]'cal ang(cur,cur);
               [--]
               [表达式'_cal]'cal;
               [--]
               [计算器工具栏]^C^C(startapp "BAR_calc102")
               [计算器CalcPlus]^C^C(startapp "CalcPlus")
               [计算器语音]^C^C(startapp "Calc14")
               [计算器sexcalc]^C^C(startapp "sexcalc")
               [--]
               [记事本]^C^C(startapp "notepad")
ID_EMenu       [编辑user.mns]^C^C^P(command "notepad" (findfile "user.mns")) ^P
ID_Emnl        [编辑user.mnl]^C^C^P(startapp "notepad" (findfile "user.mnl")) ^P
ID_EPGP        [编辑acad.PGP]^C^C^P(command "notepad" (findfile "acad.PGP")) ^P
               [初始化PGP]^C^C^Reinit
               [--]
ID_CommText    [DCText]^C^C^P(if (not c:CommText) (arxload "CommText2000"));CommText DTEXT \3.5;;
               [编辑CommText]^C^C^P(command "notepad" (findfile "CommText.txt")) ^P
               [资源管理器]^C^C(startapp "EXPLORER")
               [--]
               [LISP文件反编译]^C^C(startapp (findfile "UnLISP21.exe"))
               [--]
               [开TB绘制]^C^C(command "-toolbar" "绘制" "show")(princ);
               [开TB线切割]^C^C(command "-toolbar" "线切割" "show")(princ);
               [开TB编辑]^C^C(command "-toolbar" "编辑" "show")(princ);
               [开TB尺寸]^C^C(command "-toolbar" "尺寸" "show")(princ);

给你们参考一下，嘿嘿，自己做个下拉菜单能省事不少~~~