I came up with this command to copy an attributed
block down and change the number. It should be fairly easy to modify it to
work for text... mostly would require taking anything related to attributes and
modifing to run ddedit instead of attedit...
good luck
Joe B
;-------------------------------------------------------------------------
; This function copies plan note bubbles down the list
; while automatically changing the number
;-------------------------------------------------------------------------
(defun c:y ()
(setq FIRSTNOTE (car (entsel)))
(setq FIRSTNOTEDATA (entget FIRSTNOTE))
(setq FIRSTNOTEINS (cdr (assoc 10 FIRSTNOTEDATA)))
(setq BASEPT (polar FIRSTNOTEINS (* 1.5 pi) (* (getvar "userr1") 4.5)))
(setq BASEPT_X (nth 0 BASEPT))
(setq COUNT (atoi (cdr (assoc 1 (entget (entnext FIRSTNOTE))))))
(setq NEXTPOINT (getpoint "\nSelect NEXT POINT: "))
(while (/= NEXTPOINT nil)
(setq NEXTPOINT_Y (nth 1 NEXTPOINT))
(setq NEWPT (list BASEPT_X NEXTPOINT_Y))
(command "copy" FIRSTNOTE "" BASEPT NEWPT)
(command "attedit" "" "" "" "" (entnext (entlast)) "v" "r" (itoa (+ COUNT 1))
"")
(setq COUNT (1+ COUNT))
(setq NEXTPOINT (getpoint "\nSelect NEXT POINT or RETURN to exit: "))
)
(princ)
)
; Joe Becker 6/26/01
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
"john crocco" <
href="mailto:jcrocco@cartlandco.com">jcrocco@cartlandco.com> wrote in
message
href="news:43B3E9E09E249799EAE5DB2B4379FB13@in.WebX.maYIadrTaRb">news:43B3E9E09E249799EAE5DB2B437......
Does anyone have or know of a lisp that can copy
text down, (like 1., 2. etc) and increase number by one. So copying text
2. down would end up being 3.
I can write one, or concoct one from 2 or 3 from
my collection, but any help or base would be great. I can copy the text
down no problem, its reading the text, and increasing the number by one that
may be slightly difficult.
--
John Crocco
href="mailto:Jcrocco@cartlandco.com">Jcrocco@cartlandco.com
href="http://www.skyboom.com/jcrocco/trilokin.html">http://www.skyboom.com/jcrocco/trilokin.html
Would
you like to lose weight naturally, while increasing your energy?
Click
above for more info.