This lisp will set your autocad crosshair to a selected grade
You wil have to type the scale of your drawing (1:1, or 1:10), so if you are in a profile view of 1000/100 scale you will write “10” in the scale field.
In he second question you will write the desired grade (like 2 or -2) ect…
(defun C:dslope ( / v1 v2 v3 v4 v5 d_pc p_o p_f dlt_x d olderr)
(setq v1 (getvar “cmdecho”)
v2 (getvar “orthomode”)
v3 (getvar “osmode”)
v4 (getvar “blipmode”)
v5 (getvar “snapang”)
)
(setvar “cmdecho” 0)
(setvar “orthomode” 0)
(setvar “blipmode” 0)
(setq olderr *error* *error* errlsp)
(initget 1)
