topic Re: Ask for lisp for labelling coordinates in rotated view in Visual LISP, AutoLISP and General Customization Forum

Ask for lisp for labelling coordinates in rotated view

Anonymous — Tue, 01 Jun 2021 01:27:52 GMT

Re: Ask for lisp for labelling coordinates in rotated view

Anonymous — Tue, 01 Jun 2021 01:30:30 GMT

Please help! How to label the world coordinates in rotated view plan with flat text style ?

Re: Ask for lisp for labelling coordinates in rotated view

pendean — Tue, 01 Jun 2021 02:04:21 GMT

Set PLAN to "current ucs" then add your "flat labels" is one way to do it. Try it.

Re: Ask for lisp for labelling coordinates in rotated view

Anonymous — Tue, 01 Jun 2021 02:39:17 GMT

I did but the labelled coordinates were not world coordinates, I need to edit manually. Is there other lisp to fix it ?

Re: Ask for lisp for labelling coordinates in rotated view

hmsilva — Tue, 01 Jun 2021 08:39:59 GMT

@Anonymous wrote:

This?

(defun c:demo ( / pt pt1 txtx txty txtz) (if (and (setq pt (getpoint "\nSpecify a point to labell: ")) (setq pt1 (getpoint pt "\nSpecify text starting point: ")) ) (progn (setq pt (trans pt 1 0) pt1 (trans pt1 1 0) txtx (strcat "E=" (rtos (car pt) 2 3) "\n") txty (strcat "N=" (rtos (cadr pt) 2 3) "\n") txtz (strcat "L=" (rtos (caddr pt) 2 3) "\n") ) (command "_.ucs" "_v" "leader" "_non" (trans pt 0 1) "_non" (trans pt1 0 1) "Annotation" txtx txty txtz "" "_.ucs""_p") ) ) (princ) )

Hope this helps,
Henrique

Re: Ask for lisp for labelling coordinates in rotated view

Anonymous — Tue, 01 Jun 2021 14:50:56 GMT

Wow great! It works, really really thanks!!

Re: Ask for lisp for labelling coordinates in rotated view

hmsilva — Tue, 01 Jun 2021 14:52:05 GMT

@Anonymous wrote:

Wow great! It works, really really thanks!!

You're welcome, @Anonymous
Glad I could help

Henrique