I wrote this script to insert a point a distance specified by the user. However, I would also like to include an offset distance. Thanks in advance.
(defun c:pp( / obj newlen plotpt pt)
(princ "\nPlot point script will plot a point along a line or polyline.")
(setq ent (car (entsel "\n >> Select a line or polyline >>")))
(setq newlen 0)
(setq plotpt (getint "\nEnter a distance to plot a single point: "))
(setq newlen (+ plotpt newlen))
(setq pt (vlax-curve-getpointatdist ent newlen))
(entmakex (list
(cons 0 "POINT")
(cons 10 pt)
(cons 8 "non-print")
)
)
(princ "\Point created")
)
*edited initial code because i saw some areas to clean up