DavidF 发表于 2022-7-5 23:00:58

MAC Cad Lisp Assistance - bloc

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

hmsilva 发表于 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

neophoible 发表于 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

DavidF 发表于 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.
页: [1]
查看完整版本: MAC Cad Lisp Assistance - bloc