+ Reply to Thread
Page 1 of 8 1 2 3 ... LastLast
Results 1 to 10 of 76
  1. #1
    Luminous Being tzframpton's Avatar
    Computer Details
    tzframpton's Computer Details
    Computer:
    HP Zbook
    Discipline
    Multi-disciplinary
    tzframpton's Discipline Details
    Occupation
    BIM Specialist
    Discipline
    Multi-disciplinary
    Details
    Full Virtual Design and Construction BIM services for the MEP engineering and construction industries.
    Using
    Revit 2018
    Join Date
    Mar 2006
    Location
    Dallas, TX - USA
    Posts
    9,040

    Exclamation Participation Required: Post up your "weird" custom setups

    Registered forum members do not see this ad.

    Lets see who all participates. Post up anything regarding your own personal setup in AutoCAD, mainly alterations to the PGP File, any Toolbars/Tool Palettes, or even post up screenshots of your Workspace. try to show true customization, refrain from the AutoCAD defaults, and even give reasons of why you chose the customized object/commands. I'll start....

    Altered Keyboard Commands:

    1st off, my right click is used as Enter.

    C - COPY
    CR - CIRCLE
    V - LINEAR DIM
    VV - QLEADER
    BB - BREAK
    MN - MIRRER
    Q - MATCH PROPERTIES
    REF - REFEDIT
    RER - RECTANGLE
    T - TRIM
    X - EXTEND
    XX - EXPLODE
    S - STRETCH
    D - DISTANCE

    I use these commands a lot, and so i've trimmed them down to one or two key commands, which makes my left hand stay put on one side of the keyboard. i can get going pretty fast sometimes...
    Tannar Z. Frampton ™ | Frampton & Associates, Inc.

  2. #2
    Senior Member
    Using
    Architectural DT not applicable
    Join Date
    Oct 2005
    Location
    is everything
    Posts
    448

    Default

    HOTAS (Hands on Throttle and Stick) system from an F-16 Block D.

    It doesn't look like much, but there's over 200 button presses you can program. And the wheels can be used for zooms and pans and what not.

    Actually quite convenient once your used to it.

    The throttle has a thumb button on it that can be programmed to act as a mouse, but it's worse than a mouse nib on a laptop so I don't use it


  3. #3
    Senior Member Seann's Avatar
    Using
    AutoCAD 2012
    Join Date
    Dec 2006
    Location
    Granite Bay, CA USA
    Posts
    212

    Wink

    The only ones I know for sure are listed in this first list but thats cause I know I changed them. Other than that I probably have alot more but becuase they have been changed for so long I don't remember what they use to be
    Regular pgp:
    c=copy
    v=copy
    ci=circle
    d=distance
    r=rectange
    F4=xref manager

    Now the fun ones:
    Keytweak (program)
    F1=cancel
    +(numpad)='(foot symbol)
    *(numpad)=+

    Quickkey lisp:
    xlv=vertical construction line
    xlh=horizontal construction line
    x45=45 degree construction line
    x135=135 degree construction line
    atr=_AECLINEWORKTRIM (AECTrim)
    ze-zoom extents
    1fl=turns on first floor layers
    2fl=turns on second floor layers
    1fle=turns on first floor elec layers
    2fle=turns on second floor elec layers
    xxx= purge all but layers, turn off image frame, zoom extents, close

    Thats all for me unless I edit this...
    http://webpages.charter.net/krumsick/
    (keytweak homepage)
    (quickkey lisp attached from dotsoft.com)
    Attached Files
    Sean

  4. #4
    Luminous Being tzframpton's Avatar
    Computer Details
    tzframpton's Computer Details
    Computer:
    HP Zbook
    Discipline
    Multi-disciplinary
    tzframpton's Discipline Details
    Occupation
    BIM Specialist
    Discipline
    Multi-disciplinary
    Details
    Full Virtual Design and Construction BIM services for the MEP engineering and construction industries.
    Using
    Revit 2018
    Join Date
    Mar 2006
    Location
    Dallas, TX - USA
    Posts
    9,040

    Default

    nice, i like your style. this is the reason i posted this, because i think everyone can benefit by seeing how we all do things, and you never know, you might pick up a few tricks of the trade. ima check out that Keytweak. i have something similar at home, never thought about bringing it to work in conjunction with AutoCAD.

    EDIT: crap, i sure wish i could set the " symbol w/o using the shift key. i could have used both the ft & in symbols in the number pad for sure. oh well....
    Tannar Z. Frampton ™ | Frampton & Associates, Inc.

  5. #5
    Forum Deity
    Using
    Civil 3D 2008
    Join Date
    Sep 2006
    Location
    Pittsburgh, PA, USA
    Posts
    3,581

    Default

    I have these in my acaddoc.lsp file, used for manipulating the UCS
    Code:
    (defun c:ue ()(command "ucs" "e")) ;align UCS w/ entity
    (defun c:uw ()(command "ucs" "w"))
    (defun c:uv ()(command "ucs" "v")) ;align UCS w/ view
    (defun c:up ()(command "ucs" "p"))
    (defun c:u3 ()(command "ucs" "3"))
    
    (defun c:uo () ;in section view, sets the UCS at an elevation (Y value)
        (setq pt1 (getpoint "Pick reference point: ")
             el (RTOS(* -1.0(getreal "Enter elevation: ")))
            CO (STRCAT "0," el)
     )
        (command "UCS" "o" pt1)
        (command "UCS" "o" CO)     
    )
    (defun C:RZ ()( COMMAND "UCS" "Z" "90")) ; rotates UCS 90 degrees
    Also for "joining" 2 plines/lines
    Code:
    (defun C:J (/ FR)
      (setq FR (getvar "FILLETRAD"))
       (setvar "FILLETRAD" 0)
        (prompt "Select two lines to join: ")
      (command "FILLET" pause pause)
      (setvar "FILLETRAD" FR)
        (princ)
    )
    Also this to see certain variables at a glance
    Code:
     (setvar "modemacro"
                    (strcat
                     "TextStyle: $(getvar,textstyle)  "
                     "TextHeight: $(getvar,textsize)  "
                     "DimScale: $(getvar,dimscale)  "
                     "DimStyle: $(getvar,dimstyle)  "
                     "EdgeMode: $(getvar,edgemode) "
                     "PickStyle: $(getvar,pickstyle) "
                     )
                )
    Last edited by lpseifert; 24th Jan 2007 at 07:08 pm.

  6. #6
    Senior Member Seann's Avatar
    Using
    AutoCAD 2012
    Join Date
    Dec 2006
    Location
    Granite Bay, CA USA
    Posts
    212

    Default

    We did this as a company to try and streamline the pgp files so everyone could work on anyone's computer. That lasted all of 5 minutes when we realized no one was ever going to use the same commands. If I can get a copy of our lead designers pgp I will post it. None of his commands are conventional and are all located on the left side of the keyboard and the 1st 4-5 keys ie. q,w,e,r,t and a,s,d,f and z,x,c. Very wierd but he drafts just as fast as we do.
    Sean

  7. #7
    Super Member
    Using
    not specified
    Join Date
    Dec 2004
    Location
    YUL
    Posts
    587

    Default

    All this is always loaded:

    Offsets by:
    1 =1/8
    316=3/16
    2 =1/4
    516=5/16
    3 =3/8
    716=7/16
    4 =1/2
    916=9/16
    5 =5/8
    1116=11/16
    6 =3/4
    1316=13/16
    7 =7/8
    1516=15/16
    8 =1
    16 =0.058
    18 =0.046
    20 =0.035

    Rotate:
    90 =90
    180=180
    270=270

    others:
    ff = offset
    s = stretch
    d = Dtext
    dd = dimlinear
    da = dimaligned
    ddr= dimradius
    ddc= dimdiameter
    dg = dimangular
    dy = lengthen_dy
    zz = zoom_previous
    zs = zoom scale paper space
    zx = zoom e zoom s 0.95x
    x = extend
    qq = matchprop
    q = R14 ddchprop/ddmodify
    zzz= zoom p zoom w
    o = dimedit "o"
    ee = explode
    rr = fillet filletrad 1/16
    h = xline horizontal
    v = xline vertical
    ds = dimscale
    rt = rotate
    ss = osmode=45
    rtt= rotate special
    f = continuing fillet
    mm = toggle tilemode
    nn = toggle mspace/pspace
    sq = draws square
    df = dimfactor 10/254
    ml = multileader
    rra= definite ray
    rc = non ortho rectangle
    jm = jump (offset+erase)
    ass= custom osmode setting
    mp = midpoint
    wr = dim text overwrite
    ew = erase node points
    ie = leader with ellipse head
    is = leader with "s" head
    iee= leader back to default
    pg = purge unused groups
    36 = pedit/join
    uo = toggle ucsicon
    ttr= trim with rectangle
    fr = layfrz
    ls = psltscale to 0
    arl= arc length dimension
    bn = split balloon
    ws = fillet welding symbol
    pl = perpendicular line
    brr= breakline
    ce= center line at midpoint between two parallel lines/plines
    cce= center cross to circles
    cr = center cross to rectangle
    dc = selected circles new diameter
    aa = draws angle iron
    tu = draws rectang tubing
    hss= hollow structural tubing
    cx = draws round bar break
    dss= copies and sets dimstyle + dimscale
    q1 = inserts text+numbered leader

  8. #8
    Luminous Being tzframpton's Avatar
    Computer Details
    tzframpton's Computer Details
    Computer:
    HP Zbook
    Discipline
    Multi-disciplinary
    tzframpton's Discipline Details
    Occupation
    BIM Specialist
    Discipline
    Multi-disciplinary
    Details
    Full Virtual Design and Construction BIM services for the MEP engineering and construction industries.
    Using
    Revit 2018
    Join Date
    Mar 2006
    Location
    Dallas, TX - USA
    Posts
    9,040

    Default

    Holy cow you are definitely a keyboard guy. i like it....
    Tannar Z. Frampton ™ | Frampton & Associates, Inc.

  9. #9
    Banned Alan Cullen's Avatar
    Using
    Map 3D 2009
    Join Date
    Jun 2006
    Location
    Cairns, Queensland, Australia
    Posts
    4,181

    Default

    My acaddoc.lsp.....

    Code:
    (defun C:LL()(command "Dim"  "Lea"))
    (defun C:VE()(command "DIM"  "ver"))
    (defun C:HO()(command "DIM"  "hor"))
    (defun C:AL()(command "DIM"  "ALIGNED"))
    (defun C:AN()(command "DIM"  "ang"))
    (defun C:DA()(command "DIM"  "dia"))
    (defun C:OR()(command "DIM"  "ord"))
    (defun C:RD()(command "DIM"  "rad"))
    (defun C:RO()(command "DIM"  "rot"))
    (defun C:AA()(command "AREA"  "O"))
    (setq ocmd (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (command "undefine" "end")
    (setq scale (getvar "ltscale"))
    (setq scale (rtos scale))
    (setq units "metres")
    (grtext -1 (strcat " Dwg Scale  1:"scale" "units" "))
    (load "C:/AKCLISP/coffset")
    (load "C:/AKCLISP/sqoff")
    (load "C:/ACADLISP/MCR.LSP")
    (load "C:/AKCLISP/show.LSP")
    (load "C:/ACADLISP/chtext.LSP")
    (load "C:/AKCLISP/brgdist.LSP")
    (load "C:/AKCLISP/layoff.LSP")
    (load "C:/AKCLISP/txted.LSP")
    (setvar "cmdecho" ocmd)
    (setvar "lunits" 2)
    (setvar "luprec" 3)
    (setvar "aunits" 1)
    (setvar "auprec" 4)
    (setvar "angbase" 1.570796326795)
    (setvar "angdir" 1)
    (setvar "pdmode" 3)
    (setvar "pdsize" 0.5)
    (setvar "dimassoc" 0)
    (if (= (tblsearch "style" "ISO") nil) (command "STYLE" "ISO" "ISO" 0 1 20 "n" "n" "n"))
    (if (= (tblsearch "style" "I") nil)   (command "STYLE" "I"   "iso3098b" 0 1 0  "n" "n" "n"))
    (setvar "TEXTSTYLE" "I")
    My additions to acad.pgp....

    Code:
    A,      *ARC
    AR,     *ARRAY
    B,      *BREAK
    BDY,    *BOUNDARY
    BL,   *BLOCK
    C,      *CHANGE
    CH,     *CHAMFER
    CI,     *CIRCLE
    CO,     *COLOR
    CP,     *COPY
    D,      *DTEXT
    DE,     *DDEDIT
    DM,     *MTEXT
    DO,     *DONUT
    DR,     *DRAWORDER
    DS,     *DIMSCALE
    DV,     *DIVIDE
    DX,     *DXFIN
    DXO,   *DXFOUT
    E,      *ERASE
    EE,     *END
    EL,     *ELLIPSE
    EP,     *EXPLODE
    EX,     *EXTEND
    F,      *FILLET
    FI,     *FILTER
    H,      *HATCH
    HA,     *BHATCH
    I,      *-INSERT
    IB,   *DDINSERT
    L,      *LINE
    LC,     *DDLMODES
    LE,     *LENGTHEN
    LI,     *LIST
    LN,     *LINETYPE
    LS,     *LTSCALE
    LT,     *LIMITS
    M,      *MOVE
    ME,     *MEASURE
    MI,     *MIRROR
    ML,     *MLINE
    MLE,    *MLEDIT
    MS,     *MSPACE
    N,      *OPEN
    O,      *OFFSET
    OO,     *OSNAP
    P,      *PEDIT
    P3,     *3DPOLY
    PG,     *POLYGON
    PL,     *PLINE
    PP,     *PAN
    PR,     *PROPERTIES
    PS,     *PSPACE
    PT,     *POINT
    PU,     *PURGE
    QS,     *QSELECT
    R,      *ROTATE
    RE,     *REDRAW
    RG,     *RECTANG
    RN,     *REGEN
    S,      *STRETCH
    SC,     *SCALE
    SO,     *SOLID
    SP,     *SPELL
    SS,     *STRETCH
    ST,     *STYLE
    T,      *TRIM
    TX,   *TEXTSCR
    V,      *VMAX
    W,      *WBLOCK
    Z,      *ZOOM
    I also have all my function keys assigned to various osnap modes. My acad drawing is basic and uncluttered...just the things I use a lot. I work with my right hand on the mouse and my left hand on the keyboard......it suits me and it's FAST. My mouse wheel is pan & zoom (in/out), left button = PICK, right button = ENTER.

    crap1.jpg

  10. #10
    Senior Member erona's Avatar
    Discipline
    Architectural
    erona's Discipline Details
    Occupation
    Architect
    Discipline
    Architectural
    Using
    AutoCAD 2013
    Join Date
    Feb 2005
    Location
    Philippines
    Posts
    306

    Default

    Registered forum members do not see this ad.

    I hate to cut & paste my PGP file. Below are the only ones I can remember.

    PGP:

    dd = distance
    cr = ai_molc (make selected object's layer current)
    q = qnew
    sa = saveas
    ref = refedit
    ae = attedit
    mcr = mocoro
    ma = matchprop

    LISP:
    0 = set to Layer 0
    1 = set selected object's color to 1
    2 = set selected object's color to 2, and so on... up to 255
    / = set current to layer to 0
    * = set current to color to ByLayer
    - = set current to linetype to ByLayer
    -- = set to hidden linetype
    -*- = set to center linetype
    ** = set to dot linetype
    *1 = set current color to 1
    *2 = set current color to 2, and so on...
    -1 = set current linetype to hidden
    -2 = set current linetype to center
    -3 = set current linetype to phantom, and so on...
    gw = global polyline width
    ll = linetype scale
    pj = polyline join
    ` = set object's color to ByLayer
    `` = set object's linetype to ByLayer
    romans = set current text style to Standard (romans.shx, 0.8 width factor)
    arial = set current text style to Arial (Arial.ttf, 1.0 width factor)
    erona

Similar Threads

  1. Can AutoCAD VB be use to import page setups
    By muck in forum AutoLISP, Visual LISP & DCL
    Replies: 1
    Last Post: 19th Jan 2007, 04:25 pm
  2. Replies: 0
    Last Post: 11th Nov 2006, 08:31 pm
  3. Page Setups
    By alexf4 in forum AutoCAD Drawing Management & Output
    Replies: 2
    Last Post: 13th Sep 2006, 01:48 pm
  4. Something weird
    By edwin in forum AutoCAD Drawing Management & Output
    Replies: 3
    Last Post: 21st Nov 2005, 06:10 pm
  5. New Printer, do I have to change 100's of page setups ?
    By waxwobbler in forum AutoCAD Beginners' Area
    Replies: 8
    Last Post: 8th Jun 2005, 03:02 pm

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts