Cupones de divisas
// Archivo de menú de AutoCAD-C:\Program Files\AutoCAD 2012\AC_WEI_2012\AC_WEI.MnS
//
***MENUGROUP= AC_wei
***POP1
[AC_wei]
ID _ weit kttb[Marco de dibujo estándar&K)]^C ^C^Ctktb
[ - ]
ID _ Wei texto[-& gt;& amp texto]
ID _ Wei 35[& 3.5 mm]^c^c^ctext \(* 3.5(getvar " usuario 1 "));
ID _ Wei 50[& 5.0mm]^c^c^ctext \(* 5.0( getvar " usuario 1 "));
ID _ Wei 70[& 7.0mm]^c^c^ctext \(* 7.0(getvar " useri 1 "));
ID _ weid text[T & text]^C^C ^Ctext
[ - ]
ID _ Wei textp[Texto multilínea(&P)] ^C^C^Ctextp
ID _ WeiAsctext[texto de entrada( &;I)]^C^C^C(if(vacío C:asctext)(cargar "texto ASC"))Texto ASC
ID _ WeiOuttext[Texto de salida(&O)]^C^C ^Couttext
[ - ]
ID _ Wei entumecido[Número de serie(& ;N)]^C^C^Cnumb
ID _ Signo de Wei[ <-Número (&S)]^C^C^Csign
ID _ WeiDim[ ->& dimensión]
ID_Wei grande[grande(&l)]^c^c ^cdim·dimas(*3.0(getvar "useri 1"))dim xe(* 3(getvar "useri 1 "))dim txt(* 4.2(getvar "useri 1 "))
ID _ Wei mediano[tamaño mediano(&m)]^c^c^ cdim·dimas(* 2.5(getvar " useri 1 "))dim xe(* 2(getvar " useri 1 "))dim txt(* 3.5(getvar " useri 1 "))
ID _ Wei pequeño[tamaño pequeño(&;s)]^c^c^cdim·dimas(* 2.0(getvar " useri 1 "))dim xe(* 1(getvar " usuario 1 "))dim txt(* 2.8(getvar " usuario 1 "))
[ - ]
ID _ WeiDimTick[estilo de barra diagonal (&t)]^c^c ^cdim·Dimas( * 2.5(getvar " usuario 1 "))dim blk tickm dimexe(* 2(getvar " usuario 1 "))dim txt(* 3.5(getvar " usuario 1 "))
ID _ weidi médula[ estilo de flecha(&a)]^c^c^cdim·dimas(*2.5 (getvar "USERI1")) dimbrock.
dimexe(* 2(getvar " usuario 1 "))dim txt(* 3.5(getvar " usuario 1 "))
ID _ WeiDimDot[estilo de punto (&o)]^c^c^cdim dimasz( * 1.0(getvar " usuario 1 "))dim blk dot dimexe(* 1(getvar " usuario 1 "))dim txt(* 2.8(getvar " usuario 1 "))
[ - ]
ID _ 1 _ _ _ _ _ _ _ _ _ 0[& 1 decimal] ]^C^C^CDIMDEC 1+0
ID _ 0 _ _ _ _ _ _ _ _ _ 0[&0 decimales] c c CDI mdec0
ID _ WeiScale[<-size ratio(&c)]^c^c^cdim·di Mfak
Tabla ID_Wei[->T & capaz]
Índice ID_Wei[Directorio de volúmenes(&I)]^C^C^Climits 0, 0 430, 297 zoom a(setvar "useri 1 " 1)insertar * índice 0, 0 1.0;
ID _ WeiHq[icono de contraseña (&;h)]^c^c^c- insertar * signo \(getvar "useri 1));
ID _ Curva Wei[Tabla de curvas de instalación (&C)]^C^C^C(if(c:curva vacía) (carga" Curva")) Curva
ID _ Wei fortz[cálculo de tensión tabla (&;T)]^C^C^C(if (vacío C: fortz) (cargar "fortz")) fortz
[ - ]
ID _ WeiMate[ Lista de materiales(&M)]^C^C^Cmtable \0
ID _ Wei matel[Mesa de iluminación( &;L)]^C^C^Cmtable \1
ID _ Marco Wei[marco de material (&;F)]^C^C^Cframe
[ - ]
ID_WeiMates【Lista de materiales pequeños(&S)]^C^C^ Cmtable \2
ID_WeiMatels【Mesa de luz pequeña(&Z)]^C^C^Cmtable \ 3
[ - ]
ID _ Wei tableb[< ;-Tabla y lista de materiales (&b)]^c^c^c-insert * table \(getvar " useri 1));
ID_Wei power[->& power]
ID_Wei cline[wire(&C)]^C^C^ Ccline
ID _ Wei tubo[tubo enterrado(&T)]^C^C^Ctube
ID _ WeiScdzp [regleta de terminales(&D)]^C^C ^Cscdzp
ID _ Conductor combinado WeiZH(&z)]*^c^c^cmeasure \ b;zh;;2000
ID _ weig round[bus de puesta a tierra(& ;G)]^C^C^Cground
ID _ WeiSafe[Separación segura (&;S)]^C^C^Csafe
[ - ]
ID _ Wei principal[->Cableado principal (&M)]
ID _ _ _ _ _ _ _ _ _ _Doble bus saliente]c c(if( nulo c:Abd)(cargar "ab")
)Abd
ID _ _ _ _ _ _ _ _ _ _ _ _ _ _ 1[<-<-Línea de salida en doble bus]c c(if(null c:Abu)( load " ab "))Abu
ID _ WeiRod[-& gt;& ampRod]
id _ _ _ _ _ _ _ _ _ f _ 0[archivo de datos ( &;F )]^C^C(if(vacío c:rod)(cargar "rod")(buscar varilla)
id _ _ _ _ _ _ _ _ n _ _ 0[proyecto & amp(& ;N)]^C^C( rodName rodFile)
id _ _ _ _ _ _ _ _ c _ _ 0[altura de coordenadas(&;c)]^c^c(· Rodcode
id _ _ _ _ _ _ _ _ d _ _ 0[Dibujo con una sola aguja (&;d)]^c^c(·roddister·rodefeller·rodOrg)
id _ _ _ _ _ _ _ _ _ e _ _ 0[Periférico multipin (&e)]^c^c(·Rodexter
id _ _ _ _ _ _ _ _ I _ _ 0[Multi- pin interno(&i)]^c^c(·Rodin
id _ _ _ _ _ _ _ _ _ s _ _ 0 [Forma de llenado con una sola aguja(&S)]^C^C(Varilla única file)
id _ _ _ _ _ _ _ _ m _ _ 0[Relleno de tabla de múltiples agujas(&M )]^C^C( rodMulti rodFile)
[ - ]
ID _ _ _ _ _ _ _ _ A _ _ 0[<-All(&;A )]^C^C(if(vacío c:rod)(cargar "rod"))rod
ID _ Wei civil[-& gt;& amp Civil]
ID _ Wei muro[cerca(&;W)]^C^C^Cpared
ID _ Wei carretera[carretera(&;R)]^C^C^Camino
id _ Wei altura[elevación(&H)]^C^C^Cheight
ID _ Wei tierra[suelo(&E)]^C^C^C-insertar tierra\(getvar " useri 1));;
ID _ WeiHf[soldadura(&;F)]^C^ C^Chf
ID _ weid eje[red de ejes(&;D)]^ C^C^C(if(vacío c:daxis)(cargar "daxis"))daxis
ID _ Wei norte[Brújula(&N)]^C^C^Cnorth
ID_weicrect[<-Rectángulo central(&C)]^C^C^Ccrect
ID_WeiTools [->T & ampools]
ID_WEiLtygen[Linearización(&;l)]*^c^cpedit;Abrir;;
ID_WeiCut[Hatch(&;C)]^ C^C^Ccut
p>ID _ WeiMateId[Material de etiqueta(&M)]^C^C^CMateId
ID _ weire wid[Cambiar ancho de línea(&R)]^ C^C^Crewid
ID _ WeiSsx[Selección de categoría(&S)]^C^C^Cssx
ID _ WeiLeng[Longitud de línea polisísmica(&P)]^C^C ^CLeng
id _ weidlelayer[Eliminar una capa(&;D)]^C^C^Cdellayer
>
ID _ Wei flecha[<-símbolo de parte (&A)]^C^C^Carrow
[ - ]
ID _ WeiDevelop[-& gt；Secundario desarrollo (&E)]
id _ tktb _ _ _ 0[frame]^C^C^C(load "frame.lsp ")frame
[ - ]
ID _ ent get _ _ _ 0[E & ntget ]^C^C(entget(car(entsel)))
ID _ ent next _ _ 0[<-Enten&XT] ^c^c(entget(entnext(car(entsel))))
//
//Archivo de menú de AutoCAD Finalizando -C:\Program Files\AutoCAD 2012\AC_WEI_2012\ AC_WEI.MnS
//
Consulte el ejemplo anterior, escriba su propio archivo de menú y luego ejecute el comando: menuload.
Todos los comandos lisp compilados por usted mismo deben colocarse en el archivo ac_wei.mnl, que es *. minutos y *. mnl debe tener el mismo nombre de archivo.