请高手路过看看这个有问题的小程序

cuyongping

(defun c:ctt()
(setvar "cmdecho" 0)
(setq dd (getdist "\n 输入字间与周围距离<2>："))
(if (null dd)(setq dd 2.0))
(setq ss (ssget))
(setq i 0)
(repeat (sslength ss)
   (setq ssn (ssname ss i))
   (setq ssdata (entget ssn))
   (setq sstyp (cdr (assoc 0 ssdata)))
   (if (= sstyp "text")
      (progn
         (command "ucs" "e" ssn)
         (setq box (textbox ssdata))
         (setq p1 (car box))
         (setq p3 (cadr box))
         (setq p2 (list (car p3)(cadr p1)))
         (setq p4 (list (car p1)(cadr p3)))
         (setq dda (+ (/ (distance p1 p2) 2) dd))
         (setq cen (inters p1 p3 p2 p4 nil))
         (command "circle" cen dda)
      )
     )
     (setq i (1+ i))
   )
(command "ucs" "")
(prin1)
)
检查没有问题，怎么出不来结果了！求高手看看

Andyhon

(= sstyp "text")
==>
(= sstyp "TEXT")

cuyongping

谢谢您了！结果出来了！