Autodesk Survey Products
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic to the Top
- Bookmark
- Subscribe
- Printer Friendly Page
Elevations
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
44 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
Thanks,
Schwoeps
Re: Elevations
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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
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
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
(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
Re: Elevations
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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.
*McSwain, R.K.
Re:
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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.
> 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.
*Brown, Anne
Re:
Options
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
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:
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.
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.
