🚀 go-pugleaf

Użytkownik "Boomcha" <boomcha@[HATESPAM]op.pl> napisał w wiadomości 
news:d360vq$m0h$1@nemesis.news.tpi.pl...
> Czesc,
>
> Szukam pliku ACAD.LSP. Czy mogłby ktoś przesłać mi go na maila -
> boomcha.malpa.op.pl - lub wkleic link?
>
> Z gory dzieki.
>
> ps;
>
> Gdzie sie go umieszcza? W jakim katalogu?
>
>
Ten plik, jeśli jest umieszczony C:\Program Files\AutoCAD R14\SUPPORT\ 
wówczas wykonuje się przy każdym uruchomieniu AC. Może też być 
umieszczony w dowolnym katalogu i wówczas wykonuje się, jeśli rysunek 
otwierany jest w tym katalogu. Z tego wynika, że można mieć wiele 
acad.lsp do różnych rysunków. W pliku mam skróty (jedno lub 
dwuliterowe) najczęściej wykonywanych komend.
U mnie to wygląda tak:
(VMON)
(SETVAR "CMDECHO"0)
(DEFUN C:AD () (COMMAND "ATTDEF")(PRIN1))
(DEFUN C:AE () (COMMAND "ATTEDIT")(PRIN1))
(DEFUN C:AR () (COMMAND "ARRAY")(PRIN1))
(DEFUN C:AX () (COMMAND "ATTEXT")(PRIN1))
(DEFUN C:B () (COMMAND "BREAK")(PRIN1))
(DEFUN C:BB ()(SETQ PT1 (GETPOINT "SELECT LINE TO BREAK:"))
   (COMMAND "OSNAP" "INT")
   (SETQ PT2 (GETPOINT "SELECT FIRST INTERSECTION:"))
   (SETQ PT3 (GETPOINT "SELECT SECOND INTERSECTION:"))
   (COMMAND "BREAK" PT1 "F" PT2 PT3 "OSNAP" "OFF"))
(DEFUN C:BL () (COMMAND "BLOCK")(PRIN1))
(DEFUN C:BX ()(SETQ BX1 (GETPOINT "SELECT OBJECT:"))(PRIN1)
   (SETQ BX2 (GETPOINT "SELECT BREAK POINT:"))
   (COMMAND "BREAK" BX1 "F" BX2 "@"))
(DEFUN C:BXI ()(SETQ BX1 (GETPOINT "SELECT LINE:"))(PRIN1)
   (COMMAND "OSNAP" "INT")
   (SETQ BX2 (GETPOINT "SELECT INTERSECTION:"))
   (COMMAND "BREAK" BX1 "F" BX2 "@" "OSNAP" "OFF"))
(DEFUN C:BXM ()(COMMAND "OSNAP" "MID")
   (SETQ BX1 (GETPOINT "SELECT LINE TO BREAK AT MID POINT"))
   (COMMAND "BREAK" BX1 "F" BX1 "@" "OSNAP" "OFF"))
(DEFUN C:CI () (COMMAND "CIRCLE")(PRIN1))
(DEFUN C:CH () (COMMAND "CHPROP")(PRIN1))
(DEFUN C:C  () (COMMAND "COPY")(PRIN1))
(DEFUN C:CL ()
   (COMMAND "CHANGE" "L" "" "L"))
(DEFUN C:CT () (SETQ P1 (GETPOINT "SELECT TEXT LINE:"))
   (COMMAND "SCRIPT" "CT"))
(DEFUN C:DD () (COMMAND "'_DDLMODES")(PRIN1))
(DEFUN C:D () (COMMAND "DIVIDE")(PRIN1))
(DEFUN C:DI () (COMMAND "DIST")(PRIN1))
(DEFUN C:DO () (COMMAND "DONUT")(PRIN1))
(DEFUN C:EL () (COMMAND "ELEV")(PRIN1))
(DEFUN C:ER () (COMMAND)(COMMAND "ERASE")(PRIN1))
(DEFUN C:EX () (COMMAND "EXTEND")(PRIN1))
(DEFUN C:X () (COMMAND "EXPLODE")(PRIN1))
(DEFUN C:IS () (COMMAND "INS")(PRIN1))
(DEFUN C:IT () (COMMAND "INTER")(PRIN1))
(DEFUN C:H () (COMMAND "HELP")(PRIN1))
(DEFUN C:HX () (COMMAND "HATCH")(PRIN1))
(DEFUN C:F () (COMMAND "FILLET")(PRIN1))
(DEFUN C:FI () (COMMAND "FILL" "ON")(PRIN1))
(DEFUN C:FO () (COMMAND "FILL" "OFF")(PRIN1))
(DEFUN C:I () (COMMAND "INSERT")(PRIN1))
(DEFUN C:ID () (COMMAND "ID")(PRIN1))
(DEFUN C:IM () (COMMAND "MINSERT")(PRIN1))
(DEFUN C:KL () (SETQ PT1 (GETSTRING "ENTER LENGTH OF LINE:  "))
   (SETQ PT2 (GETSTRING "ENTER ANGLE: "))
   (SETQ PT3 (GETPOINT "PICK START POINT OF LINE:  "))
   (SETQ PT4 (STRCAT "@" PT1 "<" PT2))
   (COMMAND "LINE" PT3 PT4 "")(PRIN1))
(DEFUN C:L () (COMMAND "LINE")(PRIN1))
(DEFUN C:LE () (COMMAND "LINE" "ENDPOINT")(PRIN1))
(DEFUN C:LB () (COMMAND "BLOCK" "?" "*")(COMMAND)(PRIN1))
(DEFUN C:LC () (COMMAND "LINE" "CENTER")(PRIN1))
(DEFUN C:LD () (COMMAND "DIM" "LEADER")(PRIN1))
(DEFUN C:LI () (COMMAND "LINE" "INTERSECT")(PRIN1))
(DEFUN C:LM () (COMMAND "LINE" "MIDPOINT")(PRIN1))
(DEFUN C:LN () (COMMAND "LINE" "NEAR")(PRIN1))
(DEFUN C:LO () (COMMAND "LINE" "NODE")(PRIN1))
(DEFUN C:LQ () (COMMAND "LINE" "QUAD")(PRIN1))
(DEFUN C:LS () (COMMAND "LIST")(PRIN1))
(DEFUN C:LX () (COMMAND "LINE" "INS")(PRIN1))
(DEFUN C:MO () (COMMAND "MOVE")(PRIN1))
(DEFUN C:MI () (COMMAND "MIRROR")(PRIN1))
(DEFUN C:MS ()(COMMAND "MSLIDE")(PRIN1))
(defun c:ME ()(command "MEASURE")(PRIN1))
(DEFUN C:O () (COMMAND "OFFSET")(PRIN1))
(DEFUN C:OC () (COMMAND "OSNAP" "CENTER")(PRIN1))
(DEFUN C:OE () (COMMAND "OSNAP" "ENDPOINT")(PRIN1))
(DEFUN C:OF () (COMMAND "OSNAP" "NONE")(PRIN1))
(DEFUN C:OX () (COMMAND "OSNAP" "INS")(PRIN1))
(DEFUN C:OI () (COMMAND "OSNAP" "INTERSECT")(PRIN1))
(DEFUN C:OM () (COMMAND "OSNAP" "MIDPOINT")(PRIN1))
(DEFUN C:ON () (COMMAND "OSNAP" "NEAR")(PRIN1))
(DEFUN C:OO () (COMMAND "OSNAP" "NODE")(PRIN1))
(DEFUN C:OP () (COMMAND "OSNAP" "PERP")(PRIN1))
(DEFUN C:OQ () (COMMAND "OSNAP" "QUADRANT")(PRIN1))
(DEFUN C:XB () (COMMAND "LAYER" "S" "BODY" "")(PRIN1))
(DEFUN C:XP () (COMMAND "LAYER" "S" "POM" "")(PRIN1))
(DEFUN C:P () (COMMAND "PAN")(PRIN1))
(DEFUN C:PE () (COMMAND "PEDIT")(PRIN1))
(DEFUN C:PL () (COMMAND "PLINE")(PRIN1))
(DEFUN C:PO () (COMMAND "POLYGON")(PRIN1))
(DEFUN C:PT () (COMMAND "POINT")(PRIN1))
(DEFUN C:R () (COMMAND "ROTATE")(PRIN1))
(DEFUN C:RD () (COMMAND "REDRAW")(PRIN1))
(DEFUN C:RG () (COMMAND "REGEN")(PRIN1))
(DEFUN C:RE () (COMMAND "REDO")(PRIN1))
(DEFUN C:RN () (COMMAND "RENAME")(PRIN1))
(DEFUN C:S () (COMMAND "STRETCH" "CROSSING")(PRIN1))
(DEFUN C:SC () (COMMAND "SCALE")(PRIN1))
(DEFUN C:SH () (COMMAND "SHADE")(PRIN1))
(DEFUN C:SO () (COMMAND "SOLID")(PRIN1))
(DEFUN C:SV () (COMMAND "SETVAR")(PRIN1))
(DEFUN C:SLP () (COMMAND "SETVAR" "LASTPOINT")(PRIN1))
(DEFUN C:SV0 () (COMMAND "SETVAR" "splframe" "0" "REGEN")(PRIN1))
(DEFUN C:SV1 () (COMMAND "SETVAR" "splframe" "1" "REGEN")(PRIN1))
(DEFUN C:TA () (COMMAND "DTEXT" "ALIGNED")(PRIN1))
(DEFUN C:TC () (COMMAND "DTEXT" "C")(PRIN1))
(DEFUN C:TF () (COMMAND "DTEXT" "FIT")(PRIN1))
(DEFUN C:TL () (COMMAND "DTEXT" )(PRIN1))
(DEFUN C:TM () (COMMAND "DTEXT" "MIDDLE")(PRIN1))
(DEFUN C:TR () (COMMAND "DTEXT" "RIGHT")(PRIN1))
(DEFUN C:T () (COMMAND "TRIM")(PRIN1))
(DEFUN C:U () (COMMAND "UNDO")(PRIN1))
(DEFUN C:UU () (COMMAND "_DDUCS")(PRIN1))
(DEFUN C:V () (COMMAND "VIEW")(PRIN1))
(DEFUN C:SS ()(COMMAND "SHADE")(PRIN1))
(DEFUN C:HH ()(COMMAND "HIDE")(PRIN1))
(DEFUN C:PP ()(COMMAND "PLAN" "")(PRIN1))
(DEFUN C:VP0 ()(COMMAND "VPOINT" "0,0,0" "")(PRIN1))
(DEFUN C:VS ()(COMMAND "VSLIDE")(PRIN1))
(DEFUN C:WB () (COMMAND "WBLOCK")(PRIN1))
(DEFUN C:Z () (COMMAND "'ZOOM")(PRIN1))
(DEFUN C:ZA () (COMMAND "ZOOM" "ALL")(PRIN1))
(DEFUN C:ZD () (COMMAND "ZOOM" "DYNAMIC")(PRIN1))
(DEFUN C:ZE () (COMMAND "ZOOM" "EXTENTS")(PRIN1))
(DEFUN C:ZP () (COMMAND "ZOOM" "PREVIOUS")(PRIN1))
(DEFUN C:ZW () (COMMAND "ZOOM" "WINDOW")(PRIN1))
(DEFUN C:VP () (COMMAND "VPOINT")(PRIN1))
(DEFUN C:3DL () (COMMAND "3DLINE")(PRIN1))
(DEFUN C:3DF () (COMMAND "3DFACE")(PRIN1))
(DEFUN C:3DR ()
(SETVAR "CMDECHO"1)
(COMMAND "ROTATE3D" "")
(SETVAR "CMDECHO"0)(PRINC))
(DEFUN C:VPR () (COMMAND "VPOINT" "1,-1,1")(PRIN1))
(DEFUN C:VPL () (COMMAND "VPOINT" "-1,-1,1")(PRIN1))
(DEFUN C:VPRR () (COMMAND "VPOINT" "1,1,1")(PRIN1))
(DEFUN C:VFE () (COMMAND "VPOINT" "0,-1,0")(PRIN1))
(DEFUN C:VLE () (COMMAND "VPOINT" "-1,0,0")(PRIN1))
(DEFUN C:VPLR () (COMMAND "VPOINT" "-1,1,1")(PRIN1))
(DEFUN C:VPRD () (COMMAND "VPOINT" "1,0.5,-1")(PRIN1))
(DEFUN C:VPRG () (COMMAND "VPOINT" "1,0.5,1")(PRIN1))
(DEFUN C:VPX () (COMMAND "VPOINT" "1,0,0")(PRIN1))
(DEFUN C:VPY () (COMMAND "VPOINT" "0,1,0")(PRIN1))
(DEFUN C:VPZ () (COMMAND "VPOINT" "0,0,1")(PRIN1))
(QUOTE "AUTOKEY IS LOADED. LET'S FLY.")

Oczywiście przy polskojęzycznym acadzie komendy są inne. Można 
wyrzucić/dopisać co nie/potrzebne.
Innym plikiem w którym można określić aliasy komend jest acad.pgp i 
ten masz zapewne w katalogu support. Pozdr.
-- 
Corruptissima Res Publica plurimae aleges.
Tacyt.