请教：如何进行自动编号

胡说 · 发表于 2005-2-26 20:23:00

我想在要画桩位布置图，如何对桩号进行自动编号？不然，一个一个的改十分麻烦，而且容易出错。

tanyong1 · 发表于 2005-2-27 11:56:00

好像不能吧

席恩蒂 · 发表于 2005-2-27 13:23:00

那得编个程序！

胡说 · 发表于 2005-2-27 21:38:00

如果网上没有，等有时间我就自己编一个程序。

CADghost · 发表于 2005-2-28 08:04:00

说说看,没准有高手可以帮帮你呢?你就不用抽时间了,

lilixing24 · 发表于 2005-2-28 13:33:00

楼主说的是墙体的编号吗？

天正里面有。。。

wudongwei · 发表于 2005-3-3 01:49:00

楼主提出的问题很有趣，我为您编个程序如下，供你参考。 (defun c:biaohao ( / )
(setq h (getreal "\n 请输入标号字体的高度h:"))
(setq bili (getreal "\n 请输入图纸的比例b:"))
(setq h1 (* h bili))
(setq n (getint "\n 请输入标号的最大值n:"))
(setq i 1)
(while (< i n)
(setq pt (getpoint "\n 请输入标号的位置pt："))
(command "text" "m" pt h1 0 (rtos i 2 0))
(setq i (+ i 1))
)
)

账号		自动登录	找回密码
密码			注册