Your favorite lisp

[Dadgad]

Picking just one is a real challenge, but in my case it would definitely be one of Lee Mac's.

 

I just can't decide which one .... oh well, LAYER DIRECTOR it is then,

http://www.lee-mac.com/layerdirector.html

since it is always running when I am working, unlike others which I use when needed.

 

Thanks Lee!

[jdiala]

It's probably my duct and piping lisp but it hard to pick just one.

 

http://www.youtube.com/watch?v=Q_3U7O5PoBM&feature=youtu.be

[Bhull1985]

Says youtube link is "private"

[Tharwat]

Says youtube link is "private"

 

1+

 

 

 

 

 

 

.........

[Bhull1985]

Share source, Jdiala? Looks like a cool and useful prog\

pm'ing my email.

[LibertyOne]

My favourite is my Stair lisp, because it was my first and I was given advice jointly by members here and over at the swamp.(some overlap of members is more than probable ) It reminds me both of my accomplishment and the huge generosity of the members of these forums for which I am thankful.

Rob.

 

Hey Rob-GB! Could you be so kind and show a screenshot of the results of your stair lisp?

[Hippe013]

Here is a good lisp:

 

(defun c:cad ()
 (command "BROWSER" "http://www.cadtutor.net/")
 (princ)
 )

[bababarghi]

All Lee Mac's lisps can be named in this thread I suppose but I use BFIND and BATTE the most.

[piu79]

ROBP,

 

Can you send me some lisp?

 

about: screw conveyor and concentric cone?

 

Thanks.

 

Edwin

[ronjonp]

I use this daily:

;; Open folder current directory
(defun c:cd (/ _opendirectory)
 (defun _opendirectory	(path / sa)
   (if	(and (eq 'str (type path))
     (findfile (vl-string-right-trim "\\" path))
     (setq sa (vlax-create-object "Shell.Application"))
)
     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
   )
   (princ)
 )
 (_opendirectory (getvar 'dwgprefix))
)

[Grrr]

I use this daily:

..

 

I used this one:

; To Display / Open the current / active dwg in explorer, to see where its located
(defun C:test ( / )
 (cond 
   ( (zerop (getvar 'dwgtitled)) (alert "\nThis drawing is not saved!") )
   ( (startapp (apply 'strcat (append '("explorer /select, ") (mapcar 'getvar '(dwgprefix dwgname)) '(", /e")))) )
 ); cond
 (princ)
); defun C:test

 

But I always forget how I named the .lsp file or the command definition so just write (getvar 'dwgprefix) to see on what dwg I'm working on.

[mstg007]

http://www.lee-mac.com/incrementalarray.html

 

 

Make sure you use the "The dynamic mode: incarrayd". This one ROCKS!

 

 

Use it ALOT and thanks Lee!

[Grrr]

http://www.lee-mac.com/incrementalarray.html

Make sure you use the "The dynamic mode: incarrayd". This one ROCKS!

Use it ALOT and thanks Lee!

 

Judging by Lee's background - which is automating work for different companies,

even if you don't know what your favourite lisp is he would find a way to save you so much time and effort,

so even hiring additional work(ers) won't worth it.

[Steven P]

Simplest is the best I think.

The ones I use daily are:

"ZA".... Zoom All wihch wouldn't take a genius to work out

A3P... A3 Plot send a plot to the A3 printer and PLOTPDF saves a PDF in the same folder as the drawing (these are my first 2 so the code probably isn't the best, but they work)

[hanhphuc]

(command "shell" (strcat "explorer \"" (getvar 'dwgprefix) "\""))

 

my fav is Doug Wilson's transpose = (apply 'mapcar (cons 'list lst))

[halam]

My new favorite

This toggle for a classic toolbar

 

 

; TOGGLE TOOLBAR CONTROL
(defun c:-TB-ins ()
   (if (null -tb-ins)
       (setq -TB-ins 0)
   )
   (setq -TB-ins (abs (- 1 -tb-ins)))
   (if (= -TB-ins 0)
       (COMMAND "-TOOLBAR" "CONTROL" "hide")  ; CONTROL: jouw custom toolbar
       (COMMAND "-TOOLBAR" "CONTROL" "show")  ; CONTROL: jouw custom toolbar
   )
)

 

 

https://drive.google.com/file/d/1ty_ARHfa1EAfzkwahX0CJv_dZrLhskIx/view

[masterfal]

couple of goodies..

 

copy print settings from current layout sheet to all others (this has saved me huge amount of time!)

 

(defun c:CSTP  ( / Adoc Layts clyt)
     (setq aDoc  (vla-get-activedocument (vlax-get-acad-object))
           Layts (vla-get-layouts aDoc)
           clyt  (vla-get-activelayout aDoc))
     (foreach
            itm  (vl-remove (vla-get-name clyt) (layoutlist))
           (vla-copyfrom (vla-item Layts itm) clyt)
           )
     (princ)
     )

 

 

Quick Rotate - rotates selected objects 90degrees around centerpoint of object

With every click or enter pressed next rotation is made.

QR.lsp

[masterfal]

PLOTPDF saves a PDF in the same folder as the drawing

 

oh I've been looking for something like this forever! always thought autocad should have an option to do that..