CAD编辑文字递增

复制下面这段代码(defun C:yy(/ xa1 list1 xnum1 chr1 chr2 newnum) (setq chr1 (getstring "\n请输入编号得前缀："))(setq