Multiple Divide Routine
15-Jan-92 12:33:36
Sb: #28566-Multiple Divide Routine
Fm: Carl Bethea [Adesk] 71601,2574
To: Robert Downey 73507,402
Robert – Hey, nice job of hacking; I like the way you handle the multiple
entities. The reason that it fails is that DIVIDE rquires a list of the
entity name and an a pick point (see entsel for an example). I used
(list en (cdr(assoc 10 (entget en))))
as the input to the DIVIDE command. I made a few other changes, too, just
for grins:
(defun c:mdiv (/ ss en pt)
(while (setq ss (ssget))
(while (setq en (ssname ss 0))
(setq pt (cdr (assoc 10 (entget en))))
(command ".divide" (list en pt) 10)
(ssdel en ss)
)
)
(princ)
)