What's wrong with the routine ? (autolisp)

[marpus]

Problem description:
I write the routine that sets a point in a certain distance from the
origin of a choosen line (variable linia). The distance of this point
along the line is considered to be dependent upon number of division
(variable n) of the line's length. But as long as I have interested
point calculated and try to set it, it always fails and sets the point
at the origin instead. What's wrong ?

Code:
(defun c:brln ()
(setq stare_cmdecho (getvar "cmdecho&quot)
(setvar "cmdecho" 0)
(setq linia (entsel "\nWybierz linie do podzialu na n czesci...&quot) ;
Choose a line
(setq n (getint "\nPodaj ilosc podzialow na n czesci...&quot); Set number
of division
(setq ename (car linia))
(setq en (entget ename))
(setq P1 (cdr (assoc 10 en)))
(setq P2 (cdr (assoc 11 en)))
(setq delta (/ (distance P1 P2) n)) ; For future usage
(setq PN (polar P1 (angle P1 P2) (/ (distance P1 P2) n)))
(command "point" PN)
(setvar "cmdecho" stare_cmdecho)
(princ)
)

 

[CarlAK]

I would guess you have a running osnap on that causes it to "snap" to the endpoint. You could insert lines;
(setq UserSnap (getvar "osmode&quot)
(setvar "osmode" 0)
before the line (command .....)
and afterward add
(setvar "osmode" UserSnap)