terry01 Posted June 15, 2010 Share Posted June 15, 2010 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 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 16, 2010 Share Posted June 16, 2010 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 Quote Link to comment Share on other sites More sharing options...
terry01 Posted June 16, 2010 Author Share Posted June 16, 2010 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.