如何定做自己的菜单?

cqf0929

我刚学会加载.lisp.
加载.rax.
别人用的菜单我也可以加载.
可如和定做适合自己用的菜单啊?
又没有高手,请指教指教啊

xyp1964

提供一个供参考：
[php]
***POP22
[专用]
[--]
[★文件减肥]^C^C
[使用说明]^C^C^Pwjjfsm
[文件减肥]^C^C^Pwjjf wjjf2
[--]
[★幻灯片制作]^C^C
[使用说明]^C^C^P(lianjie"hdpzz")
[配置脚本]^C^C^Pmksld
[运行脚本]^C^C^Pyxjb
[--]
[pop2]$p2=*
[渲染工具]^C^C^Pxrgj
[图框工具]^C^C^Ptkgj
[打印工具]^C^C^P(load"pdf")
[--]
[对话框调试]^C^C^PLD
[--]
[五金手册]^C^C^P(startapp "C:/Program Files/Microsoft Office/Office/EXCEL.EXE" (findfile"五金手册.xls"))
[x.mns编辑]^C^C^P(startapp "C:/Program Files/Windows NT/Accessories/wordpad.exe" (findfile"x.mns"))
[acad.lsp编辑]^C^C^P(startapp "C:/Program Files/Windows NT/Accessories/wordpad.exe" (findfile"acad.lsp"))
[幻灯片管理]^C^C^P(startapp (findfile"CADSlide.exe"))
[--]
[->临时程序1]
  [虚拟线]^C^C^P(if(not c:xnx)(load"xnx")) xnx
  [getAllProfiles]^C^C^P(load"getAllProfiles") getAllProfiles
  [插入时间和日期]^C^C^P(if(not c:inttime)(load"inttime")) inttime
  [单线变双]^C^C^P(if(not c:x2)(load"x2")) x2
  [尺寸剪短]^C^C^P(if(not c:hfcc)(load"hfcc")) hfcc
  [羊吃草]^C^C^P(if(not c:ycc)(load"ycc")) ycc
  [高程标注]^C^C^P(if(not c:gc)(load"gaocheng")) gc
  [埋深标注]^C^C^P(if(not c:msbz)(load"gaocheng")) msbz
  [显示日期]^C^C^P(if(not c:riqi)(load"riqi")) riqi
  [块统计及制表]^C^C^P(if(not c:ktj)(load"ktj")) ktj
  [曲线距离]^C^C^P(if(not c:qxdist)(load"qxdist")) qxdist
  [风扇]^C^C^P(if(not c:fs)(load"FS")) fs
  [粗糙符号]^C^C^P(if(not c:czfh)(load"czfh")) czfh
  [层写块]^C^C^P(if(not c:cxk)(load"cxk")) cxk
  [图块统计]^C^C^P(if(not c:calblk)(load"CalBlk")) CalBlk
  [铁路线]^C^C^P(if(not c:tielu)(load"TIELU")) TIELU
  [圆弧变尖角]^C^C^P(if(not c:bjj)(load"bjj")) bjj
  [高程增减]^C^C^P(if(not c:gczj)(load"gczj")) gczj
  [坐标输出]^C^C^P(if(not c:zbsc)(load"zbsc")) zbsc
  [去除重线]^C^C^P(if(not c:qccx)(load"qccx")) qccx
  [写块]^C^C^P(if(not c:xk)(load"xiekuai")) xk
  [弧长标注]^C^C^P(if(not c:dimlong)(load"dimlong")) dimlong
  [线转pline]^C^C^P(if(not c:2pl)(load"2pl"));2pl
  [坡度旋转]^C^C^P(if(not c:pdxz)(load"pdxz"));pdxz
  [平行垂直]^C^C^P(if(not c:pxcz)(load"pxcz"));pxcz
  [<-转pdf]^C^C^P(if(not c:pdf)(load"pdf"));pdf
[->test系列程序01～30]
  [1-线段总长]^C^C^P(if(not c:test001)(load"test001"));test001
  [2-打碎黄色多义线]^C^C^P(if(not c:test002)(load"test002"));test002
  [3-改字母大小写]^C^C^P(if(not c:test003)(load"test003"));test003
  [4-炸碎文字]^C^C^P(if(not c:test004)(load"test004"));test004
  [5-字按线对齐]^C^C^P(if(not c:test005)(load"test005"));test005
  [6-面积求和]^C^C^P(if(not c:test006)(load"test006"));test006
  [7-打断插文字]^C^C^P(if(not c:test007)(load"test007"));test007
  [8-改多圆半径]^C^C^P(if(not c:test008)(load"test008"));test008
  [9-剖切号]^C^C^P(if(not c:test009)(load"test009"));test009
  [10-多义线顶点坐标]^C^C^P(if(not c:test010)(load"test010"));test010
  [11-反BREAK]^C^C^P(if(not c:test011)(load"test011"));test011
  [12-圆心坐标到定线垂长]^C^C^P(if(not c:test012)(load"test012"));test012
  [13-标注加前置词]^C^C^P(if(not c:test013)(load"test013"));test013
  [14-Pline圆弧标注]^C^C^P(if(not c:test014)(load"test014"));test014
  [15-批量删除短线]^C^C^P(if(not c:test015)(load"test015"));test015
  [16-圆环数量及选集]^C^C^P(if(not c:test016)(load"test016"));test016
  [17-图纸信息]^C^C^P(if(not c:test017)(load"test017"));test017
  [18-后缀值累加]^C^C^P(if(not c:test018)(load"test018"));test018
  [19-三边长求面积]^C^C^P(if(not c:test019)(load"test019"));test019
  [20-文本加括号]^C^C^P(if(not c:test020)(load"test020"));test020
  [21-连续图号]^C^C^P(if(not c:test021)(load"test021"));test021
  [22-比值计算]^C^C^P(if(not c:test022)(load"test022"));test022
  [23-横线切竖线]^C^C^P(if(not c:test023)(load"test023"));test023
  [24-定线长中点]^C^C^P(if(not c:test024)(load"test024"));test024
  [25-多义线长度逐段累加赋值]^C^C^P(if(not c:test025)(load"test025"));test025
  [26-反圆角]^C^C^P(if(not c:test026)(load"test026"));test026
  [27-转转转]^C^C^P(if(not c:test027)(load"test027"));test027
  [28-多圆内外偏移]^C^C^P(if(not c:test028)(load"test028"));test028
  [29-连接多线]^C^C^P(if(not c:test029)(load"test029"));test029
  [30-显示A～Z]^C^C^P(if(not c:test030)(load"test030"));test030
  [<-]
[->test系列程序31～60]
  [31-pline不倒角]^C^C^P(if(not c:test031)(load"test031"));test031
  [32-线起点、终点]^C^C^P(if(not c:test032)(load"test032"));test032
  [33-动态矩形面积]^C^C^P(if(not c:test033)(load"test033"));test033
  [34-两线端点连线的中心线]^C^C^P(if(not c:test034)(load"test034"));test034
  [35-同层成组]^C^C^P(if(not c:test035)(load"test035"));test035
  [36-]^C^C^P(if(not c:test036)(load"test036"));test036
  [37-]^C^C^P(if(not c:test037)(load"test037"));test037
  [38-]^C^C^P(if(not c:test038)(load"test038"));test038
  [39-]^C^C^P(if(not c:test039)(load"test039"));test039
  [40-]^C^C^P(if(not c:test040)(load"test040"));test040
  [41-]^C^C^P(if(not c:test041)(load"test041"));test041
  [42-]^C^C^P(if(not c:test042)(load"test042"));test042
  [43-]^C^C^P(if(not c:test043)(load"test043"));test043
  [44-]^C^C^P(if(not c:test044)(load"test044"));test044
  [45-]^C^C^P(if(not c:test045)(load"test045"));test045
  [46-]^C^C^P(if(not c:test046)(load"test046"));test046
  [47-]^C^C^P(if(not c:test047)(load"test047"));test047
  [48-]^C^C^P(if(not c:test048)(load"test048"));test048
  [49-]^C^C^P(if(not c:test049)(load"test049"));test049
  [50-]^C^C^P(if(not c:test050)(load"test050"));test050
  [51-]^C^C^P(if(not c:test051)(load"test051"));test051
  [52-]^C^C^P(if(not c:test052)(load"test052"));test052
  [53-]^C^C^P(if(not c:test053)(load"test053"));test053
  [54-]^C^C^P(if(not c:test054)(load"test054"));test054
  [55-]^C^C^P(if(not c:test055)(load"test055"));test055
  [56-]^C^C^P(if(not c:test056)(load"test056"));test056
  [57-]^C^C^P(if(not c:test057)(load"test057"));test057
  [58-]^C^C^P(if(not c:test058)(load"test058"));test058
  [59-]^C^C^P(if(not c:test059)(load"test059"));test059
  [60-]^C^C^P(if(not c:test060)(load"test060"));test060
  [<-]
[->临时程序3]
  [公式曲线]^C^C^P(if(not c:CFOR)(load"CFOR"));CFOR
  [坡度坡长]^C^C^P(if(not c:pdpc)(load"pdpc"));PDPC
  [云线灌木]^C^C^P(if(not c:bush)(load"bush"));bush
  [楼梯剖面]^C^C^P(if(not c:ltpm)(load"ltpm"));ltpm
  [中心线]^C^C^P(if(not c:zxx)(load"zxx"));zxx
  [极坐标]^C^C^P(if(not c:jzb)(load"jzb"));jzb
  [文件加密]^C^C^P(if(not c:Lockup)(load"Lockup"));Lockup
  [翻滚动画]^C^C^P(if(not c:fg)(load"fg"));fg
  [蹦蹦球动画]^C^C^P(if(not c:bbq)(load"bbq"));bbq
  [蹦蹦球动画1]^C^C^P(if(not c:bbq1)(load"bbq1"));bbq1
  [疯狂图形动画]^C^C^P(if(not c:fktx)(load"fktx"));fktx
  [方块修剪]^C^C^P(if(not c:cut)(load"cut"));cut
  [随机数]^C^C^P(if(not c:sjsh)(load"sjsh"));sjsh
  [随机点]^C^C^P(if(not c:sjd)(load"sjsh"));sjd
  [随机点动画]^C^C^P(if(not c:dh01)(load"sjsh"));dh01
  [短线集]^C^C^P(if(not c:sline)(load"sline"));sline
  [狂想曲动画]^C^C^P(if(not c:kxq)(load"kxq"));kxq
  [星光动画]^C^C^P(if(not c:xg)(load"xg"));xg
  [<-]
[--]
[Visual LISP程序编辑]^C^C^Pvlide
[--]
[编译lsp]^C^C^Pbylsp
[编译lss]^C^C^Pbylss
[插块]-insert;上;\;;;
[/php]

cqf1980

我好好研究一下,