CAD AutoLisp 插入时间

(defun c:TT()
	(command "text" (list 0 0) 2.5 0 "%<\\AcVar Date \\f \"%#c\">%")
	(setq ent (entlast))
	(command "text" (list 0 0) 2.5 0 (cdr (assoc 1 (entget ent))))
	(setq ent1 (entlast))
	(command "erase" ent "")
	(setq s t)
	(while (and s (setq get (grread 1 0)))
		(cond 
			((= 5 (car get))
				(entmod (subst (cons 10 (cadr get))(assoc 10 (entget ent1))(entget ent1)))
			)
			((= 3 (car get))
				(setq s nil)
			)
		)
	)
)