Dear members,
How can I show X,Y coordinates by using dimension command or any other commands,
eg. I have a point marked using North and East coordinates in a Map. I want to show that coordinates by text.
Please help, Thanks
|
Dear members,
How can I show X,Y coordinates by using dimension command or any other commands,
eg. I have a point marked using North and East coordinates in a Map. I want to show that coordinates by text.
Please help, Thanks
Try the attached block. It contains a FIELD for each Attribute. Edit it to what you need. If you move the Block around in your drawing, the FIELDs will update based on your FIELDEVAL system variable.
If you have a technical question, please find the appropriate forum and ask it there.
You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
jUSt
Use the Ordinate dimension to give either the X or Y position, or use Opie's/your own dynamic block to display both. I prefer the Dynamic block method, as you can export it all to a schedule quite easily.
My example of coodinate dynamic block with a table (in Acad 200.
Tell me what you think?
This one will allow you to pick a new origin if you should so choose
Code:;;;Annotate a Northing/Easting w/ a boxed leader, LPS 2008 (defun C:CoordLeader (/ oldecho pt1 pt2 txtn txte dg) (setq temperr *error*) ;store *error* (setq *error* errortrap) ;re-assign *error* (setq oldecho (getvar "cmdecho")) ;restore variables (setq oldlayer (getvar "clayer")) (setq oldsnap (getvar "osmode")) (setq olddimgap (getvar "dimgap")) (setvar "cmdecho" 0) (setvar "dimgap" -0.1) (command "undo" "m") (setq ptb (getpoint "Pick base point: <World>")) (if (not (null ptb)) (command "ucs" "o" ptb) (command "ucs" "o" '(0 0)) );if (setq pt1 T) (while (not (null pt1)) (setq pt1 (getpoint "\nPick coordinate point: ")) (if pt1 (progn (setq pt2 (getpoint pt1 "\nPick text location: ")) (if pt2 (progn (setq txtn (strcat "N: " (rtos (cadr pt1)2 2) " ")) (setq txte (strcat "E: " (rtos (car pt1) 2 2) "\n")) (command "leader" pt1 pt2 "Annotation" txtn txte "") ) ) ) ) );while (setvar "cmdecho" oldecho) (setvar "dimgap" olddimgap) (command "ucs" "p") (setq *error* temperr) (princ) );defun (defun errortrap (msg) ;define function (command "undo" "b") (setvar "osmode" oldsnap) ;restore variables (setvar "clayer" oldlayer) (setvar "cmdecho" oldecho) (setvar "dimgap" olddimgap) (command "ucs" "p") (setq *error* temperr) ;restore *error* (prompt "\nResetting System Variables ") ;inform user (princ) );defun
Use pulldown menu : LABEL / NORTH - EAST
pick the exact point to measure
N/E coordinate data is calculated
pick a spot on-screen to place the N/E text
then you can draw a pline or leader to the text if you want
Make sure you are in UCS WORLD
Still, there could be a better way
I PLEAD DUMBNITUDE !
If you have a technical question, please find the appropriate forum and ask it there.
You will get a quicker response from your fellow AUGI members than if you sent it to me via a PM or email.
jUSt
No worries mate.