Topic: Top 10 MUST HAVE Lisp Routines...

[efernal]

Code: [Select]

;; mine is one that, after i have selectet objects, writes a code like above...
;; e.fernal

(IF (NULL (TBLSEARCH "BLOCK" "CHANGE_IF_NECESSARY"))
  (PROGN
    (ENTMAKE '((0 . "BLOCK") (2 . "CHANGE_IF_NECESSARY") (70 . 0) (10 0.0 0.0 0.0))
    )
    (ENTMAKE '((0 . "CIRCLE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbCircle")
               (10 32.7391 54.8242 0.0)
               (40 . 19.2041)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "LINE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbLine")
               (10 14.3361 60.3962 0.0)
               (11 28.6723 -3.73585 0.0)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "LINE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbLine")
               (10 28.6723 -3.73585 0.0)
               (11 40.5152 56.0377 0.0)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "LINE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbLine")
               (10 40.5152 56.0377 0.0)
               (11 52.9814 -3.73585 0.0)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "LINE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbLine")
               (10 0.0 0.0 0.0)
               (11 14.3361 60.3962 0.0)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "LINE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbLine")
               (10 -24.3091 77.2075 0.0)
               (11 0.0 0.0 0.0)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "CIRCLE")
               (100 . "AcDbEntity")
               (67 . 0)
               (8 . "0")
               (100 . "AcDbCircle")
               (10 13.4211 32.5117 0.0)
               (40 . 16.9081)
               (210 0.0 0.0 1.0)
              )
    )
    (ENTMAKE '((0 . "ENDBLK")))
  )
  nil
)





[deegeecees]

1. ET's Layer Isolate (working in 3d constantly, this is used the most)
2. Layutil.lsp (my own creation, all my layer setups, utilities, etc., still a W.I.P.)
3. CABs' PlotTabs082306.LSP (couldn't goof-off w/o this one)
4. batch_anything.lsp (another of mine, self explanatory)
5. acad200(?)doc.lsp

Just the ones used the most.

[Dinosaur]

I used to have several routines for dealing with single pieces of dtext (pre r12 days).  Two of these are still getting regular use: "djm" yields a middle justified piece of dtext (current style, layer and other properties) at the pick point a any angle I specify - great for little area notes or material callouts and "cx" will let me change any text string in multiple dtext objects to a new string.  I also keep "ofc" that will offset most entities a specified distance and place the results on the current layer.  This was added ootb a few releases back but I like mine better and "ppl" which will draw a line from a picked point perpendicular to a chosen line.

[jonesy]

LayerFilterDelete was a must at the old company I worked for.
another regular was one for a rotated rectangle which Stig wrote,
theres many more including one huge time-saver written by Kerry Brown which helped me move cross-sections into place and change the layering to suit our standards

[Tom]

While not a lisp Chucks Hotkeys are one routine used everyday
Kerry's Xplate for 3D solid square & rectangles is also handy
Alot of simple 3 key commands for automating everyday things
eg
;;----- draw line from x to y using snaps
(defun c:lee  ()
    (command "_line" "_endp" pause "_endp" pause "")
    (princ)
    )
(defun c:lei  ()
    (command "_line" "_endp" pause "_int" pause "")
    (princ)
    )
(defun c:lie  ()
    (command "_line" "_int" pause "_endp" pause "")
    (princ)
    )

[Derwin]

'LM'           LineMid:       enter length, enter axis, pick midpoint for new line.
'LTT'          LineTanTan  line from tan to tan
'COPYAD'    CopyAccumulatedDisplacement. pick objects, pick axis, 1st offset, 2nd, 3rd, etc.
'QX'           SaveFlattenedDXF: outputs a 2D dxf without AcadDB rubbish adding N Kb.
'OA' + 'SA'  OpenAs + SaveAs: takes just a company acronym and builds automagic filenames.
'JU'            justify, re-orient lower left corner to 5,5.

all mine.

[Didge]

c:AM - AutoCAD Messenger for sending Windows messages back
and forth without going through the company email system.

Thank-you very muchly Terry - what a great little app.

You've raised a fair few smiles (and un-repeatable messages) this end. 

[terrycadd]

Its funny here in that, the boss was out of the loop of included recipients, as we thought he wouldn’t like the idea. He finally found out about it by one of the drafters, who suggested he try Terry’s AM routine to send quick messages other than wait for us to open up our emails.  He loves it now, and uses it a lot for short messages like: [I need your time sheets by noon.], [When you get back from lunch, let’s go over your project.]

However, that’s not what we use it for.  Ours is sometimes on the lighter side to help pass the day.

[GDF]

I quess mine would be my setup routine for: units, insunits, lunits, textstyle, dimstyles, dimscalle, ltscale...
"all in one" thru a dialog box interface.

;;;ARCH#UNIT is set to "Ci" = IMPERIAL Decimal
;;;ARCH#UNIT is set to "Mm" = METRIC Millimeter
;;;ARCH#UNIT is set to "Cm" = METRIC Centimeter
;;;ARCH#UNIT is set to "Ar" = IMPERIAL Architectural
;;;ARCH#UNIT is set to "Me" = METRIC Meter   
;;;ARCH#UNIT is set to "En" = IMPERIAL Engineering

[GDF]

Then I would say the BEST overall routine would be Tim Willeys's Xref2Block.lsp routine.
Life would be miserable without this one. Thanks Tim.

[GDF]

One more time...

BrowseForFolder.lsp routine is also one of my favorites, by Tony Tanzillo.

[T.Willey]

Then I would say the BEST overall routine would be Tim Willeys's Xref2Block.lsp routine.
Life would be miserable without this one. Thanks Tim.

Glad you still find it useful Gary.

One more time...

BrowseForFolder.lsp routine is also one of my favorites, by Tony Tanzillo.

x2.  I use it so much in most of my routines.