Insert block from pull down menu, Autoname block

[sketch11]

By trial and error this seems to work.

 

(defun blkins (blkname) ;the name of the program or function must be defined in the first statement
(command "-INSERT" blkname (getpoint "\nPick insertion point") 1 "" 0) ;"1" is the scale, "0" is the rotation
(command "-rename" "block" blkname  (strcat blkname "-" (rtos (getvar "cdate") 2 6))) ; rtos: Converts a number into a string     strcat: Returns a string that is the concatenation of multiple strings
)