VisDak Posted July 9, 2009 Share Posted July 9, 2009 Hi all, Good day to all, I have a 3 Lisp that will automatically mulit-trimming lines according to wall intersection lines, WALL-L.lsp: multi-trimming an angle line like fillet, WALL-T.lsp: multi-trimming lines according to T connection WALL-X.lsp: multi-trimming lines according to cross lines I need to make this 3 routes to become 1 Lisp (3to1), by having a selections and then when the selection was choose and already select a lines want to trimmed, press enter button to go back on selection to choice another type trimmer, im trying to make this but always (error: malformed list on input) i attached my 3 lisp's to create by 1, Kindly please help me on this. Many Thanks WALL-L.LSP WALL-T.LSP WALL-X.LSP Quote Link to comment Share on other sites More sharing options...
JohnM Posted July 10, 2009 Share Posted July 10, 2009 Make a main defun to ask for selection and call the correct lisp/ Get rid of the C: part of all the other defuns so they can be called by the main defun When the routine is finished just right click to re-enter it. Main defun This one has the C: so it can be called at the command line Put this at the top of one of the files (defun c:wallt ( / wtyp) (initget "L T X) (setq wtyp (getstring "Enter Trim Type: [L\T \X ")) (if (= wtyp “L”)(wall-l));_call correct lisp (if (= wtyp “T”)(wall-t));_call correct lisp (if (= wtyp “X”)(wall-x));_call correct lisp (princ) );_defun I have not checked this but you should get the idea. I would make sure it works then compile to a VLX file just to make it easy to load Quote Link to comment Share on other sites More sharing options...
VisDak Posted July 10, 2009 Author Share Posted July 10, 2009 Thank JohnM, i already tried to modified, no malfunction load no error:D only i dont understand why it continious to ta command system must be to select first the selection line, please have a check these i just attached the lisp route its to long because i just combined it sorry: Thanks again wallt.lsp Quote Link to comment Share on other sites More sharing options...
flowerrobot Posted July 10, 2009 Share Posted July 10, 2009 Mate if i was you, i would use mlines, and all there joint features Quote Link to comment Share on other sites More sharing options...
flowerrobot Posted July 10, 2009 Share Posted July 10, 2009 How ever, i belive this is what you want? edit sorry visdak didnt see you create the solution WALL-L.LSP Quote Link to comment Share on other sites More sharing options...
rengised Posted June 23, 2010 Share Posted June 23, 2010 flowerrobot, hi its good lisp but the wall X is not working.. thanks very much 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.