序号标注能不能改成不要外圈？

zfsaaa

网上下的序号标注能不能改成不要外圈？并可标注01或B015。请高手帮忙。

(defun c:nd ()
   (setvar "CMDECHO" 0)
   (setq sc (getdist "\nselect a point to point 从一点到另一点确定字体高度 :"))
   (setq bn (getint "\nInput begin number 输入起始序号："))
   (setq sc1 (* sc 0.53))
   (while (setq p1 (getpoint "\nInsert Point :"))
    (command "circle" p1 "d" sc)
    (command "text" "j" "m" p1 sc1 "" bn)
    (setq s1 (entlast))
    (setq txtn (itoa bn))
    (setq bn (1+ bn))
    (while (and (setq ss (ssget "X" (list '(0 . "TEXT") (cons 1 txtn))))
           (= (sslength ss) 2))
     (setq ss (ssdel s1 ss)
           s1 (ssname ss 0)
           ent (entget s1)
           txtn (itoa (1+ (atoi txtn)))
           ent (subst (cons 1 txtn) (assoc 1 ent) ent))
     (entmod ent)
    )
   )
   (setvar "CMDECHO" 1)
   (princ)
)

caoyin

不要外圈---去掉 (command "circle" p1 "d" sc)

标注01或B015---不是太懂

zfsaaa

谢谢，已经很好了