Community
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<cadsys08> a écrit dans le message de news:Although
href="mailto:6052836@discussion.autodesk.com">6052836@discussion.autodesk.com...
I have programming experience, I am still new to LISP....so work with me.....
I attached the file........ this is the original so you will have to make
polylines and close the "lil circles"....easy enough The closest thing I can
find online is this, but I need to get the points going for the center of the
"lil circles": This puts a selected object where ever there are points.......
(defun c:Rp() (setq ss (ssget "x" (list (cons 0 "points")))) (setq inc 0)
(setq obj (car (entsel "\nSelect an object to locate at each point: "))) (setq
orgpnt (cdr (assoc '10 (entget obj)))) (while (setq node (ssname ss inc)))
(setq topnt (cdr (assoc '10 (entget node)))) (command "copy" obj "" orgpnt
topnt) (setq inc (1+ inc))) (princ "\nDone") ) I was using this because
ultimately I would like to be able to copy a "station symbol"(object) to each
of these points. Edited by: cadsys08 on Oct 16, 2008 4:46 PM
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<cadsys08> a écrit dans le message de news:Try
href="mailto:6053098@discussion.autodesk.com">6053098@discussion.autodesk.com...
this file....... Yeah I figured out that using a 2 pnt circle and click
opposing verticies makes an nice centered circle....then snap a point to
center of circle, then delete polyline. I can easily make a macro to do this,
but sometimes the file might have hundreds, maybe thousands of "points"....I
need to be able to do this operation to a selection set...not one at a time. I
have a line plot associated with these points.....it might be easier to write
LISP to put circles(objects) at each endpoint of the lines.....just a thought.
Edited by: cadsys08 on Oct 17, 2008 12:30 AM I was able to use the code to
snab the objects to the ends of the lines by simply changing (setq ss (ssget
"x" (list (cons 0 "points")))) to (setq ss (ssget "x" (list (cons 0
"line")))). Works like a champ, except for it seems to repeat the process 5
times.....so i end up having to use overkill command to go back and clean up
the overlapping objects(no big deal). Still would be nice if someone could
refine this code.......ultimately what would be nice would be like a find and
replace for objects. Edited by: cadsys08 on Oct 17, 2008 1:26 AM
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<cadsys08> a écrit dans le message de news:WOW!
href="mailto:6053603@discussion.autodesk.com">6053603@discussion.autodesk.com...
Thanks guys! that code is way over my head...I would have never figured it out
on my own. I will get back to you soon and let you know how it works out.
Thanks again!