Results 1 to 6 of 6

Thread: LISP Shorthand

  1. #1
    Past Vice President / AUGI Volunteer peter's Avatar
    Join Date
    2000-09
    Location
    Honolulu HI
    Posts
    1,109
    Login to Give a bone
    0

    Default LISP Shorthand

    Hello fellow AUGI LISP programmers.

    Many of you probably know me, but I am an old school lisp programmer and have written LISP professionally for many years.

    I have been working on a LISP shorthand syntax for the last couple years that turns lisp into a much easier programming language.

    I was wondering if any of you would like to help me document and publish my tools?

    The new syntax might be as simple as

    (item 'layers "0")

    as compared to

    (vl-catch-all-apply '(lambda (X)(vla-item (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) X)) (list"0"))

    That does the same thing
    AutomateCAD

  2. #2
    All AUGI, all the time
    Join Date
    2003-07
    Posts
    561
    Login to Give a bone
    0

    Default Re: LISP Shorthand

    Happy to provide some, bit like Lee-mac.com will try to put together a summary index. Like you now pushing 40 years of lisp.

    Points addition / add to X Y etc using lambda starting using a lot, much easier to find mid pt of 2 pts.

    The obvious is the simple DTR RTD

    Angles a90 a180 a270 a45 a135 a225 a315

    osnaps type 47 1 99 etc common individual or groups.

    For me I have a reactor for offset circles and fillet F123 does a fillet of 123 C34 draws a circle with radius 34. Can be expanded to other commands saving key strokes.

    Library Dcl's 2x2 2x3 3x3 4x4, Multi getvals, Multi toggle buttons, Multi Radio buttons. GRR has some really nice dynamic ones as well. These are loaded via a (if (not so don't have to be autoloaded. I no longer use initget for multi choice input. Code is like 2 lines.

    So many check/create for layer, linetype, textstyle, blocks, as you suggested.

    Lots of entmake stuff but often needs a tweak.

    (get-co-ordinates plent)

    For CIV3D use a toolbar to change surface display much easier than Toolspace. same with point label style.
    Attached Files Attached Files
    Last edited by BIG-AL; 2020-04-07 at 02:35 AM.

  3. #3
    Past Vice President / AUGI Volunteer peter's Avatar
    Join Date
    2000-09
    Location
    Honolulu HI
    Posts
    1,109
    Login to Give a bone
    0

    Default Re: LISP Shorthand

    Can you PM your email so I can share a dropbox folder with the code, help and vlx files in it?

    Peter
    AutomateCAD

  4. #4
    Past Vice President / AUGI Volunteer peter's Avatar
    Join Date
    2000-09
    Location
    Honolulu HI
    Posts
    1,109
    Login to Give a bone
    0

    Default Re: LISP Shorthand

    This may be a useful tool for programmers that is included in my code

    EulerV.jpg

    With code like this that allows the programmer to decide what kind of entry is needed. Edit Box or select from list etc...

    EulerVLISP.jpg
    Attached Images Attached Images
    AutomateCAD

  5. #5
    Past Vice President / AUGI Volunteer peter's Avatar
    Join Date
    2000-09
    Location
    Honolulu HI
    Posts
    1,109
    Login to Give a bone
    0

    Default Re: LISP Shorthand

    It writes the dcl on the fly so we do not need to create dcl files, we just need to create a list and it creates the dcl automatically.
    AutomateCAD

  6. #6
    All AUGI, all the time
    Join Date
    2003-07
    Posts
    561
    Login to Give a bone
    0

    Default Re: LISP Shorthand

    That's the way I have gone for my inputs and choices.

Similar Threads

  1. 2018: Shorthand commands changed
    By sc_recycle in forum AutoCAD General
    Replies: 6
    Last Post: 2017-07-26, 12:29 PM
  2. Running a lisp from within a lisp?
    By joe.plazio in forum AutoLISP
    Replies: 9
    Last Post: 2008-03-04, 04:45 AM
  3. lisp within a lisp
    By chrisw.94380 in forum AutoLISP
    Replies: 5
    Last Post: 2006-04-07, 12:57 AM
  4. Calling a lisp from within a lisp
    By LanceMcHatton in forum AutoLISP
    Replies: 10
    Last Post: 2005-10-16, 02:08 AM
  5. non lisp cursor location for lisp getpoint
    By dtuttle in forum AutoLISP
    Replies: 3
    Last Post: 2005-05-10, 11:37 PM

Posting Permissions

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