Jump to content

coordinate labeling


JORYROJ

Recommended Posts

hi guys,

i have more than 500 points to get the coordinates.

i'm badly in need of a lisp that would make my work easier and faster.

example:

1. command ___

2. select basepoint

3. select basepoint to put the text of the coordinates.

 

:if ther can be an option to have a leader pointing at the basepoint also.

thanks

Link to comment
Share on other sites

One of my old ones:

 

(defun c:mpt ( / _MText normal pt )
 ;; © Lee Mac 2010

 (defun _MText ( point text normal )
   (entmakex
     (list
       (cons 0 "MTEXT")
       (cons 100 "AcDbEntity")
       (cons 100 "AcDbMText")
       (cons 10 point)
       (cons 11 (getvar 'UCSXDIR))
       (cons 1  text)
       (cons 210 normal)
     )
   )
 )

 (setq normal (trans '(0. 0. 1.) 1 0 t))
 (terpri)
 (while (setq pt (getpoint "\rSpecify Point: "))
   (setq pt (trans pt 1 0))
   (_MText pt
     (apply 'strcat
       (mapcar 'strcat '("X = " "\nY = " "\nZ = ") (mapcar 'rtos pt))
     )
     normal
   )
 )
 (princ)
)

Link to comment
Share on other sites

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.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...