declys Posted February 19, 2009 Share Posted February 19, 2009 friends: How can we Draw a point along selected polyline, given length from beginning of this polyline using lisp or visual basic? Thank you Quote Link to comment Share on other sites More sharing options...
badien Posted February 19, 2009 Share Posted February 19, 2009 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 Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted February 19, 2009 Share Posted February 19, 2009 Perhaps see here: http://www.cadtutor.net/forum/showthread.php?p=210739#post210739 Quote Link to comment Share on other sites More sharing options...
lpseifert Posted February 19, 2009 Share Posted February 19, 2009 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) ) Quote Link to comment Share on other sites More sharing options...
fati sohrabi Posted September 21, 2012 Share Posted September 21, 2012 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, Quote Link to comment Share on other sites More sharing options...
careca Posted September 24, 2012 Share Posted September 24, 2012 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.