construction line horizontal and vertical

[ami]

Hi everyone,

Could anyone help me with a very simple lisp?!

All I want is a lisp that creates a vertical Xline, another lisp that creates horizontal Xline (with one click only). and another lisp that creates an Xline in a specific distance that the user supplied.

Thanks in advance,

Ami

[injineri]

ConstructionLines is nice add in for Autocad you can try

[ami]

Hi, 

Actually, I know this tool, and that's exactly what I wanted, because I started to work with Autocad 2019, and this tool is for 2018 down.

and meanwhile, until the update will release for this tool. I need the horizontal and vertical lisps, and also a lisp that makes a line in a specific distance,

Thanks in advance.

Ami.

[Anonymous · Accepted solution]

Sorry for any grammatical error, I'm using google to translate.

Try this:

(defun C:XLHT ()
    (while
	(setq p1 (getpoint "\nClick: "))
	(command "_.Xline" "A" "90" p1 "")
	(command "_.Xline" "A" "0" p1 "")
      )
  (princ)
)

Júnior Nogueira.

Por favor,  Aceitar como Solução se meu post te ajudar.

Please Accept as Solution if my post helps you.

[ami]

Thank you,

I believe I can use this until I get the update for "construction line tool"

Ami

[Kent1Cooper]

---

@ami wrote:

.... 

All I want is a lisp that creates a vertical Xline, another lisp that creates horizontal Xline (with one click only). and another lisp that creates an Xline in a specific distance that the user supplied.

....

---

I need some clarification.  The accepted-Solution routine does both  vertical and horizontal Xlines through the same points as you pick them, but the description above sounds like you want separate ones for vertical and horizontal, which should be something more like this:

(defun C:XV (/ pt)
  (while
    (setq pt (getpoint "\nPoint through which to draw Vertical Xline: "))
    (command "_.Xline" "_ver" "_none" pt "")
  )
  (princ)
)

(defun C:XH (/ pt)
  (while
    (setq pt (getpoint "\nPoint through which to draw Horizontal Xline: "))
    (command "_.Xline" "_hor" "_none" pt "")
  )
  (princ)
)

And I don't understand what you mean by "an Xline in a specific distance that the user supplied" -- can you post an image to illustrate?

You may find ConstLines.lsp with its RX command useful -- available >>here<<.  It's a combined Ray and Xline  command in which, within one  running of the command, you can switch between Xlines and Rays, between Horizontal and Vertical and Free-direction Xlines or between any of the compass directions and Free-direction Rays, as long as you want to keep going.  It puts them on a dedicated non-plotting Layer, and when you're done, returns you to the Layer you were on before.  See additional comments at that page and in the file.

[Anonymous]

Thank you very much. It worked for me and helped me save the extra burden.

[thabisoT8RBP]

Hi Kent,

Is there a way to add this command to my right click menu?

I've tried using the CUI but can't seem to find the command.

Kind regards,

Vincent Hudson