[求助]请高手帮忙看如何修改

hydkot99

下上面为一个插入日期的LSP，现想要如下功能：

1、插入日期及时间，精确到分钟；

2、作为图块插入，块名为date_block；

3、插入时先搜索图形文件中是否有同名块，如存在同名块则先记录原块插入点，然后删除原块并插入新块。

先谢谢各位！！！

-----------------------------------

(defun C:date() 
   (setq date0 (menucmd "M=$(edtime,$(getvar,date), D\"/\"M\"\月/\"YYYY)"))
   (setq p1 (getpoint "\n请指定插入中心点 :"))
   (command "text" "j" "M" p1 3.5 0 date0)
   (princ)
)

----------------------------------