Topic: Perpendicular at midpoint

[DanB]

Every time I do this I think there might be a "better" way. Draw a line, any angle. Draw a second line perpendicular to the first line where the second line starts at the midpoint of the first line. This should create a "T" of sorts, lengths are not important for the excercise. I've always drawn the second line by starting a distance away from first, then back, perpendicular snap to the first line, move to midpoint. I'm not looking for a lisp routine or coding, just curious if there's a..different way..

[Lee Mac]

Maybe not 'better', but another way might be to set UCS to object and turn Orthomode on.

[Rob...]

Object snap tracking and polar tracking.

[Mark]

Code: [Select]

Command: line
Specify first point:
Specify next point or [Undo]:
Specify next point or [Undo]:

Command: SNAPANG
Enter new value for SNAPANG <0>:  Specify second point:

Command: line

Specify first point: mid
of
Specify next point or [Undo]:  <Ortho on>
Specify next point or [Undo]:


[Lee Mac]

I know you said you weren't looking for code, but here is a short snippet which may streamline the process a little:

Code: [Select]

(defun c:per ( / *error* e o p )
    (defun *error* ( m )
        (if o (progn (setvar 'orthomode o) (command "_.ucs" "_p")))
        (princ)
    )
    (if (and
            (setq p (getpoint "\nSpecify first point: "))
            (setq e (car (nentselp p)))
        )
        (progn
            (setq p (trans p 1 0))
            (command "_.ucs" "_ob" e)
            (setq o (getvar 'orthomode))
            (setvar 'orthomode 1)
            (command "_.line" "_non" (trans p 0 1))
            (while (< 0 (getvar 'cmdactive)) (command "\\"))
            (setvar 'orthomode o)
            (command "_.ucs" "_p")
        )
    )
    (princ)
)

[DanB]

Thanks all, always good to have a fresh look at some different methods. I like the snapang idea, going to try out Lee's code now.

[danallen]

grips!

pick line to highlight grips
pick midpoint
enter
enter (to get rotate)
c for copy
90 to rotate
enter

done!

Every time I do this I think there might be a "better" way. Draw a line, any angle. Draw a second line perpendicular to the first line where the second line starts at the midpoint of the first line. This should create a "T" of sorts, lengths are not important for the excercise. I've always drawn the second line by starting a distance away from first, then back, perpendicular snap to the first line, move to midpoint. I'm not looking for a lisp routine or coding, just curious if there's a..different way..

[CAB]

Several in this tread.
http://www.theswamp.org/index.php?topic=1468.msg389018#msg389018