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

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

本帖最后由 作者 于 2004-7-14 21:48:09 编辑 <br /><br /> <A name=30705><FONT color=#000066><B>meflying</B></FONT></A>请问如何对属性块自动编号，例如我画一个直径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 编辑 <br /><br /> 对不起，上一次没有表达清楚.<BR>

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




你的要求是这样的吧


不过上面的不是用属性块是用扩展数据的.
页: [1]
查看完整版本: 请问meflying如何对属性块自动编号