Draw point along polyline, giv

declys · 发表于 2022-7-6 07:29:35

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 · 发表于 2022-7-6 07:51:54

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!!
ADDLEN.lsp

Lee Mac · 发表于 2022-7-6 08:01:10

Perhaps see here:

http://www.cadtutor.net/forum/showthread.php?p=210739#post210739

lpseifert · 发表于 2022-7-6 08:09:21

you could try this

copy

;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 · 发表于 2022-7-6 08:24:18

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 · 发表于 2022-7-6 08:40:51

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.

[编程交流] Draw point along polyline, giv

发表回复

精选推荐