martinle Posted June 20, 2018 Share Posted June 20, 2018 (edited) Please help! I have this Lisp that shows me the groups of the list one after the other. How can I change this lisp so that all groups, including the anonymous groups and named groups, are shown one after the other? Thank you for your help. (defun C:Isolategroup1 (/ gruppenliste ss) (setq gruppenliste '("Wand" "Sockel" "Täfelung" "Gesims" "Abdeckplatte" "Decke")) (foreach X gruppenliste (command "_.point" "0,0") (command "_.erase" "_L" "") (command "_.select" "_G" X "") (setq ss (ssget "_P")) (if ss (progn (command "_.isolateobjects" "gr" X "") (alert (strcat "Zeige Gruppe " X)) (command "_.unisolateobjects") ) (alert (strcat "Gruppe " X " ist leer")) ) ) (princ) ) Edited June 20, 2018 by rkmcswain Added [CODE] tags Quote Link to comment Share on other sites More sharing options...
SLW210 Posted June 20, 2018 Share Posted June 20, 2018 Please read the Code Posting Guidelines and have your Code to be included in Code Tags.[NOPARSE] Your Code Here[/NOPARSE] = Your Code Here Quote Link to comment Share on other sites More sharing options...
martinle Posted June 20, 2018 Author Share Posted June 20, 2018 OK. Excuse me please Quote Link to comment Share on other sites More sharing options...
rlx Posted June 20, 2018 Share Posted June 20, 2018 maybe someting usefull here? : http://www.cadtutor.net/forum/showthread.php?12647-Getting-a-list-of-groups-used-in-autocad Quote Link to comment Share on other sites More sharing options...
martinle Posted June 20, 2018 Author Share Posted June 20, 2018 Hello, Yes, thank you that brings me a bit further. Now I have to see how I convert this list into my group list so that isolating works one after the other. Or does anyone have an idea? Thank you. Quote Link to comment Share on other sites More sharing options...
martinle Posted June 20, 2018 Author Share Posted June 20, 2018 Hello rlx, am very happy, have it with your help managed to rebuild the Lisp so that it meets my expectations. Many Thanks! Quote Link to comment Share on other sites More sharing options...
rlx Posted June 20, 2018 Share Posted June 20, 2018 Hello rlx, am very happy, have it with your help managed to rebuild the Lisp so that it meets my expectations. Many Thanks! didn't do that much, but I'm glad the little that I did helped you enough Quote Link to comment Share on other sites More sharing options...
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.