topic Re: Move line in Visual LISP, AutoLISP and General Customization Forum

Move line

chan230984 — Wed, 20 May 2020 07:38:03 GMT

Hi all. Please help me write lisp

I have a red line and a green line.
I want the green line Moved to the red line, With the green end of the line just attached to the red line

thanks

Re: Move line

pbejse — Wed, 20 May 2020 07:46:40 GMT

@chan230984 wrote:

Hi all. Please help me write lisp

I have a red line and a green line.

Done

Re: Move line

Sea-Haven — Thu, 21 May 2020 00:54:32 GMT

What are the rules ? Washing my crystal ball at moment.

Re: Move line

Kent1Cooper — Thu, 21 May 2020 02:57:18 GMT

And what is the red "line?" A Polyline? Three independent Lines?

Manually, one way to do it is to Move the green Line so that its left end lies anywhere along the left red Line [or Polyline segment]. Then if the left red part is a Line, Copy it so that the temporary copy passes through the green Line's right end, and crosses the right red part. Or if the red is a Polyline, draw a temporary Line over the left segment and Move that over to the green Line's right end. Then Move the green line from its right end to the intersection of the right red part with the temporary Line.

That could perhaps be automated, but how to do so does depend on the answer to my first question.

Re: Move line

chan230984 — Thu, 21 May 2020 03:43:15 GMT

@Kent1Cooper

thank you, but I have to do it a lot

Red is the polyline

Re: Move line

chan230984 — Thu, 21 May 2020 03:39:29 GMT

@Sea-Haven

My purpose is to draw the road pipe work.

and I have to do it a lot

Re: Move line

chan230984 — Thu, 21 May 2020 03:53:24 GMT

From this

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-move-block-help/m-p/7576464#M361947

I want to change from block to line.

Re: Move line

john.uhden — Thu, 21 May 2020 16:41:38 GMT

It appears that you want to move the line vertically so that its ends end up on the side slopes of your road. But if the green line is a pipe, then either its length or slope will most likely have to change. Anyway, I don't understand because your design should be controlled by elevation (level). Moving the pipe to fit the side slopes makes no sense to me. Instead you should copy the green line up a distance equal to the sum of pipe diameter and minimum height of headwall above pipe. Then the headwalls would be placed at the intersections of the copied line with the side slopes, and the pipe length modified to where the headwalls are, maintaining the pipe's slope.

Re: Move line

Kent1Cooper — Thu, 21 May 2020 19:10:27 GMT

I see the green Line is no longer there in the "after" part of your sample. It should be possible to do this by picking the two points without actually drawing a Line.

But your statement in Message 5 is not correct -- in both drawings the red is made up of three separate Lines. That probably means it would be necessary to select the two points and their associated two Lines, in relation to each other [in other words, prompt the user to select the left point and the left Line, and then the right point and the right Line]. If that's an acceptable procedure, I think it could be automated without the need for the green Line.

Re: Move line

Kent1Cooper — Thu, 21 May 2020 19:16:19 GMT

@chan230984 wrote:

From this ...-move-block-help/m-p/7576464#M361947... I want to change from block to line.

That actually makes it easier than with the Block, because of the difficulty of having a routine find the corner of the Block if it's not at zero rotation, as described in Message 8 there. [The Solution there may work if the Block is a rectangle, but I expect not necessarily if it has some other shape.]

Re: Move line

ronjonp — Thu, 21 May 2020 21:33:01 GMT

@chan230984 wrote:
Hi all. Please help me write lisp
I have a red line and a green line.
I want the green line Moved to the red line, With the green end of the line just attached to the red line
thanks

Explain your manual steps and maybe it can be translated to lisp.

Re: Move line

Sea-Haven — Fri, 22 May 2020 01:01:19 GMT

Something we did all the time adding to road cross sections so a bit more info to complicate matters. The end invert levels control and is it a pipe or a box culvert or is cutting permitted the Box culvert is 1.2m long a pipe is about 2.3m long and often are cut to suit. So it should be based around a cross section taking into account horizontal and vertical scales and the datum level of the section. Endwalls vary with the ultimate edge height being extended up so road edge does not wash away. Oh yeah we would normaly draw the pipe od & id so that varies also with plastic pipe being thinner.

A lisp would be good never got around to doing one, and happy to help, needs the following left and right offset from c/l same with invert levels, type of endwall. Use lee-mac parse to get datum level ie "Datum 20.0" and in turn a Y value to work from, same with c/l pick for X. I have code for that.

回复： Move line

sby0531 — Sat, 23 May 2020 14:11:09 GMT

Hi, I have developed a programme to move the green line sement to connect the two red line of road side slopes. And the programme works well on my computer. The lisp file has been uploaded for your reference. One thing to be aware of, however, is that a number of functions defined by myself have been called on this programme to simplify lisp programming.

回复： Move line

pbejse — Sat, 23 May 2020 16:05:46 GMT

回复： Move line

chan230984 — Sat, 23 May 2020 16:41:38 GMT

@pbejse.

@sby0531

how to use

The program has an error.

回复： Move line

pbejse — Sat, 23 May 2020 16:36:41 GMT

@chan230984 wrote:

@pbejseHI

how to use

The program has an error.

That should be directed to @sby0531 my friend 🙂 . The one i posted is istill is just a pipe dream and no chance of being developed in the real world. 😄

回复： Move line

chan230984 — Sat, 23 May 2020 16:43:07 GMT

@pbejse

you too

I was wrong.

Re: Move line

chan230984 — Sat, 23 May 2020 16:46:03 GMT

Must thank everyone who helped me

I have to apologize to everyone. I'm not good at English

回复： Move line

sby0531 — Sun, 24 May 2020 02:16:16 GMT

Hi, my friend. Because quite a few functions defined by myself have been called in the command function that I updated, the command function cannot work untill all the related functions have been loaded. By the way, do you speak Chinese?

回复： Move line

chan230984 — Sun, 24 May 2020 02:25:16 GMT

@sby0531

Hi, sorry i can not speak Chinese

Please attach a file as a video.

Thanks