乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 113|回复: 8

如何连续标住数字

[复制链接]

13

主题

21

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
73
发表于 2004-12-25 10:39:00 | 显示全部楼层 |阅读模式
我现在搞基坑工程,其中地下是水泥土深层搅拌桩加固,水泥土搅拌桩布置完了之后需要编号.我只能一个一个的编,特别麻烦!请问各位高手,有什么办法能一次性标住,就好象阵列一样,一次性出来.
回复

使用道具 举报

33

主题

642

帖子

7

银币

中流砥柱

Rank: 25

铜币
774
发表于 2004-12-25 10:52:00 | 显示全部楼层
好象是阵列一样?
看你的是不是规则的图形了,是的话,标出一个阵列不就OK了?
回复

使用道具 举报

13

主题

21

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
73
发表于 2004-12-25 11:33:00 | 显示全部楼层
不是的.我的意思是1.2.3.4.5.......这样连续的让他标住啊.比如说我画了相连的20个圆圈,然后我在第一个圆圈中标了1,我要让后面的圆圈中的数字是2.3.4.5.6.....20.我以前都是一个一个标的.有什么办法让后面的数字一下子出来.况且我要标的数字要到好几百.一个个标太麻烦了!!!!
回复

使用道具 举报

33

主题

642

帖子

7

银币

中流砥柱

Rank: 25

铜币
774
发表于 2004-12-25 12:19:00 | 显示全部楼层
要是只标注圆圈就好办了,快速标注就可以啊!
回复

使用道具 举报

13

主题

21

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
73
发表于 2004-12-25 13:41:00 | 显示全部楼层
我的意思是往里边填数字.不是标他们的大小或是什么间距之类的!
回复

使用道具 举报

9

主题

77

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
113
发表于 2004-12-25 14:19:00 | 显示全部楼层
编程可以,在论坛里找好象有
回复

使用道具 举报

6

主题

412

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

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

使用道具 举报

22

主题

60

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
148
发表于 2004-12-26 11:28:00 | 显示全部楼层
在2005中此程序要加在哪里啊?
回复

使用道具 举报

1

主题

20

帖子

1

银币

初来乍到

Rank: 1

铜币
24
发表于 2005-1-14 15:50:00 | 显示全部楼层
请问有没有在实体上一起标注。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-17 00:16 , Processed in 2.133731 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表