contour line lisp needed

[casualmasters]

hey guys how are u

i would like to thank u for that graet forum

i post before a contor map and really i got a great help

now i want to complete my project

but i want to have a lisp program to make my life easier

really i tried to learn auto lisp to solve my own problem but i didn`t succeed

i want a lisp or any thing to solve my problem which is

 

first

to draw a line with an inclination say it is 45 degree measured with the vertical or north direction so i want the first step is to indicat the inclination of the

line....

 

second

it extendes to the first intermediate contour line which is indicated by violet color thanks to mr lee

who makes for me that lisp

 

third

from the intersection pt(which is the end point of the extended line which is indicated in yellow)

with the intermediate contour line which has violet color in my drawing..draw a prependicaular line

with a suitable distance say it 100 units

 

foruth

draw a cirlce with a radius equal to the suitable distance that we have we selected which is a 100 units multiplied by a factor i named it c1/c2 which is equal to 1.019

 

fifth

the circle is intersected with the violet contour line in two points select the far point and draw a line conencting the end poind of the perpendicular line in step 3 and the intersection point of the circle with the contour (the far one)

 

sixth

draw a perpendicular line to the line in step 5 passing through the intersection point with the line in step one

 

 

i did it manually but i have to do it at least 50 times so it is a very time consuming also i want to learn much more about lisp i don`t care if the lisp make some wrong line i can fix it manually it is better than to make all manually by my hand

and thank u in advance

 

 

 

 

 

 

this is one step of fifteen steps to refract a line from the intermediate first line to the shore line which is in green

New Folder.zip

[casualmasters]

i would like to say in my drawing i drawn 4 cirlces each on has a diffrent coefficient (c1/c2) the firs equals 1.019

the second is c2/c3 equals 1.028

c3/c4 equals 1.04

c4/c5 euqals 1.06

c5/c6 equals 1.07

c7/c8 equals 1.04

1.05

1.07

1.09

1.13

1.23

1.11

1.224

1.4

[casualmasters]

hey guys how are u

i would like to thank u for that graet forum

i post before a contor map and really i got a great help

now i want to complete my project

but i want to have a lisp program to make my life easier

really i tried to learn auto lisp to solve my own problem but i didn`t succeed

i want a lisp or any thing to solve my problem which is

 

first

to draw a line with an inclination say it is 45 degree measured with the vertical or north direction so i want the first step is to indicat the inclination of the

line....

 

second

it extendes to the first intermediate contour line which is indicated by violet color thanks to mr lee

who makes for me that lisp

 

third

from the intersection pt(which is the end point of the extended line which is indicated in yellow)

with the intermediate contour line which has violet color in my drawing..draw a prependicaular line

with a suitable distance say it 100 units

 

foruth

draw a cirlce with a radius equal to the suitable distance that we have we selected which is a 100 units multiplied by a factor i named it c1/c2 which is equal to 1.019

 

fifth

the circle is intersected with the violet contour line in two points select the far point and draw a line conencting the end poind of the perpendicular line in step 3 and the intersection point of the circle with the contour (the far one)

 

sixth

draw a perpendicular line to the line in step 5 passing through the intersection point with the line in step one

 

 

i did it manually but i have to do it at least 50 times so it is a very time consuming also i want to learn much more about lisp i don`t care if the lisp make some wrong line i can fix it manually it is better than to make all manually by my hand

and thank u in advance

 

 

 

 

 

 

this is one step of fifteen steps to refract a line from the intermediate first line to the shore line which is in green

 

i would like to say in my drawing i drawn 4 cirlces each on has a diffrent coefficient (c1/c2) the firs equals 1.019

the second is c2/c3 equals 1.028

c3/c4 equals 1.04

c4/c5 euqals 1.06

c5/c6 equals 1.07

c7/c8 equals 1.04 and so on

1.05

1.07

1.09

1.13

1.23

1.11

1.224

1.4

 

iam sorry i posted it for the seconf time cause i didn`t know where to post exactly

New Folder.zip

[Lee Mac]

That is quite a task I must say..., a lot of perpendiculars and intersections - will be tricky...

[casualmasters]

hey mr lee mac i was waiting for ur comment i would say iam going to make these steps for at least 100 time so can u help me

[Lee Mac]

Well its a tough one and may be better left to those who are more knowledgeable in LISP, but I shall see what I can do for you.

[casualmasters]

Well its a tough one and may be better left to those who are more knowledgeable in LISP, but I shall see what I can do for you.

 

thank u for doing any thing to help i want any thing to make my life easier and i don`t want it to be a professianal to solve all my problems

by the way your intermediate contour was very good thank u

[casualmasters]

a friend of me wrote a lisp but i think it is full of errors

Ref.zip

[Cad64]

I have merged your two threads. Please don't start multiple threads, about the same topic, in different areas of the forum.

 

http://www.cadtutor.net/forum/showthread.php?t=23105

[casualmasters]

hey people no one have the ability to help me or just guide me

[Came]

it' s complicated

 

it's huge task at least for me

hold you self together, wait some time

 

 

even Lee Mac thinks it's nice task

 

question for lee mac;

(command "-osnap" "end,mid,perp") way put - ?

 

 

 

 

 

am learning basic

[casualmasters]

it' s complicated

 

it's huge task at least for me

hold you self together, wait some time

 

 

even Lee Mac thinks it's nice task

 

question for lee mac;

(command "-osnap" "end,mid,perp") way put - ?

 

 

 

 

 

am learning basic

hey man iam holding and thank u for ur help in advance

[Lee Mac]

question for lee mac;

(command "-osnap" "end,mid,perp") way put - ?

 

You can snap a point to an object after an entsel using:

 

(setq obj (entsel "\nPlease Select Object...")
       pt  (osnap (cadr obj) "_nea"))

 

Or, within a command like a line command, maybe snap like this:

 

(command "_line" "_nea" pause pause "")

 

Or, alternatively, set the snaps beforehand:

 

(setvar "OSMODE" (+ 1 2 128))

 

1 = End

2 = Mid

128 = Per.

 

See here for bit codes:

 

http://architects-desktop.blogspot.com/2007/09/osnap-toggle-macro.html

[casualmasters]

hey mr lee mac is thier any possibility for helping me

[CarlB]

The process you describe seems somewhat arbitrary...since we don't know what you're trying to accomplish. Why does only the 2.5 & 5m contours affect the refracting process? Is it related to the weavelength? Does the wavelength change as it nears the shore? The circle construction, etc sounds like a "manual" process to represent a formula for water waves refracting as they approach shore. If you provided the formula & explanation, it may lead to a a more efficient & accurate solution with lisp.

[Lee Mac]

hey mr lee mac is thier any possibility for helping me

 

As I have said earlier, I am not the sole member of this forum - there are others, more knowledgeable, who may be able to lend a hand.