如何连续标住数字

jianmint · 发表于 2004-12-25 10:39:00

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

柯梦楠 · 发表于 2004-12-25 10:52:00

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

jianmint · 发表于 2004-12-25 11:33:00

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

柯梦楠 · 发表于 2004-12-25 12:19:00

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

jianmint · 发表于 2004-12-25 13:41:00

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

alwsu666 · 发表于 2004-12-25 14:19:00

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

f5612140 · 发表于 2004-12-25 22:00:00

TEXTSIZE控制字高

copy


(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输入排序方向:"))
   (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 "5") (setq fun '(car cadr > >)))
       ((= ans "2") (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 · 发表于 2004-12-26 11:28:00

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

阿顺 · 发表于 2005-1-14 15:50:00

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

如何连续标住数字

发表回复

精选推荐