大侠帮看看这个CAD文字加框代用不了昨回事

ccc230

大侠帮看看这个CAD文字加框代用不了昨回事
(defun c:jk()
(setq os (getvar "osmode"))
(setq ech (getvar "cmdecho"))
(setvar  "cmdecho" 0)
(if (< os 16384) (setvar "osmode" (+ os 16384)))
(setq txt (ssget '((0 . "text,mtext"))))
(command "zoom" "o" txt "")
(setq p1 (getvar "extmin"))
(setq p2 (getvar "extmax"))
(setq en (entget (ssname txt 0)) h (cdr (assoc 40 en)) h1 (* h 0.1) p1 (polar p1 (* pi 1.25) h1) p2 (polar p2 (* pi 0.25) h1))
(command "rectang" p1 p2)
(command "zoom" "p")
(setvar "osmode" os)
(setvar "cmdecho" ech)
(princ)
)