Topic: get all entities made on the fly

[rude dog]

Let's say you had a line on your screen 125'-6 7/8" E-E
and you wanted to break this one long line into smaller lines, but no longer than.... 10'-0" E-E each (or what ever the user specified)....(which is what my program does) how would you setq each line entity seperatly as its was created ?
any thoughts......

Code: [Select]


(defun c:rl (/ rl sp ep dist rpt lpt)
(prompt "\n*****Routine breaks line into smaller lines....When user sets max length")
(setq rl (getreal "\nType in max length...Decimal form please: "))
(setq esel (car (entsel "\nPick line for function ")))
(setq ent (entget esel))
(setq sp (cdr (assoc 10 ent)))
(setq ep (cdr (assoc 11 ent)))
(setq dist1 (distance sp ep))
(command "erase" esel "")
(if
(<= dist1 rl)
(command "line" sp ep "")
(progn
(command "line" sp (polar sp (angle sp ep) rl) "")(setq lpt (getvar "lastpoint")));progn
);if
(setq dist2 (distance lpt ep))
(if (>= dist2 rl)
(progn
(setq rpt (fix (/ dist2 rl)))
(repeat rpt (command "line" lpt (polar lpt (angle sp ep) rl) "")(setq lpt (getvar "lastpoint")))
);if
);progn
(command "line" lpt ep "")
(prompt "\nLongest line in running length is: ") (rtos rl 4 2)
);defun
(princ)
(prompt "\n***Running Length Routine Loaded!!")


[Keith™]

Well, you could use a new selection set and add each new item to the selection set with ssadd....

Create an empty selection set when the proggie starts:

Code: [Select]


(setq newsset (ssadd))

After each line segment is created:

Code: [Select]


(setq newsset (ssadd (entlast) newsset))


When you need to operate on the lines later, you have an entire selection set....

OR

when the proggie starts grab the last entity in the drawing

Code: [Select]


(setq elast (entlast))


After the last line is created

Code: [Select]


(setq newsset (ssadd))
(while (setq elast (entnext elast))
(setq newsset (ssadd elast newsset))
)


good luck

[rude dog]

Thanks for the boost....

[rude dog]

what the....found some bugs with my "proggie" when trying to make a ss set... (more entities  than I anticipated)
back to the lab

[Keith™]

Sometimes it is like that....