# Thread: Draw point along polyline, given length

1. ## Draw point along polyline, given length

Registered forum members do not see this ad.

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

2. 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!!

3. you could try this
Code:
```;places point at specified station along a polyline, measured from start LPS 2008

(defun c:pop ()
(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)
)```

4. 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,

5. Registered forum members do not see this ad.

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.

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts