Another way is to type:
Command: la -LAYER
Current layer: "hid"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAt
e]:
off
Enter name list of layer(s) to turn off or <select objects>: Here just hit
the Enter key and start selecting objects. You can use any selection
method. Single selection, Crossing window, Crossing Polygon, whatever!
Select objects: 1 found
Select objects: Specify opposite corner: 3 found, 4 total
Select objects:
Really want layer "hid" (the CURRENT layer) off? <N> y
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAt
e]:
--
Bill DeShawn
bdes...@prodigy.net
http://pages.prodigy.net/bdeshawn/bdeshawn.htm
"Eddie Myers" <hhen...@ftc-i.net> wrote in message
news:9gdvcs$d0hk$1...@news3.infoave.net...
(Defun errhand (err)
(If (/= err "Function cancelled")
(Princ
(Strcat "\nError: " err)
)
)
(Setvar "CMDECHO" 1)
(Setq *Error* Nil)
(Prin1)
)
(Defun C:LO (/ SS EN ED LA)
(Setvar "CMDECHO" 0)
(Setq *Error* errhand)
(MenuCmd "S=SELECT")
(Princ
"Turn layer(s) off by selecting objects."
)
(Setq SS (SsGet))
(While (> (SsLength SS) 0)
(Setq
EN (SsName SS 0)
ED (EntGet EN)
LA (CDR (Assoc 8 ED))
)
(If (/= LA (GetVar "CLAYER"))
(Command ".LAYER" "OFF" LA "")
(Prompt
"\nCurrent layer will not be turned off!"
)
)
(SsDel EN SS)
)
(Setvar "CMDECHO" 1)
(Setq *Error* Nil)
(Princ)
)
--
Regards, Bernd
Designer
Burris Savvy Optics
http://www.burrisoptics.com/
--
Thanks,
Eddie Myers
"WILLIAM J DESHAWN" <BDES...@prodigy.net> wrote in message
news:9ghjsg$3l5k$1...@newssvr06-en0.news.prodigy.com...
[->&Pick]
ID_OLayerOff [&Off]*^C^C_setenv Temp1 $M=$(getvar,clayer) ^P_ai_molc
\^P_-layer _off "$M=$(getvar,clayer) _y _s $(getenv,temp1) "
ID_OLayerC [&Color]*^C^C_setenv Temp1 $M=$(getvar,clayer) ^P_ai_molc
\^P_-layer _c \"$M=$(getvar,clayer) _s $(getenv,temp1) "
ID_OLayerF [&Freeze]*^C^C_setenv Temp1 $M=$(getvar,clayer) ^P_ai_molc
\^P_-layer _s "$M=$(getenv,temp1) _f $(getvar,clayer) "
ID_OLayerLo [&Lock]*^C^C_setenv Temp1 $M=$(getvar,clayer) ^P_ai_molc
\^P_-layer _lo "$M=$(getvar,clayer) _s $(getenv,temp1) "
ID_OLayerU [&Unlock]*^C^C_setenv Temp1 $M=$(getvar,clayer) ^P_ai_molc
\^P_-layer _u "$M=$(getvar,clayer) _s $(getenv,temp1) "
ID_OLayerIso [&Isolate]^C^C^P_ai_molc \^P_-layer _off * ;
ID_OLayerEd [<-&Edit]^C^C_setenv Temp1 $M=$(getvar,clayer) ^P_ai_molc
\^P_-layer _lo * _u "$M=$(getvar,clayer) _s $(getenv,temp1) "
--
Mark
http://www.lt-solutions.com
(Batch Processing / MEP Drafting for AutoCAD LT®)
Eddie Myers <hhen...@ftc-i.net> wrote in message
news:9h17r6$tt7$1...@news3.infoave.net...
> And 3rdly I was hoping this same <select> option is available in the
VPLAYER
> command.
[->&Pick Layer]
ID_VpOLayerF [&Freeze]*^C^C^P_ai_fms _ai_molc \^P_setenv Temp1
$M=$(getvar,clayer) _-layer _t 0 _s 0 _vplayer _f "$M=$(getenv,temp1)"
ID_VpOLayerD [<-&Set Default]*^C^C^P_ai_fms _ai_molc \^P_setenv Temp1
$M=$(getvar,clayer) _vplayer _v "$M=$(getenv,temp1)"
--
Mark
http://www.lt-solutions.com
(Batch Processing / MEP Drafting for AutoCAD LT®)
>
Take the
Mark Gonzales <mgon...@lt-solutions.com> wrote in message
news:9h208n$a0l$1...@sshuraaa-i-1.production.compuserve.com...
--
Thanks,
Eddie Myers
"Mark Gonzales" <mgon...@lt-solutions.com> wrote in message
news:9h20ce$a38$1...@sshuraaa-i-1.production.compuserve.com...
--
Thanks,
Eddie Myers
"Bernd A. Hoffmann" <behof...@burrisoptics.com> wrote in message
news:3B2E58A3...@burrisoptics.com...
--
Thanks,
Eddie Myers
"Richard Abney" <rab...@sc.rr.com> wrote in message
news:f%WY6.66757$ru2.20...@typhoon.southeast.rr.com...
(load "LO") ... to load it,
LO ... to run it.
___
"Eddie Myers" <hhen...@ftc-i.net> wrote in message
news:9h2at0$1p5u$1...@news3.infoave.net...
--
Thanks,
Eddie Myers
"Paul Turvill" <nos...@turvill.com> wrote in message
news:tj9d9mi...@corp.supernews.com...
--
Thanks,
Eddie Myers
"Paul Turvill" <nos...@turvill.com> wrote in message
news:tj9qlik...@corp.supernews.com...
Well, no. This is not LISP and it does work with LT. Same as this:
ID_LabelLine [La&bel Line]*^C^C_setenv Label \_ucs _ob _nea,_mid \_ai_molc
_non @ _break _non
@$M=$(*,$(getvar,textsize),$(+,$(*,$(strlen,$(getenv,label)),.5),.5))<0 _non
@$(*,$(getvar,textsize),$(+,$(strlen,$(getenv,label)),1))<180 _-insert
Base/Dwg/Label_2 _non
@$(*,$(getvar,textsize),$(*,$(+,$(strlen,$(getenv,label)),1),.5))<0
$(getvar,textsize)
$(getenv,label);$(if,$(or,$(<,$(index,0,$(getvar,ucsxdir)),0),$(<,$(index,1,
$(getvar,ucsydir)),0),$(=,$(index,1,$(getvar,ucsxdir)),-1)),_rotate _l _non
@ 180 )
This is a single DIESEL macro. In this case, the macro ask you for a label
value. Then it breaks the selected line the number of characters entered in
your label, and then inserts an attributed block named "Label_2" at the
center of the break on the line's layer and angle (to be read horizontally
or right-read), but reflecting layer "Label", assuming your attribute was
created on layer "Label".
------ MARK ------- GONZALES ---------
However, if you want LISP in LT, check out LT Toolkit at www.drcauto.com.
Great program, IMO!
--
Mark
http://www.lt-solutions.com
(Batch Processing / MEP Drafting for AutoCAD LT®)
--
Thanks,
Eddie Myers
"Mark Gonzales" <mgon...@lt-solutions.com> wrote in message
news:9h336b$6mu$1...@sshuraaa-i-1.production.compuserve.com...
A few rules of thumb:
Every diesel function in your .MNS starts with with an ID tag, in this case
"ID_LabelLine". This is not case sensitive. If you are adding a diesel
function using the toolbar editor, your don't enter the ID.
The "*" says to repeat the function multiple times. Please note that this
doesn't work for all diesel. If the diesel function is interpreted by the
diesel interpreter as a single, complete command, the entire command repeats.
Otherwise just the initial part repeats.
"\" says pause for the user to select something.
"$M=$(" tells the interpreter to evaluate what comes after this string and
return a value.
"ai_molc" makes the selected layer the current layer.
To run a standard AutoCAD command, first run the command line version of the
command and write down the steps you take. The sequence for Diesel will be
essentially the same. If you have to select with the mouse, enter a "\".
Whenever you press Enter, insert a space or semicolon.
Good luck.
Martin
--
"Bernd A. Hoffmann" <behof...@burrisoptics.com> wrote in message
news:3B2E58A3...@burrisoptics.com...
--
Tim Skene
PRO Menu - The Productivity Toolbox for AutoCAD
www.multicim.com/pmenu.html