Size annotations, annotating both ends

Anonymous

Size annotations, annotating both ends

Anonymous
Not applicable

I'm looking for a way to give a size annotation for both ends of a transition, square to round etc.  Is there a way to do this, or is CTEXT the only way to get this done.  Any help would be appreciated.

0 Likes
Reply
Accepted solutions (1)
620 Views
3 Replies
Replies (3)

dyoung
Advocate
Advocate

Using the standard Size annotation, you can either size one end or the other but not both as far as I am aware.

Darren J. Young
http://www.darrenjyoung.com/
https://www.linkedin.com/in/darrenjyoung/
0 Likes

dyoung
Advocate
Advocate
Accepted solution

Followup....

 

You can't do both ends directly in the UI. However using Lisp, you can get both but it's a 2 step operation.

 

(setq Item_Number 1)
(setq Item_Size 2)
(setq Item_Elevation 3)
(setq Item_Alias 4)
(setq Item_Set 5)
(setq Item_Length 6)
(setq Item_Custom 7)

(defun c:addalltxt()
  (setq textSize (getvar "TextSize"))
  (setq textSize (+ textSize (/ textSize 10)))

  (setq obj (entsel))
  (setq ent (car obj))
  (setq pnt (cadr obj))

;;;  (AddTextAtPoint Item_Number ent pnt)
;;;  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize) (caddr pnt)))

  (AddTextAtPoint Item_Size ent pnt)
  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize) (caddr pnt)))

;;;  (AddTextAtPoint Item_Elevation ent pnt)
;;;  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize TextSize TextSize) (caddr pnt)))
;;;
;;;  (AddTextAtPoint Item_Alias ent pnt)
;;;  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize) (caddr pnt)))
;;;
;;;  (AddTextAtPoint Item_Set ent pnt)
;;;  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize) (caddr pnt)))
;;;
;;;  (AddTextAtPoint Item_Length ent pnt)
;;;  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize) (caddr pnt)))
;;;
;;;  (AddTextAtPoint Item_Custom ent pnt "Spool")
;;;  (setq pnt (list (car pnt) (+ (cadr pnt) TextSize) (caddr pnt)))

  (princ)
)

The Lisp came from here and I've commented out the sections for other annotation types...

http://www.xtracad.com/forum/index.php?topic=13151.0

 

Shoutout to Josh Merchant/Midlands Mechanical, the author.

 

Run the Lisp to tag one end. Then Hold the TAB key while you run the Lisp to tag the other end.

 

 

Darren J. Young
http://www.darrenjyoung.com/
https://www.linkedin.com/in/darrenjyoung/

Anonymous
Not applicable

Thanks, I'll try this out, as well as check out the link.

0 Likes