• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • Autodesk Survey Products

    Reply
    New Member
    Posts: 1
    Registered: ‎11-18-2003

    Elevations

    45 Views, 4 Replies
    08-28-2003 02:58 AM
    Is there a way to store points and use the dtm or grid file to assign the elevation for each point picked?

    Thanks,
    Schwoeps
    Please use plain text.
    New Member
    Posts: 2
    Registered: ‎10-15-2003

    Re: Elevations

    10-15-2003 04:27 PM in reply to: schwoeps
    The enclosed LISP prog. gets the XYZ value of every point you click on and only puts down the Z value of the point.
    Before you run the prog. set the No. dec. place's using UNITS and set the text height up using STYLE or the prog. crashes.

    (prompt "LOADing Z command...") ;will just load the function - to
    ;use, type its name like any other
    ;regular AutoCAD command
    ;*begin function definition
    (
    defun C:smileytongue:lZ () ;no ARGs in a 'C:function'
    (setq te (getvar "TEXTEVAL")) ;save the state of TEXTEVAL
    (setq cur_la (getvar "CLAYER")) ;and current LAYER name
    (
    command "setvar" "TEXTEVAL" 0 ;place values, not varnames 1 too 0
    by jb
    "layer" "m" "coords1" "" ;MAKE coords1 layer
    )
    (initget 16) ;make sure getpoint returns the Z
    ;value even if the system variable
    ;FLATLAND is set true (1)
    (setq pt1 (getpoint "Get coords for what point? ")) ;get 1st point
    (initget 16)
    (
    setq pt2 (getpoint "Location for coord text? ") ;get 2nd point
    x (strcat "X " (rtos (car pt1))) ;convert real to string
    y (strcat "Y " (rtos (cadr pt1))) ;and concatanate to
    axes
    z (strcat(rtos (caddr pt1)) "m") ;names (X,Y & Z)

    )
    (
    command "text" pt2 0 Z ;place the z text, with no rotation

    )
    "layer" "s" cur_la "" ;restore layer &
    "setvar" "TEXTEVAL" te ;TEXTEVAL state

    )
    ;*end function definition

    Regrads Julian B
    Please use plain text.
    New Member
    Posts: 2
    Registered: ‎10-15-2003

    Re: Elevations

    10-15-2003 04:29 PM in reply to: schwoeps
    Sorry, this forum has remove all the c/returns and line feeds from my LISP prog.
    Please use plain text.
    *McSwain, R.K.

    Re:

    10-15-2003 10:00 PM in reply to: schwoeps
    "jbrotherton" wrote in message news:f1856d3.1@WebX.maYIadrTaRb...
    > Sorry, this forum has remove all the c/returns and line feeds from my LISP prog.

    It doesn't matter because Field Survey cannot execute LISP files.
    Please use plain text.
    *Brown, Anne

    Re:

    10-16-2003 12:05 AM in reply to: schwoeps
    J -

    Not your fault. For future information and use:

    Unfortunately the HTTP web side of the newsgroups is not allowing
    carriage returns to show properly. Messages there show as one
    long line that just keeps wrapping. This is a known problem and
    scheduled for repair.

    If you are able to use the NNTP newsgroup reader side of the
    newsgroups, carriage returns show properly.

    A user posted this tip on properly spaced lines/paragraphs from
    the HTTP side:

    Place your text or code between a pair of PRE /PRE html tags:



    Line 1
    Line 2
    Line 3




    or

    If you're faced with one of those posts and want to get a clearer
    picture, a quick solution is to view the HTML source. If you're
    using another browser the commands might be slightly different,
    but for Internet Explorer right-click somewhere on the message in
    question and from the popup menu select View Source. Notepad will
    open up with the HTML source in it. Press F3 and search for
    something unique in the post. You will then see the message as
    the originator posted it in plain text.

    ---
    Anne Brown
    Manager, Moderator
    Autodesk Product Support discussion groups
    Discussion Q&A: http://www.autodesk.com/discussion

    jbrotherton wrote:
    >
    > Sorry, this forum has remove all the c/returns and line feeds
    > from my LISP program.
    Please use plain text.