Auto trim a line when inserting a block

Hi,

I am looking for a lisp routine that would automatically trim a line when I insert a pipe fitting block.

Would anyone be able to help me with this? or do anyone have one similar already created?

Thanks

I've done it with vba. See this post.

Thanks for the reply Ed.

I'm kind of unfamiliar with using vba in AutoCAD. How can I implement this code within AutoCAD and it to be specific to the block I insert.

Perhaps something like this: http://www.theswamp.org/index.php?topic=39028.new#new

Or you could take mine, from one guy who wanted to do that to another, I'll share :)
These run from a DCL which is basically a popup menu where the user selects which block they want.
The advantages for doing it this way as opposed to a CUI macro is that we have environment control code within that is designed to check and see if a layer is created, if not, it creates and sets current, if the layer already exists it simply sets the layer current and inserts on that layer.
I'm sure you can appreciate fittings going onto the correct layer, hardcoded so that users don't have to bother with it

Could anyone tell me how to edit the .lsp and .dcl files so that I could use my own blocks? I'm trying to figure out what exactly needs to be replaced in the text to make it all work.

just edit your block and draw or create rectangular shape outside your drawing and do a command "wipeout" to select the rectangle you've created then command "wipeoutframe" then "0" (zero) to turn it OFF