TECHSOFT CZTECHSOFT SKCADHelpCAD FórumFreeCAD

Pole (array)

Diskuse týkající se používání ZWCADu
Návrhář
Příspěvky: 18
Registrován: 05 kvě 2014, 10:20

Pole (array)

Příspěvekod arch » 10 čer 2015, 09:06

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
ZW+ 2012 SP2

Administrátor
Uživatelský avatar
Příspěvky: 401
Registrován: 14 dub 2014, 15:50
Jméno (bez příjmení): Ján Pajerchin

Re: Pole (array)

Příspěvekod JanP » 10 čer 2015, 10:05

(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 :D

Návrhář
Příspěvky: 18
Registrován: 05 kvě 2014, 10:20

Re: Pole (array)

Příspěvekod arch » 10 čer 2015, 11:58

vyyyyyyyborne .... presne to, co som potreboval .... velka vdaka :-bd :ymapplause:
ZW+ 2012 SP2

Zpět na Technické dotazy ZWCADu



Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 12 návštevníků