topic Re: Straighten polyline with viewports in Visual LISP, AutoLISP and General Customization Forum

Straighten polyline with viewports

alar — Tue, 14 Jun 2016 18:05:59 GMT

Hello

Model space and 2Dpolyline.

Lisp should create viewports - straighten polyline.

Each viewport: height 20 mm, length = polyline segment length. Viewport scale 2.0.

Re: Straighten polyline with viewports

Kent1Cooper — Tue, 14 Jun 2016 19:41:01 GMT

@alar wrote:

.... straighten polyline.

....

Since you don't say exactly what you're going to do with those Viewports, the following may not work for you, but....

It doesn't do it by way of Viewports, but this defines an SPS command [= Stretch Polyline(s) Straight] that straightens Polylines out into linear Polylines with all the same segment lengths -- as many as you want to do at once, LW or "heavy," and including straightening arc segments. [It doesn't change the selected Polyline(s), but adds new one(s) extending 0--degree-ward from the start point(s) of the selected one(s).]

Re: Straighten polyline with viewports

alar — Thu, 16 Jun 2016 06:26:51 GMT

The polyline is like a target.Its a pipeline, and I'd like to use that LISP for straighten-piping-layout

Like that

Model view. Target polyline - [blue ---2T--- ---]

And final result for paperspace

Polyline --2T---- is like "straightened"

Re: Straighten polyline with viewports

Anonymous — Tue, 26 May 2020 03:56:58 GMT

Love this topic , but sadly it dosen't have solution !

Re: Straighten polyline with viewports

sby0531 — Tue, 26 May 2020 05:25:03 GMT

@Anonymous 已写:
Love this topic , but sadly it dosen't have solution !

I think there should be a solution of LISP code.

Re: Straighten polyline with viewports

Anonymous — Tue, 26 May 2020 06:44:25 GMT

yes, but i think it's quite complex to write so.
Hopefully someone will firgue out!

Re: Straighten polyline with viewports

pbejse — Tue, 26 May 2020 11:44:22 GMT

Is your requirement exactly the same as the OP? right down to the size and units?

Re: Straighten polyline with viewports

phanaem — Tue, 26 May 2020 12:31:55 GMT

Here is a partial solution.

Feel free to add your favorite error trap and some other settings (WCS/UCS, Layers, selection check etc)

I'd like to improve it, but I don't have the time right now.

Edit: It doesn't work if a layout has a space in it's name.

(defun c:test ( / m2p acobj acdoc e sc h p lst layouts layout p) (vl-load-com) (defun m2p (a b) (mapcar '(lambda (a b) (/ (+ a b) 2.0)) a b)) (setq acobj (vlax-get-acad-object) acdoc (vla-get-activedocument acobj) ) (if (and (setq e (entsel "\nSelect polyline: ")) (progn (initget 6) (setq sc (getreal "\nSpecify vports scale 1:")) ) (progn (initget 6) (setq h (getdist "\nSpecify vport height in PS units: ")) ) ) (progn (setq p (cadr e) e (car e) ) (setq lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e)))) (if (> (vlax-curve-getdistatpoint e (vlax-curve-getclosestpointto e p) ) (/ (vlax-curve-getdistatparam e (vlax-curve-getendparam e) ) 2.0 ) ) (setq lst (reverse lst)) ) (if (progn (setq layouts (layoutlist)) (initget (substr (apply 'strcat (mapcar '(lambda (x) (strcat " " x)) layouts) ) 2 ) ) (setq layout (getkword (strcat "\nSpecify destination layout [" (substr (apply 'strcat (mapcar '(lambda (x) (strcat "/" x)) layouts) ) 2 ) "]: " ) ) ) ) (progn (setvar 'ctab layout) (vla-put-mspace acdoc :vlax-false) (if (setq p (getpoint "\nSpecify insertion point: ")) (mapcar '(lambda (p1 p2 / vp) (command "_mview" "_non" p "_non" (mapcar '+ p (list (/ (distance p1 p2) sc) h)) ) (setq vp (vlax-ename->vla-object (entlast))) (vla-put-twistangle vp (- (+ pi pi) (angle p1 p2))) (vla-zoomextents acobj) (vla-put-mspace acdoc :vlax-true) (vla-put-activepviewport acdoc vp) (vla-zoomcenter acobj (vlax-3d-point (m2p p1 p2)) (* h sc)) (vla-put-mspace acdoc :vlax-false) (setq p (mapcar '+ p (list (/ (distance p1 p2) sc) 0.0))) ) lst (cdr lst) ) ) ) ) ) ) (princ) )

Re: Straighten polyline with viewports

pbejse — Tue, 26 May 2020 13:13:57 GMT

Nice Stefan 👍

Re: Straighten polyline with viewports

sby0531 — Tue, 26 May 2020 13:53:01 GMT

@phanaem 已写:
Here is a partial solution.
Feel free to add your favorite error trap and some other settings (WCS/UCS, Layers, selection check etc)
I'd like to improve it, but I don't have the time right now.

Edit: It doesn't work if a layout has a space in it's name.

Your code is helpful and worth learning to me. But why don't you like closing the parens at the same line? Almost all the common lisp programmer always do so. And I think the lisp codes looks more concise and compact if the closing parens are placed at the same line.

Re: Straighten polyline with viewports

phanaem — Tue, 26 May 2020 14:14:36 GMT

@sby0531 wrote:
Your code is helpful and worth learning to me. But why don't you like closing the parens at the same line? Almost all the common lisp programmer always do so. And I think the lisp codes looks more concise and compact if the closing parens are placed at the same line.

It is the way VLIDE (auto)format the code. And you can easily pair them visually if they are closed on the same column.

So, it's the habit. In-line style is not so common among the AutoLispers.

Plus, someone might ask, why limit to the parenthesis only, why not all the code in one single line?

Re: Straighten polyline with viewports

Anonymous — Tue, 26 May 2020 15:33:33 GMT

oh maybe , i'm not sure... but i think the OP mean that (he/she) want to create multiple viewports by selecting a polyline or alignment from model in a layout or multiple layouts and besides all the viewports have the coordinate axis rotated exactly in the same direction so it can look like a straight polyline.

Re: Straighten polyline with viewports

Anonymous — Tue, 26 May 2020 16:22:31 GMT

Amazing ! Thank you .

Re: Straighten polyline with viewports

Sea-Haven — Wed, 27 May 2020 00:00:17 GMT

It is normal practice to show the plan view in a true orientation, 40 years Civil Engineer, but in saying this you are asking for a over the top solution when a simple answer is actually available and that is to use a ucs in your viewport that covers the range of the long section.

This type of approach is built in to software like CIV3D Civilsite etc. They auto make the layouts and work out the ucs orientation.

Ok manual way very easy, draw a line from start point chainage to end chainage of your pipe for each layout section. Check that lines have Z set to 0 use properties, take your long section layout add a mview, go into view say zoom e, then UCS OB select match line section, pick left side, then type plan, your view will rotate to that orientation, set viewport scale and your nearly there, pan to approx. long section. Ok now to align a chainage, simply draw a vertical line in Mspace from a chainage of your long section, you can "move" the mview window select the correct chainage point of the mview stay in mspace then use say perp and the mview will be correctly aligned. Lock viewport, next viewport you may need to type UCS W Plan to reset view orientation.

Yes it could be automated.

For all those that have posted sorry but the solution exists in that you can take a pline and set spacings and auto create mviews on multiple layouts this code has existed for a long time.

Re: Straighten polyline with viewports

pbejse — Wed, 27 May 2020 04:53:15 GMT

@Anonymous wrote:

oh maybe , i'm not sure... but i think the OP mean that (he/she) want to create multiple viewports by selecting a polyline or alignment from model in a layout or multiple layouts and besides all the viewports have the coordinate axis rotated exactly in the same direction so it can look like a straight polyline.

Yes, maybe for the OP, but what i'm asking, is that your requirement? Since you were the one who "zombified" this discussion 😊

Or your interest on this discussion is for learning and not necessarily a need for this specific routine ? or both?

Re: Straighten polyline with viewports

pbejse — Wed, 27 May 2020 05:13:15 GMT

@Sea-Haven wrote:

...solution exists in that you can take a pline and set spacings and auto create mviews on multiple layouts this code has existed for a long time.

I would loved to see that code. Is that the one that creates named views with boundaries of different rotations?

Re: Straighten polyline with viewports

Anonymous — Wed, 27 May 2020 07:47:25 GMT

thanks for your reply!

haha 😄 ok...so my requirment is the same with OP and i'm looking for a lisp that can solve this issue automatically.

Re: Straighten polyline with viewports

Sea-Haven — Thu, 28 May 2020 01:43:54 GMT

Pbejse I think your right about the views option I don't have a copy as I use software that does it automatically, but have done it manually as suggested. The code would set a rectangle based on a scale and sheet size making the mview to suit.

I have never seen say a curved road pipe plan straightened. Certainly rotated around X axis to suit.

I had 12 roads 1 dwg each road profile had a plan view parallel to the road alignment say 30+ sheets auto generated.