乐筑天下

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

[编程交流] MAC Cad Lisp Assistance - bloc

[复制链接]

2

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 23:00:58 | 显示全部楼层 |阅读模式
Hi All,
 
I hope this is the right approach to my problem - I have searched the forum (and the net) a few times but am yet to find a solution.
 
First and foremost - I am using AutoCad 2014 on a Macintosh...what I would't do for laydel...
 
I work within the Entertainment Sector for a promoter. We regularly receive plans from external sources, many of which are in pretty poor shape. I am required to strip these down but find this very difficult when there are many blocks within the drawing with their layers not set to 0. e.g I am currently stripping down a venue plan, with over 60 blocks, all with different layers. I cant delete the unnecessary layers without changing the layers within the blocks. This is VERY tedious manually.
 
I am hoping someone can help me with a lisp routine to do this automatically. I have been following a thread:
 
"http://www.cadtutor.net/forum/showthread.php?19161-lisp-for-changing-all-objects-in-a-block-to-layer-quot-0-quot/page3"
 
but am unable to get the lisps offered to work (though the one by kpblc seemed to get the closest) and am wondering if this is because I am using Mac? My understanding is that Mac has issues running anything other than AutoLISP?
 
Any help would be appreciated. The thought of doing this manually again is just a little overwhelming and its an issue I am going to continue facing.
 
Cheers, David
回复

使用道具 举报

1

主题

475

帖子

481

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-5 23:38:54 | 显示全部楼层
Hi David,
 
I do remember an old routine, if I'm not mistaken, fixblock.lsp by Owen Wengerd, only in AUTOLISP.
Try doing a search for fixblock...
 
HTH
Henrique
回复

使用道具 举报

2

主题

389

帖子

387

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-5 23:56:38 | 显示全部楼层
Check out this thread: http://www.cadtutor.net/forum/showthread.php?19161-lisp-for-changing-all-objects-in-a-block-to-layer-quot-0-quot
回复

使用道具 举报

2

主题

4

帖子

2

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 00:07:35 | 显示全部楼层
Hi Guys,
 
I feel like such a dope! I tried the Fixblock lisp a few days ago and couldn't get it to work. Today - no problems!
 
I also need to thank fuccaro for his code as well. This is going to save me hours. Wish I took the time to get it working 2 weeks ago!
 
Thank you again.
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-11 03:24 , Processed in 0.345021 second(s), 60 queries .

© 2020-2025 乐筑天下

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