Pole (array)

[arch Profil]

Zdravim
opat mam otazku na vytvorenie lispu, ktory by rozsiril funkcnost prikazu Array - nieco na sposob ako funguje kopirovanie v SketchUpe: zoberiete objekt a skopirujete ho o nejaku vzdialenost a potom mozete dat napriklad /5 - a on rozhodi do tej vzdialenosti 5 objketov (teda vratane toho prveho - cize povodnu vzdialenost rozdeli na 5) alebo mozete zadat napriklad *5 a povodnu skopirovanu vzdialenost nakopiruje objekt dalsie 4 razy - v ZWCADe v prikaze Array v podstate funguje ta prva moznost, ale nie ta druha. Neexistuje na to nejaky lisp? Vdaka

[JanP]

(defun c:pole2 (/ ss p1 p2 num ang dst dst2)
(if (and (setq ss (ssget "_:L"))
(setq p1 (getpoint "\nPrvý bod: "))
(setq p2 (getpoint p1 "\nDruhý bod: "))
(progn (initget 6) (setq num (getint "\nPočet kópií: ")))
)
(progn
(setq ang (angle p1 p2)
dst (/ (distance p1 p2) num)
dst2 0.
)
(repeat num (command "_.copy" ss "" "_non" p1 "_non" (polar p1 ang (setq dst2 (+ dst dst2)))))
)
)
(princ)
)

...šlo to celkom rýchlo. Dúfam že vyhovuje

[arch Profil]

vyyyyyyyborne .... presne to, co som potreboval .... velka vdaka