( defun MD:PointInside (p1 p2 pt / xval yval ) ( and VptMax ( mapcar '+ ViwCen ViwDim ) ) ( list VptMin VptMax ) ) end Arguments: p1 - WCS or UCS point which defines the first corner of area p2 - WCS or UCS point which defines the second corner of area pt - point translated to UCS. ViwDim ( list ( * ViwSiz ( apply '/ ( getvar 'SCREENSIZE' )))

( defun MD:GetScreenCoords ( / ViwCen ViwDim ViwSiz VptMin VptMax ) ( setq ViwSiz ( / ( getvar 'VIEWSIZE' ) 2.0 ) Returns the coordinates of the current view, lower left and upper right. Both MinDist and MinDistLine use the following two functions. Version 1.5f - Added Copy version of move. Version 1.5e - Fixed a minor bug which effected the MinDistMove function when a ray or xline is involved. The first object selected within MinDist is the first point. Moves a selection set from the first MinDist point to the second. An undo after the routine would restore a copied object. Version 1.5d - Added vla-StartUndoMark and vla-EndUndoMark. Version 1.5c beta - Revised the fuzz factor in the MD:UniformScale function. Revised the UniformScale sub-routine to allow operation with objects nested in dimensions. Version 1.5b beta - Enter at select object prompt ends the routine. Revised the MDL routine so it will not draw a very short or zero length line. Both MD and MDL now report when both closest points are off screen. Version 1.5a beta - Fixed a bug with rays and xlines. The search extends beyond the limits of the current view by a factor of approximately two both ways. If a ray or xline is involved the search for closest point along its length is limited by the current view. Version 1.5 beta - Added support for object types point, ray and xline. Revised report when the Z values of the two points are not the same. Bug fix to avoid error if a dimension is selected. Version 1.4a - Bug fix for 2D (heavy) and 3D polylines. Version 1.4 beta - Added error checking for non-uniformly scaled blocks. Rather a temporary X mark is placed where the object was selected to indicate the the object is contained in an xref.

If the first object is contained in an xref it is not highlighted. The first object selected is highlighted until the the second object is selected similar to the fillet tool.

Added MD:GetXrefs, MD:GetObject, MD:UnlockLayers, MD:RelockLayers and MD:XMark sub-functions. Version 1.3 beta - Added support for nested objects in blocks and xrefs. Note, If the line drawn by MDL is off-screen it is selected, otherwise not. As such a minimum distance line is rarely needed. The idea is MinDist is primarily a measuring tool. This avoids having to choose whether a line is placed within MinDist itself. Allows the user to place a line between the last two closest points calculated by MinDist after it ends. Version history: Version 1.2 beta - Added the MinDistLine routine. The object types selected are reported at the command line. There's an option to add a line on the current layer drawn between the two closest points. When the objects are not coplanar, the apparent minimum distance will usually differ from the actual minimum distance. If the Z values of the two points found are not equal, report at command line Z1 = x Z2 = x. Shortcut: MD Notes version 1.0: If two lines are parallel they are reported as such. Supported object types: line, circle, arc, ellipse, polyline and spline. Find the minimum distance between two vlax-curve objects. Bug reports may be sent to me (Joe Burke) directly at Version 1.0. By Joe Burke, Charles Alan Butler and VovKa at theswamp.

If you would like for there to be a line drawn that shows the minimum distance, enter MDL in the command line and a line will be drawn that shows the closest distance.

The routine will show the minimum distance in the command line.

In the command line use MD to select the 2 objects.

The LISP routine is found at the and is by Joe Burke, Charles Alan Butler and VovKa. Here is a LISP routine that lets you do the same thing without having Civil 3D. The previous tip showcased a command that is available in Civil 3D that lets you find the closest distance between 2 objects and even draws a line at the closest points.

Xline autocad