Acad 快捷键命令

;;; ===========****************==============;;; ACAD.LSP;;; COPYRIGHT (SRT) 1999 BY Maunsell Ltd.(Asia);;; ******************************************************* (DEFUN C:BB () (COMMAND "BREAK" pause "F" pause "@0,0") (PRINC))(defun c:c (/ gp) (setq gp (ssget)) (command "copy" gp "" "m")(prin1))(DEFUN C:3D () (COMMAND "3DFACE"))(DEFUN C:AAA () (COMMAND "AREA"))(DEFUN c:AA () (COMMAND "qsave"))(DEFUN C:AS () (COMMAND "MATCHPROP"))(DEFUN C:AR () (COMMAND "ARRAY"))(DEFUN C:AW () (COMMAND "ARRAY" "W"))(DEFUN C:BS () (COMMAND "BASE"))(DEFUN C:BM () (COMMAND "BLIPMODE"))(DEFUN C:B () (COMMAND "BLOCK"))(DEFUN C:Bc () (COMMAND "COPYBASE"))(DEFUN C:k () (COMMAND "BREAK"))(DEFUN C:CH () (COMMAND "CHCODE"))(DEFUN C:CA (/ G1) (SET G1 (SSGET)) (COMMAND "COPY" G1 "" "@")) (DEFUN C:CF () (COMMAND "CHAMFER"))(DEFUN C:CG () (COMMAND "CHANGE"))(DEFUN C:CGL () (COMMAND "CHANGE" "L"))(DEFUN C:CGW () (COMMAND "CHANGE" "W"))(DEFUN C:CP () (COMMAND "CHPROP"))(DEFUN C:CR () (COMMAND "CIRCLE"))(DEFUN C:CS () (COMMAND "COPY_TO_LAYER"))(DEFUN C:CO () (COMMAND "COLOUR"))(DEFUN C:DC () (COMMAND "DIST"))(DEFUN C:Cb () (COMMAND "Cla"))(DEFUN C:CLL () (COMMAND "COPY" "L" ""))(DEFUN C:CW () (COMMAND "COPY" "W"))(DEFUN C:DB () (COMMAND "DBLIST"))(DEFUN C:DY () (COMMAND "DELAY"))(DEFUN C:DIm () (COMMAND "DIM"))(DEFUN C:DH () (COMMAND "DIM" "HOR"))(DEFUN C:DV () (COMMAND "DIM" "VER"))(DEFUN C:DQ () (COMMAND "dimcontinue"))(DEFUN C:D () (COMMAND "DIST"))(DEFUN C:DU () (COMMAND "DIM" "UP") (PRINC))(DEFUN C:DI () (COMMAND "DIVIDE"))(DEFUN C:Dn () (COMMAND "DIM1" "NEW"))(DEFUN C:DT () (COMMAND "DTEXT"))(DEFUN C:DD () (COMMAND "DDEDIT"))(DEFUN C:DTT () (COMMAND "DDATTE"))(DEFUN C:DA20 () (COMMAND "DIM" "RESTORE" "DA20"))(DEFUN C:DA25 () (COMMAND "DIM" "RESTORE" "DA25"))(DEFUN C:DS () (COMMAND "DIM" "STATUS"))(DEFUN C:DL () (COMMAND "DIM1" "LEADER"))(DEFUN C:EV () (COMMAND "ELEV"))(DEFUN C:ELP () (COMMAND "ELLIPSE"))(DEFUN C:Ea () (COMMAND "MEASUREMENT"))(DEFUN C:E () (COMMAND "ERASE"))(DEFUN C:EALL () (COMMAND "ERASE" (SSGET "X" '()) "" )) (DEFUN C:EW () (COMMAND "ERASE" "W"))(DEFUN C:EL () (COMMAND "ERASE" "L" ""))(DEFUN C:EC () (COMMAND "ERASE" "C" ))(DEFUN C:EX () (COMMAND "EXTEND"))(DEFUN C:F () (COMMAND "FILLET"))(DEFUN C:Fe () (COMMAND "offset"))(DEFUN C:G () (COMMAND "GRID"))(DEFUN C:H () (COMMAND "HA TCH"))(DEFUN C:HD () (COMMAND "HIDE"))(DEFUN C:Q () (COMMAND "LINE"))(DEFUN C:LR () (COMMAND "LINE" "@"))(DEFUN C:LT () (COMMAND "LINETYPE"))(DEFUN C:LI () (COMMAND "LIST"))(DEFUN C:ff () (COMMAND "find"))(DEFUN C:LA () (COMMAND "LAYER"))(DEFUN C:LM () (COMMAND "LAYER" "M"))(DEFUN C:LS () (COMMAND "LAYER" "S"))(DEFUN C:GG () (COMMAND "LAYER" "ON" "*" ""))(DEFUN C:GB () (COMMAND "_GROUP"))(DEFUN C:LO () (COMMAND "LOAD"))(DEFUN C:LTS () (COMMAND "LTSCALE"))(DEFUN C:MS () (COMMAND "MEASURE"))(DEFUN C:MT () (COMMAND "MINSERT"))(DEFUN C:RR () (COMMAND "MIRROR"))(DEFUN C:V () (COMMAND "MOVE"))(DEFUN C:VV () (COMMAND "move" "p" "") (PRINC))(DEFUN C:MA (/ G1) (SET G1 (SSGET))(COMMAND "MOVE" G1 "" "@"))(DEFUN C:MW () (COMMAND "MOVE" "W"))(DEFUN C:MC () (COMMAND "MOVE" "C"))(DEFUN C:MD () (COMMAND "MSLIDE"))(DEFUN C:N () (COMMAND "POINT"))(DEFUN C:O () (COMMAND "OOPS"))(DEFUN C:OC () (COMMAND "OSNAP" "CENT")) (DEFUN C:OE () (COMMAND "OSNAP" "ENDP")) (DEFUN C:OB () (COMMAND "OSNAP" "INSERT")) (DEFUN C:O- () (COMMAND "OSNAP" "NON"))(DEFUN C:OM () (COMMAND "OSNAP" "MIDP")) (DEFUN C:OT () (COMMAND "OSNAP" "INTERSECTION"))(DEFUN C:OR () (COMMAND "OSNAP" "NEAR")) (DEFUN C:ON () (COMMAND "OSNAP" "NODE")) (DEFUN C:OP () (COMMAND "OSNAP" "PERP")) (DEFUN C:OQ () (COMMAND "OSNAP" "QUAD")) (DEFUN C:OTTT () (COMMAND "OSNAP" "TANG")) (DEFUN C:SS () (COMMAND "PAN"))(DEFUN C:PG () (COMMAND "PURGE"))(DEFUN C:LL () (COMMAND "QUIT"))(DEFUN C:QT () (COMMAND "PASTEBLOCK"))(DEFUN C:QQt () (COMMAND "PLAN"))(DEFUN C:R90 () (COMMAND "ROTA TE" PAUSE "" "@" "90")) (DEFUN C:R45 () (COMMAND "ROTA TE" PAUSE "" "@" "45")) (DEFUN C:RD () (COMMAND "REDO"))(DEFUN C:RO () (COMMAND "REDRAW"))(DEFUN C:RG () (COMMAND "REGEN"))(DEFUN C:RN () (COMMAND "RENAME"))(DEFUN C:RM () (COMMAND "RESUME"))(DEFUN C:R () (COMMAND "ROTATE"))(DEFUN C:Sc () (COMMAND "SCALE"))(DEFUN C:S5 () (COMMAND "SCALE" PAUSE "" "0.5")) (DEFUN C:SW () (COMMAND "SCALE" "W"))(DEFUN C:SCr () (COMMAND "SCRIPT"))(DEFUN C:SE () (COMMAND "SELECT"))(DEFUN C:J () (COMMAND "SHELL"))(DEFUN C:SK () (COMMAND "SKETCH"))(DEFUN C:SN () (COMMAND "SNAP"))(DEFUN C:SP () (COMMAND "SNAPANG"))(DEFUN C:S0 () (COMMAND "SNAPANG" "0"))(DEFUN C:S30 () (COMMAND "SNAPANG" "30"))(DEFUN C:S45 () (COMMAND "SNAPANG" "45"))(DEFUN C:SD () (COMMAND "SOLID"))(DEFUN C:SS--- () (COMMAND "STA TUS"))(DEFUN C:S () (COMMAND "STRETCH"))(DEFUN C:STRC () (COMMAND "STRETCH" "C"))(DEFUN C:STY () (COMMAND "STYLE"))(DEFUN C:T () (COMMAND "TRIM"))(DEFUN C:BT () (COMMAND "BTRIM"))(DEFUN C:d () (COMMAND "LENGTHEN" "DY")(PRINC)) (DEFUN C:DE () (COMMAND "LENGTHEN" "DE")(PRINC)) (DEFUN C:FD () (COMMAND "LENGTHEN" "T")(PRINC)) (DEFUN C:EE () (COMMAND "LENGTHEN")(PRINC))(DEFUN C:EQ () (COMMAND "PLINE")(PRINC))(DEFUN C:FA () (COMMAND "LENGTHEN" "DE" "-50")(PRINC)) (DEFUN C:ER () (COMMAND "LENGTHEN" "DE" "25")(PRINC)) (DEFUN C:ER1 () (COMMAND "LENGTHEN" "DE" "550")(PRINC)) (DEFUN C:ER2 () (COMMAND "LENGTHEN" "DE" "650")(PRINC)) (DEFUN C:ER5 () (COMMAND "LENGTHEN" "DE" "800")(PRINC)) (DEFUN C:ER3 () (COMMAND "LENGTHEN" "DE" "1050")(PRINC)) (DEFUN C:ER4 () (COMMAND "LENGTHEN" "DE" "1300")(PRINC)) (DEFUN C:ER11 () (COMMAND "LENGTHEN" "DE" "350")(PRINC)) (DEFUN C:ER22 () (COMMAND "LENGTHEN" "DE" "450")(PRINC)) (DEFUN C:TC () (COMMAND "TEXT" "C"))(DEFUN C:TE () (COMMAND "TEXT"))(DEFUN C:TF () (COMMAND "TEXT" "F"))(DEFUN C:TM () (COMMAND "TEXT" "M"))(DEFUN C:TS () (COMMAND "TEXT" "S"))(DEFUN C:TI () (COMMAND "TIME"))(DEFUN C:TC () (COMMAND "TRACE"))(DEFUN C:RE () (COMMAND "RECTANG") (PRINC))(DEFUN C:U () (COMMAND "UNDO"))(DEFUN C:VE () (COMMAND "UCS" "E"))(DEFUN C:Vw () (COMMAND "UCS" "w"))(DEFUN C:VF () (COMMAND "UCS" "P"))(DEFUN C:UN () (COMMAND "UNITS"))(DEFUN C:VI () (COMMAND "VIEW"))(DEFUN C:VR () (COMMAND "VIEW" "R"))(DEFUN C:VWw () (COMMAND "VIEW" "W"))(DEFUN C:VP1 () (COMMAND "VPOINT" "1,1,1"))(DEFUN C:VP2 () (COMMAND "VPOINT" "-1,1,1"))(DEFUN C:VP3 () (COMMAND "VPOINT" "-1,-1,1"))(DEFUN C:VP4 () (COMMAND "VPOINT" "1,1,-1"))(DEFUN C:VP () (COMMAND "VPOINT"))(DEFUN C:W () (COMMAND "MOVE"))(DEFUN C:WT () (COMMAND "WIPEOUT"))(DEFUN C:Ww () (COMMAND "move" "p" "") (PRINC))(DEFUN C:Wr () (COMMAND "move" "p" "r") (PRINC))(DEFUN C:WA () (COMMAND "move" "p" "A") (PRINC))(DEFUN C:Z () (COMMAND "ZOOM"))(DEFUN C:ZA () (COMMAND "ZOOM" "A"))(DEFUN C:ZC () (COMMAND "ZOOM" "C"))(DEFUN C:ZD () (COMMAND "ZOOM" "D"))(DEFUN C:ZE () (COMMAND "ZOOM" "E"))(DEFUN C:A () (COMMAND "ZOOM" "0.5X"))(DEFUN C:Zs () (COMMAND "ZOOM" "P"))(DEFUN C:Zv () (COMMAND "ZOOM" "v"))(DEFUN C:ZW () (COMMAND "ZOOM" "W"))(DEFUN C:ZZ () (COMMAND "'_ZOOM" "E" "'_ZOOM" "W"))(DEFUN C:qq () (COMMAND "PURGE" "ALL" "" "NO" "" "ZOOM" "E" "" "QSA VE" ""))(defun C:SCC (/ cm objs d l n obj1 insp )(setq cm (getvar "cmdecho"))(setvar "cmdecho" 0)(if (= gv nil) (setq gv 0.50))(princ "\nSCALE factor:<")(princ gv)(princ ">=")(initget 6)(setq D (getreal))(if (= D nil) (setq D gv))(setq gv D)(setq objs (ssget)l (sslength objs)n 0)(while (< n l)(progn(setq obj1 (ssname objs n) )(if ( = (cdr (assoc 0 (entget obj1))) "POL YLINE")(setq insp (trans (cdr (assoc 10 (entget (entnext obj1) ))) 0 1))(setq insp (trans (cdr (assoc 10 (entget obj1 ))) 0 1)) )(if ( = (cdr (assoc 0 (entget obj1))) "SOLID" )( progn(setq p1 (cdr (assoc 13 (entget obj1)))p2 (cdr (assoc 13 (entget obj1))))(setq insp (list (/ (+ (car p1 ) (car p2 )) 2) (/ (+ (cadr p1) (cadr p2)) 2) )))(setq insp (trans (cdr (assoc 10 (entget obj1 ))) 0 1)) ))(command "scale" obj1 "" insp d)(setq n (+ 1 n)))(setvar "cmdecho" cm)(princ))(defun c:FFE( / en m n pon ename et ppp ouse )(setvar "cmdecho" 1)(COMMAND "OFFSET" PAUSE "")(prompt "\n Select Objects to Offset: ")(setq en (ssget))(setq m (sslength en ))(setq n 0)(setvar "cmdecho" 0)(repeat m(setq ename (ssname en n))(setq et (entget ename))(setq ppp (trans (cdr (assoc 10 et)) 0 1))(setq ouse (list ename ppp))(setq pon (trans (list (+ (car ppp) 1001) (- (cadr ppp) 1000) ) 0 1 ))(command "offset" "" ouse pon "")(setq ouse (list (entlast) (trans (cdr (assoc 10 (entget (entlast)))) 0 1)))(command "offset" (* (getvar "offsetdist") 2 ) ouse ppp "")(command "offset" (/ (getvar "offsetdist") 2 ) "")(command "erase" ename "")(setq n (+ n 1))))(defun C:CD (/ ss FL)(princ "\nSelect objects: ")(setq ss (ssget))(setq n (sslength ss))(command "COPY" ss "" "m" "") (repeat n (command "" copy "" "")))(defun c:chcl (/ a b c d new e f)(setq a (entsel))(setq b (car a))(setq c (entget b))(setq d (assoc 8 c))(setq new (getvar "clayer"))(setq e (cons 8 new))(setq f (subst e d c))(entmod f))(defun c:cB (/ a1 a2 n index b1 b2 d1 d2 b3)(graphscr)(prompt "Select entities to be changed ") (terpri)(setq a1 (ssget))(prompt "Point to entity on target layer ") (terpri)(setq a2 (entsel))(setq n (sslength a1))(setq index 0)(setq b2 (entget (car a2)))(setq d2 (assoc 8 b2))(repeat n(setq b1 (entget (ssname a1 index)))(setq d1 (assoc 8 b1))(setq b3 (subst d2 d1 b1))(entmod b3)(setq index (+ index 1))))(defun c:las (/ a2 b2 l1 l2)(graphscr)(prompt "Select entity on target layer ") (terpri)(setq a2 (entsel))(setq b2 (entget (car a2)))(setq l1 (assoc 8 b2))(setq l2 (cdr l1))(command "layer" "s" l2 ""))(defun c:chc (/ a1 a2 n index b1 b2 d1 d2 b3)(graphscr)(prompt "Select entities to be changed ") (terpri)(setq a1 (ssget))(setq n (sslength a1))(setq index 0)(setq d2 (cons 8 (getvar "clayer")))(repeat n(setq b1 (entget (ssname a1 index)))(setq d1 (assoc 8 b1))(setq b3 (subst d2 d1 b1))(entmod b3)(setq index (+ index 1))))(defun c:etset (/ x y u sset1 count pt1 pt2 int obj) (graphscr)(initget "Extend Trim")(setq EorT (getkword "\Extend or <Trim>: "))(if (equal EorT "")(setq EorT "Trim"))(princ "\nSelect boundary edge....")(setq obj (ssget))(setq x (getpoint "\nPick axis crossing lines to modify: ")) (setq y (getpoint x "\nPick endpoint: "))(setq sset1 (ssget "c" x y))(setq count 0)(if (/= sset1 nil)(while (< count (sslength sset1))(setq elst (entget (ssname sset1 count))pt1 (cdr (assoc 10 elst))pt2 (cdr (assoc 11 elst))int (inters x y pt1 pt2))(if (equal EorT "Extend")(command "extend" obj "" int "")(command "trim" obj "" int ""))(setq count (1+ count)))))(defun dtr (a)(* (/ a 180.0) pi))(defun rtd (c)(* (/ c pi ) 180.0))(defun c:sqbox (/ p1 p2 a12 d a23 a34 p3 p4) (setq p1 (getpoint "\nGet first point")) (setq p2 (getpoint "\nGet second point")) (setq a12 (angle p1 p2))(setq d (distance p1 p2))(setq a23 (+ (dtr 90) a12))(setq a34 (+ (dtr 90) a23))(setq p3 (polar p2 a23 d))(setq p4 (polar p3 a34 d))(command "Pline" p1 p2 p3 p4 "c"))(defun c:rec (/ p1 d1 d2 p2 p3 p4)(setq p1 (getpoint "\n Get corner point"))(setq d1 (getdist "\n Enter length " ))(setq d2 (getdist "\n Enter width "))(setq p2 (polar p1 (dtr 90) d1 ))(setq p3 (polar p1 (dtr 0) d2))(setq p4 (polar p2 (dtr 0 ) d2))(command "line" p1 p2 p4 p3 "c"))(defun c:reci (/ p1 d1 d2 p2 p3 p4 p5 p6 p7)(setq p1 (getpoint "\n get intersect point")) (setq d1 (getdist "\n Enter length: "))(setq d2 (getdist "\n Enter width: "))(setq p2 (polar p1 (dtr 90) (/ d1 2)))(setq p3 (polar p1 (dtr 0) (/ d2 2)))(setq p4 (polar p2 (dtr 180) (/ d2 2)))(setq p5 (polar p3 (dtr 270) (/ d1 2)))(setq p6 (polar p4 (dtr 270) d1))(setq p7 (polar p5 (dtr 90) d1))(command "Pline" p4 p6 p5 p7 "C"))(defun c:ang (/ p1 p2 p3 a b c d)(setq p1 (getpoint "\n get inter point"))(setq p2 (getpoint "\n get first end pt. "))(setq p3 (getpoint "\n get second end pt. "))(setq a (angle p2 p1))(setq b (angle p3 p1))(setq c (- b a ))(setq d (rtd c))(prompt "\n the angle between two lines : ") (list d) )(defun c:chl (/ a b c d new e f)(setq a (entsel))(setq b (car a))(setq c (entget b))(setq d (assoc 8 c))(setq new (getstring "\n new layer name : ")) (setq e (cons 8 new))(setq f (subst e d c))(entmod f))(defun delcircle ()(command "erase" (ssget "x" (list (cons 0 "circle")))) )(defun dellyr0 ()(command "erase" (ssget "x" (list (cons 8 "0")))));------------------------------- laon.lsp ------------------------ (defun c:laon (/ enn nla lan)(setvar "cmdecho" 0)(setvar "regenmode" 0)(setq enn (ssget)nla (entget (ssname enn 0))lan (cdr (assoc 8 nla)))(command "layer" "s" lan "")(princ));----------------------- laoff.lsp ---------------------;; The program frozen layer(s) which your slected.;(DEFUN C:GE (/ ES EN EL A)(princ "Selected Entity(s) Layers Isolated.")(setq ES (ssget) A 0 EN "" EL nil FL nil)(while (/= EN nil)(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL)) (repeat (- A 2)(setq EN (cdr (assoc ' 8 (entget (car EL))))FL (strcat EN "," FL) EL (cdr EL)) )(command "LAYER" "off" "*" "y" "on" (eval FL) "")(princ))(DEFUN C:GZ ()(setvar "cmdecho" 0)(prompt"\nSelect entities to turn off:")(setq ss (ssget))(if (and ss (sslength ss) 0)(progn(setq ct 0 len (sslength ss) cl (getvar "clayer"))(command ".layer")(while (< ct len)(setq la (cdr (assoc 8 (entget (ssname ss ct)))))(if (/= cl la)(command "off" la)(progn (prompt "\nThe layer")(prompt la)(prompt "is CURRENT!")) ;end of progn) ;end of if(if (= old nil)(setq OLD la)(setq OLD (strcat OLD "," la)))(setq ct (1+ ct))) ;end of while(command"")) ;end of progn) ;end of if(princ)(setvar "cmdecho" 0) (prin1))(defun C:LLF (/ ES EN EL A)(princ "Selected Entity(s) Layers Freezed.")(setq ES (ssget) A 0 EN "" EL nil FL nil)(while (/= EN nil)(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL)) (repeat (- A 2)(setq EN (cdr (assoc ' 8 (entget (car EL))))FL (strcat EN "," FL) EL (cdr EL)) )(command "LAYER" "F" (eval FL) "")(princ))(defun C:LLK (/ ES EN EL A)(princ "Selected Entity(s) Layers Locked.")(setq ES (ssget) A 0 EN "" EL nil FL nil)(while (/= EN nil)(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL)) (repeat (- A 2)(setq EN (cdr (assoc ' 8 (entget (car EL))))FL (strcat EN "," FL) EL (cdr EL)) )(command "LAYER" "LO" (eval FL) "")(princ))(defun C:LLU (/ ES EN EL A)(princ "Selected Entity(s) Layers Unlocked.")(setq ES (ssget) A 0 EN "" EL nil FL nil)(while (/= EN nil)(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))(repeat (- A 2)(setq EN (cdr (assoc ' 8 (entget (car EL))))FL (strcat EN "," FL) EL (cdr EL)) )(command "LAYER" "U" (eval FL) "")(princ))(DEFUN C:GG ()(command "layer" "on" "*" "")(princ))(DEFUN C:CV( / e n)(setq e (car (entsel "PICK AN OBJ.ON THE LAYER YOU WISHED:"))) (if e (progn(setq e (entget e))(setq n (cdr (assoc 8 e)))(command"layer" "set" n ""))))(DEFUN C:CX()(princ "SELECT OBJ.TO MAKE IT IN CURRENT LAYER\n")(setq ss (ssget))(if (and ss (> (sslength ss) 0))(progn(setq ent (entsel "\nSelect object to change to or <Enter> for current:")) (if ent (setq la (cdr(assoc 8 (entget (car ent)))))(setq la (getvar "clayer")))(command ".chprop" ss "" "layer" la "")))(princ))(defun c:c1 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "1" "")(princ))(defun c:c2 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "2" "")(princ))(defun c:c3 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "3" "")(princ))(defun c:c4 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "4" "")(princ))(defun c:c5 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "5" "")(princ))(defun c:c6 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "6" "")(princ))(defun c:c7 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "7" "")(princ))(defun c:c11 ()(setvar "cmdecho" 0)(ssget)(command "change" "p" "" "p" "c" "11" "")(princ)); ******************************************************************** ; DELLAYER.LSP; This program deletes all entities on a specified layer.; ********************************************************************(defun dellerr (s) ; If an error (such as CTRL-C) occurs; while this command is active...(if (/= s "Function cancelled")(princ (strcat "\nError: " s)))(setq S nil) ; Free selection-set if any(setvar "CMDECHO" ocmd) ; Restore saved mode(setq *error* olderr) ; Restore old *error* handler(princ))(defun DELLAYER (/ olderr ocmd L S)(setq olderr *error**error* dellerr)(setq ocmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)(setq L (strcase (getstring "\nLayer to delete: ")))(setq S (ssget "X" (list (cons 8 L)))) ; Get all entities on layer(if S(command "ERASE" S "") ; Delete 'em!(princ "Layer empty or not a valid layer name."))(setq S nil) ; Free selection-set(setvar "CMDECHO" ocmd) ; Restore saved mode (setq *error* olderr) ; Restore old *error* handler (princ))(defun c:dla (/ olderr ocmd L S)(setq olderr *error**error* dellerr)(setq ocmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)(setq a (entsel))(setq a (entget (car a)))(setq L (cdr (assoc 8 a))); (setq L (strcase (getstring "\nLayer to delete: ")))(setq S (ssget "X" (list (cons 8 L)))) ; Get all entities on layer(if S(command "ERASE" S "") ; Delete 'em!(princ "Layer empty or not a valid layer name."))(setq S nil) ; Free selection-set(setvar "CMDECHO" ocmd) ; Restore saved mode (setq *error* olderr) ; Restore old *error* handler (princ));;; szlisu(LOAD "C:\Lisp-r14\F6.LSP")(LOAD "C:\ACADR14\LISP/F7.LSP")(LOAD "d:\autoacad 2000\support\chtext.lsp")(load "steel.lsp" "")。