how many profissional lisper can do this mission

[abdulellah.alattab]

tedious work along years ,help usif it is impossible : any way accepted to draw straighten segments it does not matter about inc lend parts 

[cadffm]

I am not sure all things perfectly, but if i understand the mission correctly:

Q: how many profissional lisper can do this mission?

A: EVERY professional lisper

A: On the first look, a good sample for beginners

A: You don't really need Lisp knowledge to do this, i guess it would also works by

using only the commandline / normal commands.

But perhaps i didn't understand the mission fully

[abdulellah.alattab]

Sorry, I did not mean the thing that you mean
All I mean here is that this task is difficult and time consuming so I ask you for help

In the figure above, the distances above and below are shown in red rectangles  
 

[cadffm]

My recommendation:
Assign this to a corresponding service provider.

If you do not want to hire anyone, then I really got it wrong.
_

And if you do not want to do it yourself, although that would be perfect for a beginner because you only have to calculate points!

It would be a really cool dynamic block, without testing this in detail I could imagine this, but i am sure it is harder then using Lisp/Script/Macro and command PLINE

But sorry, i am here to help (help to learn and not help to do jobs for others),

so you have to wait for another one.

; This is not very elegant, but simple to read/understand this way (i hope so) -Beginner style.

; It works for the first 7 line segments (= 8 Points) and i used only S for SL SM SR, C for CL CM CR,

but the math is the same - if you really need three S and three different C, it's near the same and not a problem.

(defun c:TESTX (); (S C X) *1 
  
  (setq S nil X nil X nil) ; *1 
  
  (setvar "OSNAPCOORD" 1)
  (and
   (setq S (getpoint "\nS-length Startpoint: "))
   (setq S (getdist S "\nS-length Endpoint: "))
   (setq C (getpoint "\nC-length Startpoint: "))
   (setq C (getdist C "\nC-length Endpoint: "))
   (setq X (getreal "\nX-Value: "))
   (setq offset (getreal "\nOffset-Value: "))
   ; shape1
   (command "_.PLINE"
	   ; Bottom line
	   '(0 0) ;_point1
	    (list c 0);_point2
	     (list c offset);3
	     (list (+ c s) offset);4
	    (list (+ c s) 0);5
	    (list (+ c s c) 0);6
	     (list (+ c s c) offset);7
	     (list (+ c s c s) offset);8
	    ""
    );_command
  );_and
  
);_defun

[Sea-Haven]

Same question was asked elsewhere did not like the answer that it was a good task to start to learn rather than. "Oh ask over there they will do it for free".

see response here https://www.cadtutor.net/forum/topic/69388-double-cranked-poly-line-that-help-civil-engineers/