谁能帮我修改下使它能支持天正标注！

cjjh8301

下面是一个快速修改尺寸标注内容的程序，谁能帮我修改下使它能支持天正的尺寸标注！

(defun C:fg( )
(princ "\n选择要修改的尺寸线:")
(setq ss (ssget))
(setq sl (sslength ss))
(setq txt "分格尺寸")
(setvar "cmdecho" 0)
(setq index 0)
(repeat sl
    (setq ent (entget (ssname ss index)))
    (setq index (+ 1 index))
    (setq ty (cdr (assoc 0 ent)))
    (if (= "DIMENSION" ty)
        (progn
         (setq oldtxt (assoc 1 ent))
         (setq newtxt (cons (car oldtxt) txt))
         (setq ent1 (subst newtxt oldtxt ent))
         (entmod ent1)
        ) ;progn end
    ) ;repeat end
)     ;while end
(setvar "cmdecho" 1)
)

aihuyujian

天正的就不要想了