Lee Mac Posted October 6, 2010 Posted October 6, 2010 lol, sorry I'd already updated the code As for 'MAssoc' that's one way, here's perhaps two more (defun massoc1 ( x lst ) (vl-remove-if-not (function (lambda (pair) (= x (car pair))) ) lst ) ) (defun massoc2 ( x lst ) (if lst (if (= x (caar lst)) (cons (car lst) (massoc2 x (cdr lst))) (massoc2 x (cdr lst)) ) ) ) Quote
Cat Posted October 6, 2010 Author Posted October 6, 2010 Dualing Lisp Gurus............Any luck? Quote
David Bethel Posted October 6, 2010 Posted October 6, 2010 Cat, I think that you are pretty well screwed as far as easily automating this one. You have 187 ATTDEFs but only 159 unique prompts. Only 160 unique combinations of tagnames and prompts. -David Quote
Cat Posted October 6, 2010 Author Posted October 6, 2010 Cat, I think that you are pretty well screwed as far as easily automating this one. You have 187 ATTDEFs but only 159 unique prompts. Only 160 unique combinations of tagnames and prompts. -David Yeah, I've pretty much had that "screwed" feeling since yesterday. I really appreciate all the effort everyone put in to try and help with this situation. I did however come away with some useful tools for "normal" applications. Thanks again guys. Quote
Cat Posted October 6, 2010 Author Posted October 6, 2010 Sorry I couldn't be of more help, Cat. No worries Renderman, I knew I was in trouble when I saw the tag configuration for the titleblock revisions. Thanks again for going above and beyond in your effort. Quote
BlackBox Posted October 6, 2010 Posted October 6, 2010 Thanks again for going above and beyond in your effort. I'm happy to not help, anytime! lmao Quote
alanjt Posted October 6, 2010 Posted October 6, 2010 You could step through the titleblock's attributes and rename the tags. From there you could do all the 'updating' you needed and you would have a newly updated and non-retarded titleblock. Quote
Cat Posted October 6, 2010 Author Posted October 6, 2010 You could step through the titleblock's attributes and rename the tags. From there you could do all the 'updating' you needed and you would have a newly updated and non-retarded titleblock. Thanks Alan, These are more or less b@@@d drawings from Germany that I hope we won't be getting very often, on top of which, they didn't use the same border throughout the project and they are all configured with the same "logic"....almost choked just trying to type that. Quote
Cat Posted October 7, 2010 Author Posted October 7, 2010 Hi Guys, Just thought I'd let you know that after trying to work with these mucked up titleblocks for the past few days I made an executive decision and blew them to bits with special explode today......I enjoyed it too. Quote
David Bethel Posted October 8, 2010 Posted October 8, 2010 Adj. 1. gratifying - pleasing to the mind or feeling; "sweet revenge" sweet pleasing - giving pleasure and satisfaction; "a pleasing piece of news"; "pleasing in manner and appearance" 1234567890 Quote
CADalyst Posted February 18, 2011 Posted February 18, 2011 This is very close to what I'm looking for. Could you please tell me what I need to change on the lisp as I'd like to clear the value regardless of what the previous value is. Many thanks for your help. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.