Text to polyline length

[PaulyPHI]

Being lazy as i am, and having done this a bazillion times, my brain says why not ask those that know if it is possible...

 

So, we generate cross sections from very dodgy architects/landscape/civil engineers/ blokes called Bob etc drawings sent in for quotes...

Quality of drawings we are sent can range from beer mat to Picasso.... 

 

Now then,  we arrange the dodgy levels along the datum line, draw short polylines and stretch north wards by given a level, then join together to form a ground profile.

 

My question is... would it be possible to create a lisp that we can use were we select a polyline along the datum line and then select the text adjacent and it would extend the polyline north of the datum line by the text amount ??

Polylinelisp.dwg

[Steven P]

I think this is something that Civil3D covers -  BigAl knows these things better than me though.

 

 

This is a very quick and dirty LISP: 

Noting that your lines are 1000x longer than the reference texts, I have a multiplier (hit enter to just accept the 1000, you can change the code to suit)

Select the reference polyline - I am assuming always a horizontal reference line as your example

Select the point that the height texts refer to (is it the centre of the '+', in the drawing there is a point drawn at the correct height next to each text) and then the associated text.

Repeat along the points

Exit badly with the escape key. I am going to get abuse for cutting corners there...

 

Slight difference to your example that my lines are drawn from the closest point on the polyline that you selected

 

(defun c:test ( / Multiplier ReferencePoly ReferenceY EndLoop MyPoint MyHeight MyHt ClosestPoint)
  (defun MkLn ( pt1 pt2 Layer / Ln ) ;; Add in layer etc details
    (setq Ln (entmakex (list
      '(0 . "LINE") '(100 . "AcDbEntity") '(410 . "Model") '(62 . 0) '(100 . "AcDbLine")
      (cons 8 Layer)
      (cons 6 "CONTINUOUS")
      (cons 62 256)
      (cons 10 pt1)
      (cons 11 pt2)
      '(210 0.0 0.0 1.0)
    ))) ; end list, entmakex, setq
  )
  
  (setq Multiplier (getreal "Enter Height Multiplier (1000)"))
  (if (or (= Multiplier nil)(= Multiplier "")(= Multiplier 0))
    (setq Multiplier 1000)
  )
  (setq ReferencePoly (car (entsel "Select Reference Polyline")))
  (setq ReferenceY (cdr (assoc 10 (entget ReferencePoly))))
  (setq EndLoop "No")
  (while (= EndLoop "No")
    (setq MyPoint (getpoint "Select Point"))
    (setq MyHeight (car (entsel "Select Height text")))
    (setq MyHt (cdr (assoc 1 (entget MyHeight))))
    (setq ClosestPoint (vlax-curve-getclosestpointto ReferencePoly MyPoint))
    (MkLn ClosestPoint (mapcar '* '(1 1 0) (mapcar '+ (list 0 (* Multiplier (atof MyHt)) 0) ClosestPoint)) "0")
  )
)

 

[BIGAL]

If you break down the top surface and convert it into a single Pline, Then you can label every point into a cross section shape. You would need to say set the RL of the 1st point enter Hor and Ver scales if applicable. Draw a datum line then can put text below it. There is 2 levels at some points but that can be taken into account.

 

So maybe post a few cleaned up version of the SINGLE plines. 

Edited 21 hours ago by BIGAL

[PaulyPHI]

20 hours ago, Steven P said:

I think this is something that Civil3D covers -  BigAl knows these things better than me though.

 

 

This is a very quick and dirty LISP: 

Noting that your lines are 1000x longer than the reference texts, I have a multiplier (hit enter to just accept the 1000, you can change the code to suit)

Select the reference polyline - I am assuming always a horizontal reference line as your example

Select the point that the height texts refer to (is it the centre of the '+', in the drawing there is a point drawn at the correct height next to each text) and then the associated text.

Repeat along the points

Exit badly with the escape key. I am going to get abuse for cutting corners there...

 

Slight difference to your example that my lines are drawn from the closest point on the polyline that you selected

 

(defun c:test ( / Multiplier ReferencePoly ReferenceY EndLoop MyPoint MyHeight MyHt ClosestPoint)
  (defun MkLn ( pt1 pt2 Layer / Ln ) ;; Add in layer etc details
    (setq Ln (entmakex (list
      '(0 . "LINE") '(100 . "AcDbEntity") '(410 . "Model") '(62 . 0) '(100 . "AcDbLine")
      (cons 8 Layer)
      (cons 6 "CONTINUOUS")
      (cons 62 256)
      (cons 10 pt1)
      (cons 11 pt2)
      '(210 0.0 0.0 1.0)
    ))) ; end list, entmakex, setq
  )
  
  (setq Multiplier (getreal "Enter Height Multiplier (1000)"))
  (if (or (= Multiplier nil)(= Multiplier "")(= Multiplier 0))
    (setq Multiplier 1000)
  )
  (setq ReferencePoly (car (entsel "Select Reference Polyline")))
  (setq ReferenceY (cdr (assoc 10 (entget ReferencePoly))))
  (setq EndLoop "No")
  (while (= EndLoop "No")
    (setq MyPoint (getpoint "Select Point"))
    (setq MyHeight (car (entsel "Select Height text")))
    (setq MyHt (cdr (assoc 1 (entget MyHeight))))
    (setq ClosestPoint (vlax-curve-getclosestpointto ReferencePoly MyPoint))
    (MkLn ClosestPoint (mapcar '* '(1 1 0) (mapcar '+ (list 0 (* Multiplier (atof MyHt)) 0) ClosestPoint)) "0")
  )
)

 

 

@Steven P that works way better than i dreamed... even if you say its a bit dirty... Being able to select the intersection of datum and reference line, and the scaling option is brilliant.. If i had a box of Jaffa Cakes they would be in your hands right now.... Thank you soo much....

 

@BIGAL thank you for the reply and i think i understand what you mean... but i need to leave some work for my understudy to do can't speed him up too much.....

 

[Steven P]

Thanks, though it can be improved a bit too - I reckon the point of intersections would be better off on the lines between height points - tried that just now but got myhead going round in circles with a part of it. Will see what I can do for later