请各位网友帮忙！

postbing

不知楼主这几个数有什么特定的要求？

本人有二种方式供参考

1.如果这几个数要是成一定的比例的话你可采取获得当前标注的字高做一个参考再算出其它的几个数，

2.如果这几个数没有什么规律的话你可以把这几个数设成全局变量，这样只样第一次输入了这几个数，以后键入这个命令的时候先检测一下这个数值是否为空，

如果有什么不明白的请联系：

E_MAIL:POSTBING@163.COM

QQ:158042947

xyp1964

试试：

2. (defun C:BUBBLE (/ cmo bmo ars cr ts sp ep ang dist ar cpl textw)
3.   (setq cmo (getvar "CMDECHO")
4. bmo (getvar "BLIPMODE")
5.   )
6.   (setvar "CMDECHO" 0)
7.   (setvar "BLIPMODE" 0)
8.   (setq ars 500    ;(getdist "\n请指定箭头尺寸: "))
9. cr  250    ;(getint "\n请指定指标圆球半径: "))
10. ts  (- (* cr 2) 200)  ;(getstring "\n请指定文字高度: "))
11.   )
12.   (while (setq sp (getpoint "\n请点取欲放置箭头的位置<退出>: "))
13.     (setq ep (getpoint sp "\n请放置指标圆球位置: ")
14.    ang (angle sp ep)
15.    dist (distance sp ep)
16.    ar (* 0.3 ars)
17.    cpl (polar sp ang (+ cr dist))
18.    textw (getstring "\n请指定指标圆球内的编号: ")
19.     )
20.     (command "line" sp ep "")
21.     (command "pline"
22.       sp
23.       "w"
24.       "0"
25.       ar
26.       (polar sp ang ars)
27.       ""
28.     )
29.     (command "circle" cpl cr)
30.     (command "text" "m" cpl ts 0 textw)
31.   )
32.   (setvar "CMDECHO" cmo)
33.   (setvar "BLIPMODE" bmo)
34.   (princ)
35. )

(defun C:BUBBLE (/ cmo bmo ars cr ts sp ep ang dist ar cpl textw)   (setq cmo (getvar "CMDECHO") bmo (getvar "BLIPMODE")   )   (setvar "CMDECHO" 0)   (setvar "BLIPMODE" 0)   (setq ars 500    ;(getdist "\n请指定箭头尺寸: ")) cr  250    ;(getint "\n请指定指标圆球半径: ")) ts  (- (* cr 2) 200)  ;(getstring "\n请指定文字高度: "))   )   (while (setq sp (getpoint "\n请点取欲放置箭头的位置<退出>: "))     (setq ep (getpoint sp "\n请放置指标圆球位置: ")    ang (angle sp ep)    dist (distance sp ep)    ar (* 0.3 ars)    cpl (polar sp ang (+ cr dist))    textw (getstring "\n请指定指标圆球内的编号: ")     )     (command "line" sp ep "")     (command "pline"       sp       "w"       "0"       ar       (polar sp ang ars)       ""     )     (command "circle" cpl cr)     (command "text" "m" cpl ts 0 textw)   )   (setvar "CMDECHO" cmo)   (setvar "BLIPMODE" bmo)   (princ) )