乐筑天下

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

[编程交流] Collect blocks, sort and place

[复制链接]

13

主题

126

帖子

114

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
65
发表于 2022-7-6 11:14:55 | 显示全部楼层 |阅读模式
Does anyone have a LISP that can collect a bunch of blocks (by window or select similar) sort them by an attribute and then allow me to array them back into the drawing?
 
My application:
 
I have security systems, CCTV cameras, controlled doors, door access card readers and so on placed in various parts of the building. I need to collect all of each type device and create a conduit riser drawing to show which control room to run the conduit to. My conduit riser is best done in numerical order to reduce the possibility of missing a device. So I spend a fair chunk of time picking each device up, moving it, turning on the grid, dropping it in place and searching for the next device.
 
If anyone has a better method, I would love to hear it.
 
Thanks,
Glen
回复

使用道具 举报

0

主题

85

帖子

87

银币

限制会员

铜币
-2
发表于 2022-7-6 12:00:03 | 显示全部楼层
Tool Palettes for an easy block insert?
 
Get a block count using Quick select?
回复

使用道具 举报

13

主题

126

帖子

114

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
65
发表于 2022-7-6 12:28:00 | 显示全部楼层
I already have placed the blocks on the device layout drawing, I need to duplicate them on the riser drawing, and rather than run the risk of missing one (not to mention having to re-enter the attribute data), I copy the devices from the layouts to a new riser drawing. This leaves them in 'building order' so finding camera #14 can be difficult.
 
I'm already using a 4 line LISP that either Alan or Lee posted that selects all similar blocks
 
  1. (defun c:QSBLOCK (/ ent) (if (and(setq ent (car (entsel))) (eq "INSERT" (cdr (assoc 0 (entget ent)))))   (sssetfirst nil (ssget "_X" (list '(0 . "INSERT") (assoc 2 (entget ent)))))) (princ))
 
Glen
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 11:42 , Processed in 0.403449 second(s), 58 queries .

© 2020-2025 乐筑天下

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