This is an outstanding gesture and effort, but i still have a problem with the License.
Besides the fact that all that code is released under a ``Documentation License'' (like books and manuals) instead of a regular GNU type of license...[you] do realize that [you] can not use any of that code in a ``for sale -- no source'' type of condition right? Not to mention any derivative of any of that code must then be released under the exact same license.
For example I will take a very simple procedure found on that site.
Found here:
[
http://lispwiki.com/index.php5?title=Color_to_Bylayer ]
Orig:
(apply '(lambda ()
(defun *error* (msg)
(prin1 msg))
(setq uecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\nSelect Items To Change To BYLAYER :")
;(setq ps1 (ssadd))
(setq ps1 (ssget))
(command "CHANGE" ps1 "" "P" "C" "BYLAYER" "LT" "BYLAYER" "")
(setvar "cmdecho" uecho)
)'())
Now lets clean up that code a bit for our imediate needs.
My Derivative:
( (lambda ( / *error* uecho ps1)
;; `apply' not necessary
;; localize vars
(defun *error* (msg)
(if (eq (logand (getvar "CMDACTIVE")) 1)
;; lets cancel any command still running...just in case!?
(repeat 2 (command)) )
(prin1 msg))
(setq uecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\nSelect Items To Change To BYLAYER :")
(setq ps1 (ssget))
(if ps1
;; lets add a bit of error checking (crude but effective)
(command "CHANGE" ps1 "" "P" "C" "BYLAYER" "LT" "BYLAYER" ""))
(setvar "cmdecho" uecho)
(princ)) )
Now the orig was relased under the GNU doc licence, and so is mine. Not because I want it to be (i didnt want to give this code to my client who just paid $500 for this gem) but I have to.
Make your own and release it under the BSD License.