Erhöhen Sie den Wert der Attribute in Blöcken

[arri]

♪ - nachdem sie einen block ausgewählt haben, zeigt das programm eine liste aller attribut-tags an, aus denen sie wählen können. dann gibt es ihnen die optionen für den startwert, das inkrement und die reihenfolge, in der durch die blöcke zu zyklieren
http://www.jefferypsanders.com/autolisp_attinc.html

 

[arri]

http://www.cadtutor.net/forum/showpost.php?p=126451&postcount=6

(Rückgang c:mnum(/ ststr stnum nlen catter dlst blname
flst blst blset aname lst lzer astr)
(vl-load-com)
(Fälle)
(und
(setq ststr(getstring "\nspecify start number: "))))
(setq stnum(atoi ststr))
(setq nlen(strlen ststr))
); ende und
(Prog.)
(Fälle)
(und
(setq catr(nentsel "\npick attribute > "))
(= "attrib"(cdr(assoc 0(setq dlst(entget(car catr))))))))))))
); ende und
(Prog.)
(setq blname
(fla-get-Name
(fla object id object
(fla-get-aktives Dokument
(vlax-get-acad-Objekt)
(fla-get-ownerid
(vlax-ename->vla-object(car catr))))
flst(list '(0 . "Insert")(cons 2 blname)))
Name(cdr(assoc 2 dlst))
; endsetq
(princ "\n<= Merkblatt zu numer >>
(Fälle)
(setq blset(ssget flst))
(Prog.)
(setq lst
(mapcar 'vlax-ename->vla Objekt
(Auto)
(vl-sort
(vl-sort
(mapcar '(lambda(x)(list x(cdr(assoc 10(entget x)))))))))
(vl-remove-if'listp)
(mapcar 'cadr(ssnamex blset))))
(a)<(caadr a)(caadr b))))
- Ja.
(Fortsetzung)
(Setq lzer)
(Repeat(- nlen(strlen(itoa stnum))))
(setq lzer(strcat lzer "0"))
); endwiederholung
(setq atl.
(vlax-safearray->list
(vlax-variant wert)
(fla-getattributes i)
(bisher)
(Fälle)
(= aname(vla-get-tagstring a))))
(fla-put-textstring a
(Strcat lzer(itoa stnum)))
Ende, wenn
; endvoraussetzung
(setq stnum(1+ stnum))
; endvoraussetzung
— Endprog
(princ 'ne leere Auswahl! "
Ende, wenn
— Endprog
das ist kein Beitrag! ")
Ende, wenn
— Endprog
(princ "\ninvalid start number! ")
Ende, wenn
(princ)
); ende c:mnum