What is your most used or favorite lisp routine?(2)

[youngsoo]

Hi all AUGI members!

Please recommend a good lisp for me.

I can't explain enough in English.
Because I have just started studying English.



(defun c:b(/ d d1 d2 d3 d4 d5 d6 d7 b ss) (prompt "(quick block.)")
;;(setq d (rtos (getvar "cdate") 2 8))

(setq d (rtos (getvar "cdate") 2 8 ))

(setq d1 (substr d 1 4)
d2 (substr d 5 2)
d3 (substr d 7 2)
d4 (substr d 10 2)
d5 (substr d 12 2)
d6 (substr d 14 2)
d7 (substr d 16 2))

(setq B (strcat d1 "-" d2 "-" d3 "-" "_" d4 ":" d5 ":" d6 ":" d7))

(setq ss (ssget "_:S"))

(command ".block" B (getvar "VIEWCTR") ss "")
(command ".insert" B (getvar "VIEWCTR") "1" "1" "0")

(prompt "\n^^*")
(prompt (strcat "\nquick block name is \"" b "\"***"))

(princ)
)

[kennet.sjoberg]

Invalid characters in block name is < > / \ " : ; ? * | , = `

you may change the (setq B ...line to
(setq B (strcat d1 "-" d2 "-" d3 "_" d4 "." d5 ))

: ) Happy Computing !

kennet