如何连续标住数字

jianmint

我现在搞基坑工程,其中地下是水泥土深层搅拌桩加固,水泥土搅拌桩布置完了之后需要编号.我只能一个一个的编,特别麻烦!请问各位高手,有什么办法能一次性标住,就好象阵列一样,一次性出来.

柯梦楠

好象是阵列一样？


看你的是不是规则的图形了，是的话，标出一个阵列不就OK了？

jianmint

不是的.我的意思是1.2.3.4.5.......这样连续的让他标住啊.比如说我画了相连的20个圆圈,然后我在第一个圆圈中标了1,我要让后面的圆圈中的数字是2.3.4.5.6.....20.我以前都是一个一个标的.有什么办法让后面的数字一下子出来.况且我要标的数字要到好几百.一个个标太麻烦了!!!!

柯梦楠

要是只标注圆圈就好办了,快速标注就可以啊!

jianmint

我的意思是往里边填数字.不是标他们的大小或是什么间距之类的!

alwsu666

编程可以，在论坛里找好象有

f5612140

TEXTSIZE控制字高

2. (defun c:cir8 (/ txth ss ans pt_list i ename ptms fun pt)
3.    (vl-load-com)
4.    (setvar "cmdecho" 0)
5.    (setvar "blipmode" 0)
6.    (setq txth (getvar "textsize"))
7.    (setq ss (ssget '((0 . "CIRCLE"))))
8.    (initget "1 2 3 4 5 6 7 8")
9.    (setq ans (getkword "\n输入排序方向<1-8>:"))
10.    (setq pt_list '())
11.    (setq i 0)
12.    (repeat (sslength ss)
13.        (setq ename (ssname ss i))
14.        (setq ptms (cdr (assoc 10 (entget ename))))
15.        (setq pt_list (cons ptms pt_list))
16.        (setq i (+ i 1))
17.    )
18.    (cond
19.        ((= ans "1") (setq fun '(car cadr < <)))
20.        ((= ans "4") (setq fun '(car cadr > <)))
21.        ((= ans "8") (setq fun '(car cadr < >)))
22.        ((= ans "5") (setq fun '(car cadr > >)))
23.        ((= ans "2") (setq fun '(cadr car < <)))
24.        ((= ans "7") (setq fun '(cadr car > <)))
25.        ((= ans "3") (setq fun '(cadr car < >)))
26.        ((= ans "6") (setq fun '(cadr car > >)))
27.    )
28.    (setq pt_list (vl-sort pt_list
29.        '(lambda (e1 e2)
30.              ((eval (nth 2 fun))
31.                  ((eval (nth 0 fun)) e1)
32.                  ((eval (nth 0 fun)) e2)
33.              )
34.          )
35.    )
36.    )
37.    (setq pt_list (vl-sort pt_list
38.        '(lambda (e1 e2)
39.              ((eval (nth 3 fun))
40.                  ((eval (nth 1 fun)) e1)
41.                  ((eval (nth 1 fun)) e2)
42.              )
43.          )
44.    )
45.    )
46.    (setq i 0)
47.    (repeat (sslength ss)
48.        (setq pt (nth i pt_list))
49.        (command "text" "m" pt txth 0 (rtos (+ i 1)))
50.        (setq i (+ i 1))
51.    )
52.    (prin1)
53. )

(defun c:cir8 (/ txth ss ans pt_list i ename ptms fun pt)    (vl-load-com)    (setvar "cmdecho" 0)    (setvar "blipmode" 0)    (setq txth (getvar "textsize"))    (setq ss (ssget '((0 . "CIRCLE"))))    (initget "1 2 3 4 5 6 7 8")    (setq ans (getkword "\n输入排序方向<1-8>:"))    (setq pt_list '())    (setq i 0)    (repeat (sslength ss)        (setq ename (ssname ss i))        (setq ptms (cdr (assoc 10 (entget ename))))        (setq pt_list (cons ptms pt_list))        (setq i (+ i 1))    )    (cond        ((= ans "1") (setq fun '(car cadr < <)))        ((= ans "4") (setq fun '(car cadr > <)))        ((= ans "8") (setq fun '(car cadr < >)))        ((= ans "5") (setq fun '(car cadr > >)))        ((= ans "2") (setq fun '(cadr car < <)))        ((= ans "7") (setq fun '(cadr car > <)))        ((= ans "3") (setq fun '(cadr car < >)))        ((= ans "6") (setq fun '(cadr car > >)))    )    (setq pt_list (vl-sort pt_list        '(lambda (e1 e2)              ((eval (nth 2 fun))                  ((eval (nth 0 fun)) e1)                  ((eval (nth 0 fun)) e2)              )          )    )    )    (setq pt_list (vl-sort pt_list        '(lambda (e1 e2)              ((eval (nth 3 fun))                  ((eval (nth 1 fun)) e1)                  ((eval (nth 1 fun)) e2)              )          )    )    )    (setq i 0)    (repeat (sslength ss)        (setq pt (nth i pt_list))        (command "text" "m" pt txth 0 (rtos (+ i 1)))        (setq i (+ i 1))    )    (prin1) )

fubw

在2005中此程序要加在哪里啊?

阿顺

请问有没有在实体上一起标注。