Hi, everyone I am trying to draw
Hi, everyone I am trying to draw
(OP)
Hi, everyone
I am trying to draw a simple graph with lisp, but with very small lengths values, start points are the previous ones
can anybody help?
(defun c:simp ()
(setq start (getpoint "\n select point"))
(setq n (getint "enter n:"))
(setq deltalist nil)
(repeat n
(setq delta (getdist "/lengths"))
(setq deltalist (append deltalist (list delta)))
)
(setq ct 0)
(repeat n
(setq deltax (nth ct deltalist))
(setq pt1 (list (+ (car start) deltax) (cadr start)))
(setq pt2 (list (+ (car start) deltax) (+ (cadr start) 3)))
(command "line" start pt1 "")
(command "line" pt1 pt2 "")
(setq ct (+ 1 ct))
)
)
I am trying to draw a simple graph with lisp, but with very small lengths values, start points are the previous ones
can anybody help?
(defun c:simp ()
(setq start (getpoint "\n select point"))
(setq n (getint "enter n:"))
(setq deltalist nil)
(repeat n
(setq delta (getdist "/lengths"))
(setq deltalist (append deltalist (list delta)))
)
(setq ct 0)
(repeat n
(setq deltax (nth ct deltalist))
(setq pt1 (list (+ (car start) deltax) (cadr start)))
(setq pt2 (list (+ (car start) deltax) (+ (cadr start) 3)))
(command "line" start pt1 "")
(command "line" pt1 pt2 "")
(setq ct (+ 1 ct))
)
)
RE: Hi, everyone I am trying to draw
It's best to control osnaps within the lisp, such as by (setvar "osmode" "0")
Actually you should capture current osmode, set the osmode for routine, then restore osmode setting at end of routine.
RE: Hi, everyone I am trying to draw