TCL Script or Macro to trim surfaces with plans from different directions at one time

Hi, Everyone

       Anyone could help me write a Script or Macro to catch this function that trim surfaces at one time with several planes which belong to the same normal direction.

      Right now it seems to only can choose one plane to trim several surface. For example, firstly select the target surfaces which need to be trimmed, then choose the trim direction like x,y,z-axis, but at last only can select one POINT or NODE. So I want to realize the function that several surfaces can be trimmed at different position under one directions with one operating, instead of several repetitive operating separately. Certainly it will be definitely the best to trim surfaces with plans under different directions at one time.

         I posted this question, however I have not got what I want.

         Hopefully someone can help solve this challenge. Your help will be greatly appreciated.

         Thanks a lot.