The best .lsp files

[ASMI]

Some changes was made in c:3pl function for best work.

[ASMI]

One suggestion, if you are going to redefine the *error* function, you should consider saving the old *error* function and restoring it at the completion of your routine.

If you write *error* function as local variable and your *error* is interanal function no need to save and restore original *error* function:

(defun myFun (/ *error* ....)

  (defun *error*(msg)
  .....
   ); end of *error*
......
); end of myFun

The changed version of error handler will exist only during work of your function. You can will be convinced of it if will lead experiment. It seems to me is the extremely convenient than each time to save and restore the handler.

[rkmcswain]

If you write *error* function as local variable and your *error* is interanal function no need to save and restore original *error* function:

You are right, I missed the fact that it was a local function.

[ASMI]

Coming back to a 'best' *.lsp. Look 'Get the code!' on www.cadalyst.com. It is impossible to tell that all the published programs concern to the category of the 'best', however they pass preliminary selection and among them is a lot of good.

[rkmcswain]

Here is one that is in discussion in the AUGI forums....

I took the original and made a few changes. The purpose is to save an *additional* backup copy (above and beyond the BAK file) of the current drawing when you save. I wouldn't necessarily use this, but for some, this may be desired. (anyone using this might want to alter the path for the extra file - which is currently set to C:\)

 (DEFUN C:MRSAVE (/ newname)
   (setvar "CMDECHO" 0)
   (if (zerop (getvar "dwgtitled"))
 	(command "._qsave" (getstring "\n Enter drawing name: "))
 	(command "_.qsave")
   )
   (setvar "filedia" 0)
   (setq newname 
 		(strcat
 		  "C:\\"
 		  (getvar "DWGNAME")
 		  "-BAK"		  
 		)
   )  
   (if (findfile (strcat newname ".dwg"))
 	(command "_.save" newname "_Y")
 	(command "_.save" newname)
   )
   (setvar "filedia" 1)
   (princ)
 )

[StykFacE]

Coming back to a 'best' *.lsp. Look 'Get the code!' on www.cadalyst.com. It is impossible to tell that all the published programs concern to the category of the 'best', however they pass preliminary selection and among them is a lot of good.

yeah i've spent lots of time looking through all those archives. some definite good stuff in there. i didn't even think about posting that link

[btraemoore]

www.lee-mac.com this guy has everything for lisp... he is on here very frequently... amazing writer

[Lee Mac]

www.lee-mac.com this guy has everything for lisp... he is on here very frequently... amazing writer

Cheers Trae! I really appreciate your recommendation and compliments for my work

[BIGAL]

Back to Designer what are you using Autocad for then you will get lots of relevant hints about Lisp programs out there.

Totally agree have a look at Lee-Macs site first some great stuf.

[troggarf]

I use this simple one from Kent Cooper a ton. It simply joins all entities that touch at their endpoints into a polyline by simply selecting on object in the chain.

;Entity Join All
;Joins lines, arcs & Polylines at their endpoints automatically.
; All you have to do is select one object
; by Kent Cooper @ Autodesk forums

(defun C:EJA (/ peac cmde); = Polyline Edit: Join All
  (setq peac (getvar 'peditaccept))
  (setvar 'peditaccept 1)
  (setq cmde (getvar 'cmdecho))
  (setvar 'cmdecho 0)
  (command "_.pedit" pause "_join" "_all" "" "")
  (setvar 'peditaccept peac)
  (setvar 'cmdecho cmde)
  (princ)
)