VisDak Posted July 9, 2009 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
JohnM Posted July 10, 2009 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
VisDak Posted July 10, 2009 Author 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
flowerrobot Posted July 10, 2009 Posted July 10, 2009 Mate if i was you, i would use mlines, and all there joint features Quote
flowerrobot Posted July 10, 2009 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
rengised Posted June 23, 2010 Posted June 23, 2010 flowerrobot, hi its good lisp but the wall X is not working.. thanks very much Quote
3dwannab Posted April 25 Posted April 25 Fixed the X wall and also edited the prompt for the T so it's more explanatory. Like so: WALL-L X fixed.LSP 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.