Draw point along polyline, given length

[declys]

friends:
How can we Draw a point along selected polyline, given length from beginning of this polyline using lisp or visual basic?
Thank you

[badien]

To draw a point along selected polyline you can use Divide command or Measure command or use the Auto Lips to combine the steps to a new Lisp routine.
To give the length of polyline you can refer this following file:
Hope this helps
Cheer!!

[Lee Mac]

Perhaps see here:

http://www.cadtutor.net/forum/showth...739#post210739

[lpseifert]

you could try this

;places point at specified station along a polyline, measured from start LPS 2008

(defun c:pop ()
(vl-load-com)
(setq oldosnap (getvar "osmode"))
(setvar "osmode" 0)
(command "ucs" "w")
(setvar "pdmode" 3); if your pdmode is already set to what you want, remove or comment this line
(setq ob (entsel "Select curve: "))
(setq p2 (getreal "\n Specify Distance : "))
(setq obj (vlax-ename->vla-object (car ob)))
(setq pt1 (vlax-curve-getPointAtDist Obj p2))
(command "Point" pt1)
(command "ucs" "p")
(setvar "osmode" oldosnap)
(princ)
)

[fati sohrabi]

calculate the Length off a polyline from begin till a point

I want to know the length of a line from the begin till the point where
I click or where the line cross a other line.
I can get the line and i can find where the intersection points are
with VBA but I can NOT find a function that calculate the the exact
length from begin to the intersection.
Can anyone help me to find the good way.

thank u all,

[careca]

Try using a combination of these:

Start Point: (vlax-curve-getstartpoint Obj)
End Point: (vlax-curve-getendpoint Onj)
Distance at Point: (vlax-curve-getDistAtPoint Obj pt)
Intersection: (vlax-invoke Obj 'IntersectWith Obj2 acExtendNone)

And then subtract distance between your start point and distance at your intersection point/click point.