请问meflying如何对属性块自动编号

zmcy2003 · 发表于 2004-7-14 21:23:00

本帖最后由作者于 2004-7-14 21:48:09 编辑

meflying请问如何对属性块自动编号，例如我画一个直径5mm的圆，将它定为属性块，并使属性值编号显示在圆的上方，假如有很多这样的带属性圆，如何使它们能自动编号并显示在块的上方，谢谢！！！

龙龙仔 · 发表于 2004-7-15 10:34:00

;;疑问同楼上!!;;假设属性块名称为"OS"并只有一个属性(defun C:TT (/ N INS ATTDIA ATTREQ) (setq HOLDDIA (getvar "ATTDIA")) (setq HOLDREQ (getvar "ATTREQ")) (setq HOLDECHO (getvar "CMDECHO")) (setvar "ATTDIA" 0) (setvar "ATTREQ" 1) (setvar "CMDECHO" 0) ;;(if (not (tblsearch "BLOCK" "OS")) ;; (MBA);生成带属性图块 ;;) (setq N 1);起始数值 (while (setq INS (getpoint "\n插入点/<ENTER 结束>: ")) (command "_.INSERT" "OS" INS 1 "" 0 N) (setq N (1+ N)) ) (setvar "ATTDIA" HOLDDIA) (setvar "ATTREQ" HOLDREQ) (setvar "CMDECHO" HOLDECHO) (princ))

meflying · 发表于 2004-7-15 09:27:00

什么情况下让它自动编号？显示在哪个块的上方？

tianliangle · 发表于 2004-7-15 10:42:00

好象直接插入带属性的块比较方便一些。

zmcy2003 · 发表于 2004-7-17 00:45:00

本帖最后由作者于 2004-7-17 6:40:30 编辑

对不起，上一次没有表达清楚.

2002-ytf · 发表于 2004-7-26 17:28:00

本帖最后由作者于 2004-7-27 15:36:56 编辑

我也有类似的请求,见附图

liyunlong · 发表于 2004-8-19 17:55:00

就是自动编号啊.有很多的块的.需要编号.编完一个块后再给另一个块编号他会递增上去并要提供输入!

spring · 发表于 2004-8-19 19:48:00

你的要求是这样的吧

不过上面的不是用属性块是用扩展数据的.

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