Drafting Techniques
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic to the Top
- Bookmark
- Subscribe
- Printer Friendly Page
Need LISP to draw line / pline to match TEXT rotation!
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
I have searched everywhere but have found nothing. There are a ton of lisp to match text rotation to a selected line, but not vice versa.
Anyone out there have anything?
Re: Need LISP to draw line / pline to match TEXT rotation!
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
I have a routine I use to rotate viewports which first sets the snapangle to the selected object rotation. If you select text and then escape the routine you can place a line with ortho on to get what you want. I don't think it works with mtext though.
http://www.paracadd.com/lisp/rotx.lsp
HTH
Civil Design Professional Since 1983 (Intergraph), AutoCAD since 1989
It is said that a fool's voice is known by multitude of words... I'm
just writing this stuff instead of saying it outloud... that's my loophole.
Windows 7 Professional 64-bit - Service Pack 1
Intel﴾R﴿ Core﴾TM﴿ i7-3820 CPU 3.60GHz; 16 GB DDR3 Dual Channel RAM
nVidia Quadro 4000; AutoCAD Civil 3D 2013, sp1
Re: Need LISP to draw line / pline to match TEXT rotation!
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
Use UCS, Ojbect option, pick text
I have a simple macro so I type UO, pick the object. And UW for UCS, World to get back.
Re: Need LISP to draw line / pline to match TEXT rotation!
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
I have autocad 2011. Use ALIGN command. It rotates an object the way it rotates text like TORIENT command, only vise versa. align can rotate any object.
ROse
Re: Need LISP to draw line / pline to match TEXT rotation!
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Highlight
- Email to a Friend
- Report Inappropriate Content
econnerly wrote:I have searched everywhere but have found nothing. There are a ton of lisp to match text rotation to a selected line, but not vice versa.
Anyone out there have anything?
This will set your snapang to the selected text angle. HTH
(defun C:tmp ()
(setq esel (entsel "\nSelect text: "))
(setq edata (entget (car esel)))
(setvar 'snapang (cdr (assoc '50 edata)))
(princ)
)

