[求助]：刚找的自动编序号的LISP,那位大侠帮改改

ZHJ0034

这个LISP自动编的序号数字在圆心上,希望高手帮忙...把自动序号放到圆的左上角....

(defun c:n() ;*
(setq ColorCode (getint "\n请输入字体颜色代码(红1/黄2/绿3/青4/蓝5/紫6/白7):")) ;*
(command "-layer" "m" "编号" "c" "7" " " "") ;*
(command "-style""编号""romans""0""0.5""0""n""n""n") ;*
(command "osmode" "0") ;*
(command "_color" ColorCode) ;*
(setq Radius (getdist "\n请输入圆圈半径: ")) ;*
(setq Num (getint "\n请输入起始编号:")) ;*
(while (> ColorCode 0) ;*
(setq CenterPt (getpoint "\n请指定下一个点: ")) ;*
(if CenterPt ;*
(progn ;*
(command "circle" CenterPt Radius) ;*
(command "text" "j" "m" CenterPt (* 1.2 Radius) "0" Num) ;*
(setq Num (+ Num 1)) ;*
) ;*
(setq ColorCode 0) ;*
) ;*
)
(command "-layer" "m" "0" "c" "7" " " "")
(command "-style""standard""宋体""0""1""0""n""n""n")
(command "color" "bylayer")
(command "osmode" "699")
(princ)
)

skg123

你需要把你想要的效果贴图。