lisp类似常青藤菜单_在autocad里面，我编写了很多lisp命令，我想新增一个菜单工具栏(如：文件(F),编辑(E)，视图(V)......),然...

展开全部

//

// AutoCAD menu file - C:\Program Files\AutoCAD 2012\AC_WEI_2012\ac_WEI.mns

//

***MENUGROUP=AC_wei

***POP1

[AC_wei]

ID_WeiTktb [标准图框(&K)]^62616964757a686964616fe78988e69d8331333332633566C^C^Ctktb

[--]

ID_WeiText [->&Text]

ID_Wei35 [&3.5mm]^C^C^Ctext \(* 3.5 (getvar "USERI1")) ;

ID_Wei50 [&5.0mm]^C^C^Ctext \(* 5.0 (getvar "USERI1")) ;

ID_Wei70 [&7.0mm]^C^C^Ctext \(* 7.0 (getvar "USERI1")) ;

ID_WeiDtext [T&ext]^C^C^Ctext

[--]

ID_WeiTextp [多行文本(&P)]^C^C^Ctextp

ID_WeiAsctext [输入文本(&I)]^C^C^C(if ( null C:asctext ) ( load "asctext" )) asctext

ID_WeiOuttext [输出文本(&O)]^C^C^Couttext

[--]

ID_WeiNumb [序号(&N)]^C^C^Cnumb

ID_WeiSign [

ID_WeiDim [->&Dimension]

ID_WeiLarge [大尺寸(&L)]^C^C^Cdim dimasz (* 3.0 (getvar "USERI1")) dimexe (* 3 (getvar "USERI1")) dimtxt (* 4.2 (getvar "USERI1"))

ID_WeiMedium [中尺寸(&M)]^C^C^Cdim dimasz (* 2.5 (getvar "USERI1")) dimexe (* 2 (getvar "USERI1")) dimtxt (* 3.5 (getvar "USERI1"))

ID_WeiSmall [小尺寸(&S)]^C^C^Cdim dimasz (* 2.0 (getvar "USERI1")) dimexe (* 1 (getvar "USERI1")) dimtxt (* 2.8 (getvar "USERI1"))

[--]

ID_WeiDimTick [斜线式样(&T)]^C^C^Cdim dimasz (* 2.5 (getvar "USERI1")) dimblk tickm dimexe (* 2 (getvar "USERI1")) dimtxt (* 3.5 (getvar "USERI1"))

ID_WeiDimArrow [箭头式样(&A)]^C^C^Cdim dimasz (* 2.5 (getvar "USERI1")) dimblk . dimexe (* 2 (getvar "USERI1")) dimtxt (* 3.5 (getvar "USERI1"))

ID_WeiDimDot [圆点式样(&O)]^C^C^Cdim dimasz (* 1.0 (getvar "USERI1")) dimblk dot dimexe (* 1 (getvar "USERI1")) dimtxt (* 2.8 (getvar "USERI1"))

[--]

ID_1_______0 [&1位小数]^C^C^CDIMDEC 1

ID_0_______0 [&0位小数]^C^C^CDIMDEC 0

ID_WeiScale [

ID_WeiTable [->T&able]

ID_WeiIndex [卷册目录(&I)]^C^C^Climits 0,0 430,297 zoom a (setvar "USERI1" 1) insert *index 0,0 1.0 ;

ID_WeiHq [会签图标(&H)]^C^C^C-insert *sign \(getvar "USERI1") ;

ID_WeiCurve [安装曲线表(&C)]^C^C^C(if ( null C:curve ) ( load "curve" )) curve

ID_WeiFortz [拉力计算表(&T)]^C^C^C(if ( null C:fortz ) ( load "fortz" )) fortz

[--]

ID_WeiMate [材料表(&M)]^C^C^Cmtable \0

ID_WeiMatel [照明表(&L)]^C^C^Cmtable \1

ID_WeiFrame [材料方框(&F)]^C^C^Cframe

[--]

ID_WeiMates [小材料表(&S)]^C^C^Cmtable \2

ID_WeiMatels [小照明表(&Z)]^C^C^Cmtable \3

[--]

ID_WeiTableB [

ID_WeiPower [->&Power]

ID_WeiCline [导线(&C)]^C^C^Ccline

ID_WeiTube [埋管(&T)]^C^C^Ctube

ID_WeiScdzp [端子排(&D)]^C^C^Cscdzp

ID_WeiZH [组合导线(&Z)]*^C^C^Cmeasure \b;zh;;2000

ID_Weiground [接地母线(&G)]^C^C^Cground

ID_WeiSafe [安全净距(&S)]^C^C^Csafe

[--]

ID_WeiMain [->主接线(&M)]

ID_______________0 [双母线 下出线]^C^C(if (null c:abD) (LOAD"ab")) abD

ID_______________1 [

ID_WeiRod [->&Rod]

ID__________F__0 [数据文件(&F)]^C^C(if (null c:rod) (load "rod" )) (Findrod)

ID__________N__0 [工程名 (&N)]^C^C( rodName rodFile )

ID__________C__0 [座标高度(&C)]^C^C( rodCoord rodFile rodOrg )

ID__________D__0 [单针绘图(&D)]^C^C( rodDist rodFile rodOrg )

ID__________E__0 [多针外围(&E)]^C^C( rodExt rodFile rodOrg )

ID__________I__0 [多针内部(&I)]^C^C( rodIn rodFile rodOrg )

ID__________S__0 [单针填表(&S)]^C^C( rodSingle rodFile )

ID__________M__0 [多针填表(&M)]^C^C( rodMulti rodFile )

[--]

ID________A__0 [

ID_WeiCivil [->&Civil]

ID_WeiWall [围墙(&W)]^C^C^Cwall

ID_WeiRoad [道路(&R)]^C^C^Croad

ID_WeiHeight [标高(&H)]^C^C^Cheight

ID_WeiEarth [地坪(&E)]^C^C^C-insert earth \(getvar "USERI1") ;;

ID_WeiHf [焊缝(&F)]^C^C^Chf

ID_WeiDaxis [轴线网(&D)]^C^C^C(if (null c:daxis) (load "daxis")) daxis

ID_WeiNorth [指北针(&N)]^C^C^Cnorth

ID_WeiCrect [

ID_WeiTools [->T&ools]

ID_WEiLtygen [线型化(&L)]*^C^Cpedit \L;ON;;

ID_WeiCut [断面线(&C)]^C^C^Ccut

ID_WeiMateId [标注材料(&M)]^C^C^CMateId

ID_WeiRewid [更改线宽(&R)]^C^C^Crewid

ID_WeiSsx [分类选择(&S)]^C^C^Cssx

ID_WeiLeng [多义线长(&P)]^C^C^CLeng

ID_WeiDellayer [删除某层(&D)]^C^C^Cdellayer

ID_WeiArrow [

[--]

ID_WeiDevelop [->二次开发(&E)]

ID_tktb___0 [Frame ]^C^C^C(load "frame.lsp") frame

[--]

ID_Entget___0 [E&ntget ]^C^C(entget (car (entsel)))

ID_Entnext__0 [

//

// End of AutoCAD menu file - C:\Program Files\AutoCAD 2012\AC_WEI_2012\AC_wei.mns

//

参照上例，编写你自己的菜单文件，然后执行命令：menuload。

所有的自编lisp命令，放到文件ac_wei.mnl里，即*.mns与*.mnl要有相同的文件名。

已赞过

已踩过<

你对这个回答的评价是？

评论

收起