war3 - 22 Styczeń 2010, 08:19 Temat postu: Zmiana średnicy, automatyczne kopiowanie Witam Mam 2 pytania 1) Jak skopiować element kilkakrotnie na te same odległości w pionie lub poziomie albo inaczej, kopiując żeby rozłożyło mi 15 okręgów w równych odległościach w polu kwadrata? 2) Mam na rysunku 50 okręgów i różnych średnicach i kilka z nich wybiorczo chciałbym zmienić średnice w ten sposób aby zaznaczyć np tylko 10 i podać dla nich jedna wsólną średnice? (bez zmieniania po kolei każdemu) Dziękuje wawel - 22 Styczeń 2010, 09:22 Do ptk. 1 Otworz doker odpowiedzialny za polozenie alt F7 Wpisz wartosc o jaka ma byc przesuniety duplikat a nastepnie zastosuj do duplikatu. Mozna tez napisac macro ktore przeniesie dany element i jego kopie np: x - razy o konkretna odleglosc. do ptk. 2 Jesli zaznaczysz kilka z tych okregow i zmienisz rozmiar to zmienia sie wszystkie. Mozna tez zrobic to macrem kiedys napisalem takie i wrzucilem tu na forum, tylko ze zanim je znajdziesz to te 10 okregow nawet pojedynczo zmienisz. Zreszta nawet jesli uzyjesz makra to trzeba bedzie aby skrypt odroznil jakos te okregi ktore ma skalowac od tych ktore maja zostac bez zmian wiec, trzeba by je jakos wyselekcjonowac, np: za pomoca koloru. Dlatego trzeba by tez to macro troche zmienic, ale dla 10 okregow to szkoda czasu na takie rozwiazania. pozdr. war3 - 24 Styczeń 2010, 10:39
Jeśli omiatam , zaznaczam itd. te elementy których średnice chce zmienić to podany jest obszar w czworokącie. Jeśli go zmienię nawet z zamkniętą kłódką lub co gorsza z otwartą to i tak wszystkie zaznaczone okręgi nie będą miały tej samej średnicy np 10mm tylko każdy inną tak jak przedtem jedynie zmieni się skala średnic zależnie od tego jak z edytowałem wymiar zaznaczenia. Jakieś inne propozycje? wawel - 24 Styczeń 2010, 13:01 Jesli zaznaczone okregi maja rozne srednice to oczywiscie takie przeskalowanie nie spowoduje ich zrownania. mozna uzyc np: makra Sub skalowaniedo10mm() Dim s As Shape ActiveDocument.ReferencePoint = cdrCenter For Each s In ActiveDocument.ActiveLayer.Shapes s.SetSize 0.393701, 0.393701 Next s End Sub Dziala na wszystkich otwartych dokumentach na aktywnej warstwie. Wiec najlepiej zaznaczyc te okregi ktore maja byc skalowane i przeniesc na osobna warstwe oraz uruchomic to makro. Jesli ma byc 20 mm to 0.393701 mnozysz x 2 itd. |
