[分享]：关于一个自动编序号的程序

txzjtxzj · 发表于 2005-5-26 12:21:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

关于一个自动编序号的程序
(defun c:zdbh (/ oce1 qz n1 zn h1 sxh1 p1)

(setq oce1 (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "-style" "BG_ST" "宋体" 0 0.8 0 "n" "n")

(setq qz (getstring "\n请输入前缀相同的部分: "))
(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
(setq n1 1)
)
(if (not (setq zn (getint "\n请输入增加或减少的序数 <+1>: ")))
(setq zn 1)
)
(if (not (setq h1 (getreal "\n请指定文字高度 <2.5>: ")))
(setq h1 2.5)
)
(setq
sxh1 (strcat qz (itoa n1))
p1 (getpoint "\n请指定插入点: ")
)
(while (/= p1 nil)
(command "text" "m" p1 h1 0 sxh1)
(setq
n1 (+ n1 zn)
sxh1 (strcat qz (itoa n1))
p1 (getpoint "\n请指定下一插入点: ")
)
)
(setvar "cmdecho" oce1)
(princ)
)
这个程序收集自网上，但是有一个缺陷，就是数字只能冲1这样的数字开始，不能冲001,002这样编，哪个大虾能帮助改改么？

huiling6868 · 发表于 2005-5-28 16:09:07

输入zdbh命令显示未知命令.

jinsong-liao · 发表于 2005-6-15 10:26:46

完全可以用，对管线编号实用性大。谢谢分享！

water02 · 发表于 2005-6-15 21:40:59

要是，不用手动点对象，即对一批对象，一次性完成编号，就更好了

txzjtxzj · 发表于 2005-6-19 14:33:43

对一批对象，一次性完成编号

这些对象做成属性块，再用eachy斑竹的属性块序号程序就可以对这些对象批量编号；

nyp · 发表于 2005-6-20 13:23:39

初学者，不太明白。

zh_6531394 · 发表于 2005-7-1 14:41:40

可以从001,002这样编啊

y562288 · 发表于 2005-7-20 14:25:44

谢谢

Ray0512 · 发表于 2005-7-21 09:05:22

这个程序该怎么应用呀？
属性块该怎么做呢？请楼主指教！！谢谢

lyl6414300 · 发表于 2005-7-25 11:31:43

楼主的命令不错，要是可以自动阵列就好了。

doubao · 发表于 2005-7-28 22:37:53

autocad expresstools 里就有自动编号程序，可以设起始值，增量，等等，非常方便。
不过只能是数字编号（虽然可以加字母前缀或后缀），想要A， B， C， D之类的自动编号就不灵了，如果能改进一下就好了。

vang8866 · 发表于 2005-7-29 00:23:33

我做了一个可以自动编号的程序 ABC 也可以也可以从任一个数字或字母开始,

y562288 · 发表于 2005-7-29 08:21:39

整体感觉好，不过有个缺陷，就是不能列阵！！

gyc2001 · 发表于 2005-12-25 08:44:31

如果字母也可以就好了！

ysp1111 · 发表于 2005-12-28 23:33:54

好东西，楼主把其他的都贴出来撒

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

[分享]：关于一个自动编序号的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子