[求助]各位大侠帮忙修改一下程序－序号标注

lsj2004

本程序是一个制作带圈件号标注的lisp程序，程序目前功能非常简单，希望在高手们的帮助下，修改成一个功能相对强大的程序。 想达到的目的：1、能实现动态标注，2、数字记忆和递增功能（还是以自动输入为主）。 ;本程序用于标注带圈设备序号， (defun c:lj () (setq osm (getvar "osmode")) (setvar "orthomode" 0) (setvar "CMDECHO" 0) (setvar "osmode" 0) (command "layer" "n" "P-MARK" "c" "3" "P-MARK" "") (command "layer" "s" "P-MARK" "") (setq k (getint "请输入比例：") (setq p1 (getpoint "\n请选择插入点:")) (setq p2 (getpoint p1 "\n请选择文字插入的位置:")) (setq st1 (getstring "\n请输入编号:")) (setq sc k) (command "donut" 0 (* 0.6 sc) p1 "") ;;;(command "style" "standard" "romans" (* 3.5 k) 0.8 "0" "n" "n") (setq radiu (* 3 sc)) (setq dd (distance p1 p2)) (setq p3 (polar p1 (angle p1 p2) (- dd radiu))) (setvar "osmode" 0) (command "line" p1 p3 "") (command "circle" p2 radiu) (setq st1 st1) (command "text" "s" "standard" "j" "mc" p2 (* 3 sc) "0" st1 "" "") ;;;(setvar "osmode" osmodetemp) (setvar "osmode" osm) (setvar "orthomode" 1) (command "layer" "s" "0" "") ) 希望高手们发挥自己的特长啊，呵呵！