为文本加框的小程序

blueshake

下面的代码是用于文本加框的，但是却不行，不知道错在哪里？请大侠们帮忙看下。谢谢。

(defun c:drawing_retangle_for_text(/)
	(setq dd 0.5)
	(print "\nplease choose the texts.")
	(setq ss (ssget))
	(setq i 0)
	(repeat (sslength ss)
		(setq ssn (ssname ss i))
		(setq ssdata (entget ssn))
		(setq key (cdr (assoc 0 ssdata)))
		(if (= key "MTEXT")
		;then
			(progn
				(setq box (textbox ssdata))
				(setq p1 (car box))
				(setq p3 (cadr box))
				(command "_.rectangle" p1 p3 "")
			)
		)
	)
	(princ)
)