Ask for lisp for labelling coordinates in rotated view

[Anonymous]

[Anonymous]

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

[pendean]

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

[Anonymous · Accepted solution]

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

[hmsilva]

---

@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

[Anonymous]

Wow great! It works, really really thanks!! 

[hmsilva]

---

@Anonymous wrote:

Wow great! It works, really really thanks!! 

---

You're welcome, @Anonymous 
Glad I could help

Henrique