Lisp request... trim (wall) lines with (column) multiple closed plines and circles

[ilarch2016]

HI~there 

First of all, thank you to anyone willing to help me.
I need a LISP routine.
Command name: CCW (Column Cut Wall)
The workflow is: first select the yellow layer (columns), then select the green layer (walls).
The routine should trim all wall lines that are inside the closed polylines on the column layer, including cutting and removing any wall lines that overlap with the column boundaries.

lisp request.dwg

Edited yesterday at 07:10 AM by ilarch2016

[SLW210]

Try mine...

 

 

[ilarch2016]

7 hours ago, SLW210 said:

Try mine...

 

 

I give it a try.
this is what I got.This routine goes wrong with overlapping. and change the layer(green to yellow)

lisp request_tics result.dwg

[ilarch2016]

I wish the result could be keeping green lines in the original layer, and remove the overlaping 

[SLW210]

The LISP worked on your original drawing, after I flattened it. You have issues with that drawing.

 

You need to set the Current Layer to the one you want.

[Steven P]

For future reference and to follow on from SLW210, I'd perhaps only share the relevant information - seeing your drawing has a lot of layouts with borders, company information and so on, all good but maybe not always the best policy to share publicly. Purged, overkilled and so on to remove any company information that might be hidden too

[ilarch2016]

3 hours ago, Steven P said:

For future reference and to follow on from SLW210, I'd perhaps only share the relevant information - seeing your drawing has a lot of layouts with borders, company information and so on, all good but maybe not always the best policy to share publicly. Purged, overkilled and so on to remove any company information that might be hidden too

OK!! Thanks you so much for remind me.

[ilarch2016]

4 hours ago, SLW210 said:

The LISP worked on your original drawing, after I flattened it. You have issues with that drawing.

 

You need to set the Current Layer to the one you want.

I follow your instructtion. and do the other test, flattened it befor running TICS  ,make sure they are flat. but there are still some overlaping lines left .
I am confused...

lisp test-V2.dwg

Edited 37 minutes ago by ilarch2016