Help on cross section

[terry01]

Greetings to all you gurus here:D. I trying to produce a cross section here based on field books.

 

manage to do the line. Is there any lisp to automatically create the text that show levels & offsets from CL by just clicking on the green line.

 

a picture can tell a thousand words. pls see the pics. Thanks in advance

 

[BIGAL]

A question and an answer are the cross section being created using another program ? Could it be changed to auto add extra values.

 

Answer here is a copy of surfaceRl just copy a existing text level across to the new vertical line run SRL it works out the answer graphically not from the adjoining values we found its within 2-3mm of computed value bit dependant on scale.

 

Could be modified also to change offset value.

 

;Calculates level of a point in cross or long sections

(setvar "cmdecho" 0)
(princ "\n To run just type SRL")
;(defun c:SRL ()
(if (= dwgscale nil) 
(setq dwgscale (/ 1000.0 (getreal "\n enter vertical scale ")))
)
(setq datum (getreal "\n Enter datum level     -ve to reset vert scale "))
(if ( < datum 0.0)
(progn
(setq dwgscale (/ 1000.0 (getreal "\n enter vertical scale ")))
(setq datum (getreal "\n Enter datum level "))
)
)

(setq test 1)
(while (= test 1)
(setq pt1 (getpoint "\npick datum"))
(setq pt2 (getpoint "\npick point"))
(setq dist (/(distance pt1 pt2) dwgscale))
     (setq en1 (car (entsel "\nSelect text number:" )))
     (if (/= en1 nil)
       (progn
       (setq tent (entget en1))
       (setq a (+ dist datum))
       (setq a (rtos a 2 3))
       (setq el (subst (cons 1 a) (assoc 1 tent) tent))
       (entmod el)
  );progn
      (princ "\nplease pick again"); else
    );if
); while t
(setq el nil)
(setq en nil)
(setq a nil)
(setq v1 nil)
(setvar "cmdecho" 1)
(princ)
 ;ends main defun

[terry01]

Many thanks BIGAL:D,

 

Yes, the cross sections were produce using a Land Desktop 2k. I can produce a cross section but it only generates the centre line levels only. any idea on how to overcome this? many thanks in advance.

 

however, there is a few works that I had to manually input the survey details into CAD.

 

your PROGRAM really saves me a lot of time:shock: again many thanks