dimensioning all crossing lines or ... in one side of a selected line!!!

Hi dear friends.

These days, I'm struggling with a difficult problem.

I 'm looking for a lisp routine that can work as folowing:

- Assume an alinged line in model space at xy surface.

- There are objects (lines,arcs,circles,polylines) crossing this line and all these object set to one layer.

- For the routine, I want the ability for dimensioning these objects from their crossing point with assumed line, to the first endpoint of them in one side of assumed line that i specify (left or right/up or below).

Did anyone face to similar problem like me???

Have you got an example DWG or image to explain more?

This is just for example.

test.dwg

It can be done I did an autodimensioning routine it would work better with individual lines rather than a polyline a little bit simpler to calc intersection point. Version 2 say plines

You just need to create a list of objects using ssget and a fence line ie start and end point the original line is compared one at a time to your list of lines, you have a inters pt calculated that can now be dimensioned.

heres some lines of code to give you an idea

(setq apt1 (getpoint "\npick first point to dimension :"))

(setq pt5 (getpoint apt1 "\npick second point to dimension :"))

(setq ss (ssget "F" (list apt1 pt5)))

(while (setq en (ssname ss 0)) ;etc loop through lines picked

(setq pt8 (inters apt1 pt5 pt4 pt6 nil)) ;these pts 4 & 6 are new line points

then dimension say pt8 and pt4 as pick points

; Delete each measured entity from set

(ssdel en ss) ; Delete each measured entity from set

) end while

Hope this makes sense sorry no actual program