Jump to content
VisDak

Combining LiSP's

Recommended Posts

VisDak

Hi all,

 

Good day to all, I have a 3 Lisp that will automatically mulit-trimming lines according to wall intersection lines, :o

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.:oops:

 

Many Thanks

WALL-L.LSP

WALL-T.LSP

WALL-X.LSP

image.jpg

Share this post


Link to post
Share on other sites
JohnM

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

Share this post


Link to post
Share on other sites
VisDak

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::oops:

 

Thanks again

wallt.lsp

Share this post


Link to post
Share on other sites
flowerrobot

Mate if i was you, i would use mlines, and all there joint features

Share this post


Link to post
Share on other sites
flowerrobot

How ever, i belive this is what you want?

 

 

edit

sorry visdak didnt see you create the solution

WALL-L.LSP

Share this post


Link to post
Share on other sites
rengised

flowerrobot, hi its good lisp but the wall X is not working.. thanks very much

Share this post


Link to post
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...