Leaderboard

You can do this without drawing any extra objects. Rotate the UCS with the 3 point option, osnap to center, to your point on the circle, and in a general direction to show Y. Set Ortho or Polar on, start the line command and use Quad Osnap to pick your starting point, or use Intersection, etc. I have quick keys set to U3 to get the UCS command set to 3 point option, and UW to go back to UCS World. Edit: snap to the point on the circle first, then center, then another direction for Y.

Substr Returns the substring of string , starting at character start and extending for length characters. $(substr, string, start [, length]) Characters in the string are numbered from 1. If length is omitted, it returns the entire remaining length of the string. $(substr,$(getvar,"dwgname"),1,10)

These should get you what you need. http://www.lee-mac.com/nestedblockcounter.html http://www.lee-mac.com/dynamicblockcounter.html http://www.lee-mac.com/blockcounter.html

Old Lee Mac lisp solution:

How is the point marked on the circle? The easiest way to draw a tangent is to have the Polar Tracking on and use Object Snaps. Hover your cursor near to your point on the circle, then draw a line from the centre of the circle to your point on the circle, and then using the Polar Tracking, you can now draw the tangent at 90°.

Try the following: (defun c:dimtest ( / enx idx lne lst sel str ) (setq lne 0) (while (/= "" (setq str (getstring t (strcat "\nSpecify text for line " (itoa (setq lne (1+ lne))) " <done>: ")))) (setq lst (cons str lst)) ) (setq str (car lst)) (foreach itm (cdr lst) (setq str (strcat itm "\\P" str))) (setq str (cons 1 (if str (strcat "<>\\X{\\C1;" str "}") ""))) (if (setq sel (ssget "_:L" '((0 . "*DIMENSION") (1 . "~*?*")))) (repeat (setq idx (sslength sel)) (setq enx (entget (ssname sel (setq idx (1- idx))))) (entmod (subst str (assoc 1 enx) enx)) ) ) (princ) )