Get minimum distance from a point to point along the polyline

[noadea]

Hi guys...
How to write a lisp that can get minimum distance from a point to any point along the polyline? Thanks.

[Jeff_M]

Like so....

(setq pt (getpoint "\nPoint: "))
(setq crvobj (car (entsel "\nSelect object: ")));can be any line, arc, pline, ellipse, spline
(setq closestpt (vlax-curve-getclosestpointto crvobj pt))

HTH,
Jeff

[noadea]

Thanks for the code.
Actually I want to find the closest intersection point along the polyline to a point (this point not along the polyline). How to write this lisp?

[Jeff_M]

????
You want the nearest VERTEX, perhaps?

[noadea]

I'm not sure about that but if you refer to my attached drawing, I’ve a problem to draw the green lines which are from insertion point of small rectangle to unknown point. Unknown point here means the point that is near to the intersection of orange line with the datch polyline like in the C_01.dwg but not touch each other. How to write the code so that can produce the green line like in the attached drawing? Really hope that you can help me…

[Jeff_M]

I'm sorry, but I'm not sure this can be done without more information or input from the user. If it can be done, I'm sure not seeing it.

Jeff

[noadea]

FYI
The ltg.lsp is the program that can draw the orange line by reading the data from csv file, cotxt.zip (cotxt.csv). From cotxt.scv: column A - text number refer to small rectangle, clumn B- text number refer to yellow circle, column C and D- x and y coordinates refer to centre point of small rectangle. I only have this information to draw the green lines.

[noadea]

Any help would be much appreciated..

[jwanstaett]

(vl-load-com)
;;This function loads the extended AutoLISP functions
;;provided with Visual LISP. The Visual LISP extensions
;;implement ActiveX and AutoCAD reactor support through
;;AutoLISP, and also provide ActiveX utility and data
;;conversion functions, dictionary handling functions,
;;and curve measurement functions.
 


;;Function jwaGetDis
;;Returns the Distamce of a point on a curve (myPline)
;;that is nearest to the specified point(myPoint need to be in WCS)
;;myPline is the entiyname of a line, arc, pline, ellipse, spline

(defun jwaGetDis( myPline myPoint)
(distance (vlax-curve-getclosestpointto myPline mypoint) myPoint)
  )

;;use to test the jwaGetDis function
;;use the command jwaTestGetDis
;;will ask for a point
;;and a curve object
;;then run the jwaGetDis funtion

(defun c:jwaTestGetDis()
  (setq pt (getpoint "\nPoint: "))
  (setq pline (car (entsel "\nSelect object: ")));can be any line, arc, pline, ellipse, spline
  (jwaGetDis pline pt)
)

Here a list of the Curve Object that can be use with the jwaGetDis funtion
Note: it List the ADT Object thaty can be use
AcDbCurve
AcDb2dPolyline
AcDb3dPolyline
AcDbArc
AcDbCircle
AcDbEllipse
AcDbLeader
AcDbLine
AcDbCommonEdgeLine
AcDbPolyline
AcDbRay
AcDbSpline
AcDbHelix
AcDbXline
AecDbEntity
AecDbAnnotationBase
AecDbBreakMarkObject
AecDbCalloutObject
AecDbTitleMarkObject
AecDbDebugEnt
AecDbGeo
AecDb2dSection
AecDbBlockRef
AecDbEntRef
AecDbMaskBlockRef
AecDbMvBlockRef
AecDbCamera
AecDbClipVolRes
AecDbBdgSection
AecDbDisplayTheme
AecDbEditInPlaceProfile
AecDbLayoutTool
AecDbCellLayoutTool
AecDbGridAssembly
AecDbCurtainWallLayout
AecDbCurtainWallUnit
AecDbWindowAssembly
AecDbLayoutGrid2d
AecDbCeilingGrid
AecDbColumnGrid
AecDbPolygon
AecDbVolumeLayoutTool
AecDbLayoutGrid3d
AecDbSpace
AecDbClipVol
AecDbBdgElevLine
AecDbBdgSectionLine
AecDbLayoutCurve
AecDbSlice
AecsDbMember
AecDbPoint
AecDbMassElem
AecDbMassGroup
AecDbScheduleTable
AecDbAddZoneDefinition
AecDbOpeningBase
AecDbOpenFiller
AecDbDoor
AecDbWindow
AecDbOpening
AecDbRailing
AecDbRoof
AecDbSlabBase
AecDbRoofSlab
AecDbSlab
AecDbSpaceBoundary
AecDbStair
AecDbWall
AecDbZone
AecDbAddAreaGroupDefinition
AecDbArea
AecDbAreaGroup
AecDbDimensionGroup
AecDbKeyNoteLegendObject
AecDbKeyNoteObject
AecDbScheduleTagObject

[kennet.sjoberg]

Hi guys...

I am just curios rohaya.shaffini, are you a student or an employer ?

: ) Happy Computing !

kennet