Lisp create perspective view from a 2D drawing

[LINHOREKA]

Hi, this lisp is working in 2D only: it generate a perspective view from a selected 2D plan or elevation.

 

1. Command: P2D

2. Select the source frame (trapezoid polyline) of the plan or elevation

3. Select drawing objects in that source plan or elevation

4. Select destination frame >>> a new perspective drawing would be draw arcordingly (see image and example drawing)

5. Repeat step 4 until you select none

 

It is working only with straight lines, straight polylines and points. Pretty useful when you want to take a leap up from your 2D, for but donot have time to create a 3D model.

 

New version on Apps Exchange Store, extrusion enabled

P2D EXAMPLE.dwg

P2D command.LSP

Edited October 8, 2013 by LINHOREKA
Update link of new version

[Lee Mac]

Thank you for sharing your program LINHOREKA

 

To provide some food for thought, you might be interested in this outstanding program by Sean Tessier

[LINHOREKA]

Wow, with Sean Tessier, we can make 3D street art !

There is another kind of simple perspective 2D like this: A profile + 1 vanishing point = This image (from CAD APLUS)

Edited September 2, 2013 by LINHOREKA

[nod684]

nice one! does this work for blocks too?

[LINHOREKA]

No, it works only with elementary objects of straight lines and polylines. Try lisp suggested by Lee Mac, works with curves, hatches. But no block avaiable neither !

I found my lisp has an advantage: it can transform from any trapezoid frames to any others.

I test to make 3D street arts and here it is:

1. If objects lay inside the frame polylines, it is ok

2. If objects lay outside, it fails (not yet understand why )

Anyway, it is interesting. Someday I would upgrade it to work with all objects, and correct this trouble.

P2D EXAMPLE.dwg

[LINHOREKA]

Ah, i work it out: the objects cannot go too high over the horizontal sky line !

Here is another example shows how it work well enough:

It implies 3D street art need alot of area if draw objects extrude up, but less area if draw objects extrude down ! That is why valley is prefered, while moutains is not

[SEANT]

Hey guys, thanks for the mention. Perspective transform is an interesting field.

 

From what I can see, LINHOREKA, we both used a similar process, as did maicy in the links below. The alternative is straight matrix manipulation as demoed by SOFITO_SOFT and Kean (Through the Interface).

 

The links here show some interesting variations on the theme. Those for theswamp.org will require registration. It is such a good site, though, any AutoCAD developer would be happy they made the effort.

 

http://www.theswamp.org/index.php?topic=36905.0

http://www.theswamp.org/index.php?topic=37183.0

 

http://through-the-interface.typepad.com/through_the_interface/2013/08/applications-for-linear-algebra-straightening-out-perspective.html

http://through-the-interface.typepad.com/through_the_interface/2013/08/update-on-the-project-to-de-skew-images-inside-autocad.html

http://through-the-interface.typepad.com/through_the_interface/2013/08/generating-png-files-for-de-skewed-portions-of-perspective-images.html

[LINHOREKA]

Hi everyone, new version is coming :

(but not yet )

[LINHOREKA]

Hi, New Version on AutoCAD Exchange Store: Your 2D Perspective

New Feature: Extrusion ! It is now quite handy for drafters who want to add some 3D views in technical drawings, but too lazy (like me) to try managing the 3D Model stuff.

[SEANT]

This looks excellent. Very impressive. And congratulations on your Exchange listing.

[LINHOREKA]

Sean, you can do it much better than me. Mine doesnot work with curves, hatches nor texts: too complicated for me coding those with Lisp. The only one thing better in my routine is: it is handy, all in one command, and you can start next command by picking on the new created plines of current command.

Actually it is my come back to AutoLisp language. I stop working with Lisp for years and even new to vla, vlax, vlr functions

[leyo32]

need help>

 

this feature is great, need help coz when i select the destination frame it turned 180 degress instead of 90 deg. so its coming horizontal instead of vertical, kindly someone teach me to reset it to previous.

 

thanks!

[LINHOREKA]

Just click R to rotate it all around. And make sure you have installed the new version avaiable on the Autodesk App Exchange Store.

You are using AutoCAD Architecture ? Does it work with Architecture ?

[leyo32]

yes, i am using Acad architecture.

 

this feature working!

 

thanks for the info.

[leyo32]

Linhoreka

 

just installed the new version and its working great!!!

 

Thanks a lot for the help!

[LINHOREKA]

This is a more detail explain of how it works: http://www.yourspreadsheets.co.uk/your2dperspective---how-it-works.html

Thanks

[Sooshiant]

Awesome