谁能帮我修改下使它能支持天正标注！
下面是一个快速修改尺寸标注内容的程序，谁能帮我修改下使它能支持天正的尺寸标注！(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)
)
天正的就不要想了
页:
[1]