Display point markers for geometry
@Anonymous wrote:
.... can you think of any alternative way I can display my geometry points in graphics ...?
A routine could certainly be written that would put either a Point entity or a Block [whichever you prefer] at each vertex of all selected Polylines all at once, so you don't need to go around and add them everywhere yourself as JGerth's suggestion implies. Since your "like a rectangle" is only one of countless possibilities of simple geometry, would you want other kinds of things also marked in that way? A single routine could, for example, with one User selection of any number of types of objects, put such markers on all Polyline vertices and all Line endpoints and at the centers and perhaps quadrant points if you like of all Circles, and at the centers and endpoints of all Arcs, and at the insertion points of all Blocks and/or Text, and ....
Kent Cooper, AIA 
Well, will something like that suits you? This is just a display style with a jitter setting Off:
@Anonymous wrote:
.....
Kent1Cooper, could you write me such a routine you were referring to? I have no idea how to do that.
....
For LWPolylines only so far [since presumably that's what your example of a rectangle would be and you mention vertices in Post 8, but they can be of any shape], in simplest terms, and very lightly tested:
(defun C:PPV (/ ss pl v); = Points on Polyline Vertices
(prompt "\nTo place Points on all vertices of selected Polyline(s),")
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(repeat (setq n (sslength ss))
(setq pl (ssname ss (setq n (1- n))))
(repeat (setq v (cdr (assoc 90 (entget pl))))
(command "_.point" (vlax-curve-getPointAtParam pl (setq v (1- v))))
); repeat
); repeat
); defun
The same idea can be extended to handle whatever additional entity types you want, and whatever locations on them you want Points added to. Provide specifics and they can be included.
It doesn't yet do things that it could like check whether you actually picked anything, account for object snap [you'll be okay if it's either off or any running modes include Endpoint], account for non-World Coordinate Systems, set a PDMODE value for visibility of the Points, etc., etc.
Kent Cooper, AIA
@Anonymous wrote:
Kent1Cooper, I get this:
; error: no function definition: VLAX-CURVE-GETPOINTATPARAM
That means the VL... functions are not loaded. I should probably have thought of that, and usually do include the following in fully-developed routines. Put this in at the Command: line:
(vl-load-com)
and try again.
Kent Cooper, AIA
@Anonymous wrote:
.... Now, how do I make it work for other geometry (circles, arcs, polygons....
It will already do polygons, at least any made with the Polygon command, since what that makes is a Polyline. If a polygon is made up of separate Lines, that would need to be done by marking the Lines rather than the polygon as a whole.
That would not be difficult. But clarify at what location(s) in relation to specific entity types you would want Points added:
LINE: both end points? also midpoint?
CIRCLE: center? also quadrant points?
ARC: end points? center? midpoint? any quadrant point(s) that are within the sweep of the Arc?
ELLIPSE: as with Circle? if partial, as with Arc?
SPLINE: endpoints? any fit or control points?
POLYLINE: in addition to vertices, perhaps also midpoints of segments such as get grips when selected?
BLOCK: insertion point? anything on internal geometry [harder than the preceding possibilities]?
RAY? XLINE? etc., etc.....
Things other than geometry per se [TEXT, MTEXT, DIMENSIONS, etc.]?
And in the case of things that meet where each one should get a Point [e.g. contiguous Line ends], a "plain" routine would place two [sometimes more] Points. Should it check whether there's one there already, and add one only if there isn't?
In the case of midpoints, for whatever entity types you would want those marked [including Polyline segment midpoints if you choose that option], check out MarkMidPoints.lsp, available here. Points are just one of the possible markers it can place.
Kent Cooper, AIA