liumangwen 发表于 2009-10-1 22:27:00

[求助]属性块的自动编号程序，要按选择的顺序编号。

<p>请教高手，属性块的自动编号程序，要按选择的顺序编号。</p><p>如附件所示，有很多个这样的属性块，而且不对齐。能否编个程序按选择块的自动顺序编号，显示在111的属性值里。谢谢！</p>

ZZXXQQ 发表于 2009-10-2 09:08:00


;属性按选择顺序加1。明经 ZZXXQQ 2009.10.2
(defun c:add1 ()
(if (setq n (getint "\nInput Start Number 输入起始号 :")) (progn
(while (and (setq s1 (entsel "\nSelect Block with Attrib 选择带属性图块 :"))
         (setq ent (entget(setq en (car s1))))
         (= (cdr(assoc 0 ent)) "INSERT")
         (= (cdr(assoc 66 ent)) 1))
   (setq entf (entget(entnext(cdr(assoc -1 ent)))))
   (setq txtn (strcat (if (< n 100) " " "") (itoa n) (if (< n 10) " " "")))
   (setq entf (subst(cons 1 txtn) (assoc 1 entf) entf))
   (entmod entf)
   (entmod ent)
   (setq n (1+ n))
)
))
(princ)
)

Kye 发表于 2014-1-3 23:11:03

ZZXXQQ 发表于 2010-6-29 22:20 static/image/common/back.gif


为了看Z版的贴顶下

13993359550 发表于 2020-4-22 22:45:17

感谢楼主!                           

liumangwen 发表于 2009-10-11 22:12:00

<strong><font face="Verdana" color="#da2549">谢谢ZZXXQQ兄弟，很有用。谢谢！</font></strong>

yuwenzi 发表于 2009-11-25 19:41:00

看看吧

zmyjy8258 发表于 2010-1-18 16:42:00

<p>谢谢楼上的，很有用</p>

poorpig 发表于 2010-1-29 22:05:00

<p>我是新手请多关照</p><p></p>

wzq5525 发表于 2010-4-18 14:21:00

<p>谢谢楼上的，很有用</p>

jscxh372 发表于 2010-4-18 17:33:00

<p>这么看不见</p>

skynoon 发表于 2010-4-28 00:05:00

<p>第一次回复，只求看帖</p>

windyblue 发表于 2010-6-4 15:15:00

第一次回复，我也只求看帖
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: [求助]属性块的自动编号程序，要按选择的顺序编号。