乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 53|回复: 2

对块重新编号?

[复制链接]

19

主题

97

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
179
发表于 2004-10-12 04:58:07 | 显示全部楼层 |阅读模式
有人有口齿不清可以用来按顺序重新编号块吗?
我有一大堆网格引用,作为属性插入,从1开始,到76结束,我需要按顺序重新编号。
为任何帮助干杯。

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

10

主题

153

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
193
发表于 2004-10-12 08:22:53 | 显示全部楼层
这是我写的一个旧的,用于读取多个块,但欢迎您根据需要进行修改和更新。
我可以给你我的新工具,但它是更大程序的一部分,所以会更困难。
用法:
它要求一个参考块(需要具有正确的数字值),然后您根据需要选择每个块重新编号。当您选择一个块时,数量会增加一个。
HTH,
  1. (vl-load-com)
  2. (defun att (atts / num)
  3.   (foreach for-item (vlax-safearray->list
  4.                       (vlax-variant-value
  5.                         (vla-getattributes
  6.                           (vlax-ename->vla-object atts)
  7.                         )
  8.                       )
  9.                     )
  10.     (cond ((or (= (vla-get-tagstring for-item) "ROOM#")
  11.                (= (vla-get-tagstring for-item) "DOOR#")
  12.                (= (vla-get-tagstring for-item) "240-DOOR#")
  13.                (= (vla-get-tagstring for-item) "999")
  14.                (= (vla-get-tagstring for-item) "1")
  15.            )
  16.            (setq num (vla-get-textstring for-item))
  17.           )
  18.     )
  19.   )
  20.   num
  21. )
  22. (defun attup (atts num)
  23.   (foreach for-item (vlax-safearray->list
  24.                       (vlax-variant-value
  25.                         (vla-getattributes
  26.                           (vlax-ename->vla-object atts)
  27.                         )
  28.                       )
  29.                     )
  30.     (cond ((or (= (vla-get-tagstring for-item) "ROOM#")
  31.                (= (vla-get-tagstring for-item) "DOOR#")
  32.                (= (vla-get-tagstring for-item) "240-DOOR#")
  33.                (= (vla-get-tagstring for-item) "999")
  34.                (= (vla-get-tagstring for-item) "1")
  35.            )
  36.            (vla-put-textstring for-item num)
  37.           )
  38.     )
  39.   )
  40.   (vla-update (vlax-ename->vla-object atts))
  41. )
  42. (defun c:numinc        (/ ent sel cnt)
  43.   (setq        ent        (car (entsel "\nSelect reference block:  ")))
  44.   (cond        ((not ent) (princ "\nNothing selected.  *INVALID*"))
  45.         (T (setq cnt (att ent)))
  46.   )
  47.   (while ent
  48.     (setvar "ErrNo" 0)
  49.     (cond
  50.       ((not
  51.          (setq sel (car (entsel "\nSelect attribute to update:  ")))
  52.        )
  53.        (if (/= 52 (getvar "ErrNo"))
  54.          (princ "\nNo object selected, please try again: ")
  55.          (progn
  56.            (princ "\nRight click detected - Terminate program. ")
  57.            (setq ent nil)
  58.          )
  59.        )
  60.       )
  61.       (T (attup sel (itoa (1+ (atoi cnt)))))
  62.     )
  63.   )
  64.   (princ)
  65. )

回复

使用道具 举报

19

主题

97

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
179
发表于 2004-10-12 09:19:10 | 显示全部楼层
非常感谢,我修改了它,它工作得很好。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 15:05 , Processed in 0.553594 second(s), 69 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表