// AutoCAD菜單文件-C:\ Program Files \ AutoCAD 2012 \ AC _ WEI _ 2012 \ AC _ WEI . MnS
//
***MENUGROUP=AC_wei
***POP1
[AC_wei]
ID _ weit kttb[標準繪圖框架&；K)]^C^C^Ctktb
[ - ]
ID _ Wei text[-& gt；& amp正文]
ID _ Wei 35[& amp；3.5mm]^c^c^ctext \(* 3.5(getvar " useri 1 "))；
ID _ Wei 50[& amp；5.0mm]^c^c^ctext \(* 5.0(getvar " useri 1 "))；
ID _ Wei 70[& amp；7.0mm]^c^c^ctext \(* 7.0(getvar " useri 1 "))；
ID _ weid text[T & amp；ext]^C^C^Ctext
[ - ]
ID _ Wei textp[多行文本(&；P)]^C^C^Ctextp
ID _ WeiAsctext[輸入文本(&；I)]^C^C^C(if(空C:asctext)(加載“ASC text”))ASC text
ID _ WeiOuttext[輸出文本(&；O)]^C^C^Couttext
[ - ]
ID _ Wei numb[序列號(&；N)]^C^C^Cnumb
ID _ Wei sign[& lt；-數字(&；S)]^C^C^Csign
ID _ WeiDim[-& gt；& amp維度]
ID _ Wei large[大號(&；l)]^c^c^cdim·迪馬斯(* 3.0(getvar " useri 1 "))dim xe(* 3(getvar " useri 1 "))dim txt(* 4.2(getvar " useri 1 "))
ID _ Wei medium[中等大小(&；m)]^c^c^cdim·迪馬斯(* 2.5(getvar " useri 1 "))dim xe(* 2(getvar " useri 1 "))dim txt(* 3.5(getvar " useri 1 "))
ID _ Wei small[小尺寸(&；s)]^c^c^cdim·迪馬斯(* 2.0(getvar " useri 1 "))dim xe(* 1(getvar " useri 1 "))dim txt(* 2.8(getvar " useri 1 "))
[ - ]
ID _ WeiDimTick[斜杠樣式(&；t)]^c^c^cdim·迪馬斯(* 2.5(getvar " useri 1 "))dim blk tickm dimexe(* 2(getvar " useri 1 "))dim txt(* 3.5(getvar " useri 1 "))
ID _ weidi marrow[箭頭樣式(&；a)]^c^c^cdim·迪馬斯(* 2.5 (getvar "USERI1 "))迪姆布洛克。dimexe(* 2(getvar " useri 1 "))dim txt(* 3.5(getvar " useri 1 "))
ID _ WeiDimDot[點樣式(&；o)]^c^c^cdim dimasz(* 1.0(getvar " useri 1 "))dim blk dot dimexe(* 1(getvar " useri 1 "))dim txt(* 2.8(getvar " useri 1 "))
[ - ]
ID _ 1 _ _ _ _ _ _ _ _ _ 0[& amp；1小數位] ]^C^C^CDIMDEC 1+0
ID _ 0 _ _ _ _ _ _ _ _ _ 0[& amp；0小數位] c c CDI mdec0
ID _ WeiScale[& lt；-尺寸比(&；c)]^c^c^cdim·迪姆法克
ID _ Wei table[-& gt；T & amp能幹]
ID _ Wei index[卷目錄(&；I)]^C^C^Climits 0，0 430，297 zoom a(setvar " useri 1 " 1)insert * index 0，0 1.0；
ID _ WeiHq[會簽圖標(&；h)]^c^c^c-insert * sign \(getvar " useri 1))；
ID _ Wei curve[安裝曲線表(&；C)]^C^C^C(if(空c:曲線) (負載“曲線”))曲線
ID _ Wei fortz[張力計算表(&；T)]^C^C^C(if(空C:fortz)(加載“fortz”))fortz
[ - ]
ID _ WeiMate[物料清單(&；M)]^C^C^Cmtable \0
ID _ Wei matel[燈光表(&；L)]^C^C^Cmtable \1
ID _ Wei frame[素材框(&；F)]^C^C^Cframe
[ - ]
ID_WeiMates【小料列表(&；S)]^C^C^Cmtable \2
ID_WeiMatels【小燈光表(&；Z)]^C^C^Cmtable \3
[ - ]
ID _ Wei tableb[& lt；-表格和材料清單(&；b)]^c^c^c-insert * table \(getvar " useri 1))；
ID _ Wei power[-& gt；& amp動力]
ID _ Wei cline[wire(&；C)]^C^C^Ccline
ID _ Wei tube[埋管(&；T)]^C^C^Ctube
ID _ WeiScdzp[端子排(&；D)]^C^C^Cscdzp
ID _ WeiZH組合導體(&；z)]*^c^c^cmeasure \ b；zh；；2000
ID _ weig round[接地母線(&；G)]^C^C^Cground
ID _ WeiSafe[安全凈距(&；S)]^C^C^Csafe
[ - ]
ID _ Wei main[-& gt；主接線(&；M)]
ID _ _ _ _ _ _ _ _ _ _ _雙總線下傳出]c c(if(null c:Abd)(load“ab”))Abd
ID _ _ _ _ _ _ _ _ _ _ _ _ _ _ 1[& lt；-& lt；-雙母線上的出線]c c(if(null c:Abu)(load " ab "))Abu
ID _ WeiRod[-& gt；& ampRod]
id _ _ _ _ _ _ _ _ _ f _ _ 0[數據文件(&；F)]^C^C(if(空c:rod)(load“rod”)(find rod)
id _ _ _ _ _ _ _ _ n _ _ 0[project & amp(&；N)]^C^C( rodName rodFile)
id _ _ _ _ _ _ _ _ c _ _ 0[坐標高度(&；c)]^c^c(·羅德科德
id _ _ _ _ _ _ _ _ d _ _ 0[單針拉絲(&；d)]^c^c(·羅德迪斯特·羅德菲勒·羅德Org)
id _ _ _ _ _ _ _ _ _ e _ _ 0[多針外設(&；e)]^c^c(·羅德克斯特
id _ _ _ _ _ _ _ _ I _ _ 0[多針內部(&；i)]^c^c(·羅丹
id _ _ _ _ _ _ _ _ _ s _ _ 0[單針填寫表格(&；S)]^C^C(桿單桿文件)
id _ _ _ _ _ _ _ _ m _ _ 0[多針表格填充(&；M)]^C^C( rodMulti rodFile)
[ - ]
ID _ _ _ _ _ _ _ _ A _ _ 0[& lt；-All(&；A)]^C^C(if(空c:rod)(加載“rod”))桿
ID _ Wei civil[-& gt；& amp民用]
ID _ Wei wall[fence(&；W)]^C^C^Cwall
ID _ Wei road[road(&；R)]^C^C^Croad
id _ Wei height[高程(&；H)]^C^C^Cheight
ID _ Wei earth[floor(&；E)]^C^C^C-insert地球\(getvar " useri 1))；；
ID _ WeiHf[weld(&；F)]^C^C^Chf
ID _ weid axis[軸網(&；D)]^C^C^C(if(空c:daxis)(加載“daxis”))daxis
ID _ Wei north[指南針(&；N)]^C^C^Cnorth
ID _ weic rect[& lt；-中心矩形(&；C)]^C^C^Ccrect
ID _ WeiTools[-& gt；T & ampools]
ID _ WEiLtygen[線性化(&；l)]*^c^cpedit；開；；
ID _ WeiCut[剖面線(&；C)]^C^C^Ccut
ID _ WeiMateId[標簽材料(&；M)]^C^C^CMateId
ID _ weire wid[更改線條寬度(&；R)]^C^C^Crewid
ID _ WeiSsx[分類選擇(&；S)]^C^C^Cssx
ID _ WeiLeng[多義線長(&；P)]^C^C^CLeng
id _ weidlelayer[刪除壹個層(&；D)]^C^C^Cdellayer
ID _ Wei arrow[& lt；-部分符號(&；A)]^C^C^Carrow
[ - ]
ID _ WeiDevelop[-& gt；二次開發(&；E)]
id _ tktb _ _ _ 0[幀]^C^C^C(load "frame.lsp ")幀
[ - ]
ID _ ent get _ _ _ 0[E & amp；ntget ]^C^C(entget(汽車(entsel)))
ID _ ent next _ _ 0[& lt；-恩特內& ampXT ]^c^c(entget(entnext(car(entsel))))
//
//AutoCAD菜單文件結尾-C:\ Program Files \ AutoCAD 2012 \ AC _ WEI _ 2012 \ AC _ WEI . MnS
//
參考上面的例子，編寫自己的菜單文件，然後執行命令:menuload。
所有自己編譯的lisp命令都要放在文件ac_wei.mnl裏，也就是*。mns和*。mnl應該有相同的文件名。