melanimax 28-09-2009 12:03
Nisam uspjela skužiti kako bih označila više točaka i arrayala ih. Naredbe oblika:
(setq st_utor (PT12 PT22 PT32 PT42 PT52 PT62 PT72 PT82 PT92 PT102 PT112 PT122))
(setq ss2 (ssget "_WP" st_utor))
(command "_array" ss2 "" "_P" "0,0" N2 360 "Y"Wink
ne rade ništa Sad
PTx2 su 2D točke...
JackOfHearts 28-09-2009 14:43
Ima tu par grešaka. Prva naredba nije ispravno napisana jer lista se ne može na taj način napisati već
Code:
(setq st_utor (list PT12 PT22 PT32 PT42 PT52 PT62 PT72 PT82 PT92 PT102 PT112 PT122))
sljedeća naredba koristi WP (window polygon) koji ti neće uvijek selektirati sve tvoje točke
Ovo je dosta nezgodan način selekcije jer ti je ograničen broj točaka na ove koji su u listi st_utor. Pokušaj napraviti da ti se lista dopunjava (for, while, foreach .. ili sl. petljom) sa n brojem točaka i da nju onda ubaciš u ssget.
S obzirom da ne znam šta točno radiš, ssget sa WP opcijom ti nije dobro riješenje ako želiš selektirati te točke jer ti neće uvijek htijeti selektirati sve granične elemete, u ovom slučaju tvoje točke. Morat ćeš naći neki drugi način. Trebao bih malo više info da bi ti mogao više pomoći.
P.S. S obzirom da koristiš command naredbu, pripazi da si iskučila OSNAP, jer inače ćeš dobiti čudno ponašanje te naredbe.
melanimax 28-09-2009 14:52
Zadatak mi je nacrtati utor statora (s klinom, skošenjem i svim komplikacijama). Zadala sam minimalan broj točaka koje moram imati da bi nacrtala takav utor i definirala ih preko
(setq PTx2 (list x1 x2))
Zatim sam išla te sve točke nacrtati s:
(command "_line" PTx2 PTy2 ""Wink
Kada se to sve izvršilo, morala sam nekako odabrati te točke i arraya-ti ih N2 puta...
JackOfHearts 28-09-2009 15:44
sada ne znam točno šta je utor statora i sl ... ali ima jedan lakši način za to. Umesto da sve nacrtaš, pa onda selektiraš, prilikom iscrtavanja, svaki novi objekt(točka, linija i sl.) spremi u selection set i onda na kraju jednostavno tu varijablu koja ima selection set, staviš u array komandu.
Code:
(setq SS (ssadd))
....
(for ...
(command "_line" PTx2 PTy2 "")
(setq lastDrawnItem (entlast))
(ssadd lastDrawnItem SS)
)
...
(command "_array" SS "" "_P" "0,0" N2 360 "Y")
melanimax 29-09-2009 09:08
Probat ću... hvala na odgovoru Smile
(PS Utor statora stroja je rupa u koju idu vodiči (tvore namot):
karmela.fsb.hr/katedra/download/materijali/743.pdf
)
melanimax 30-09-2009 14:23
Probala sam algoritam radi savršeno- puno ti hvala na pomoći (od sreće sam skakala po uredu) Pfft
Sada ću pokušati riješiti još jedan problem s time, pa ako zapne- javim se
JackOfHearts 30-09-2009 16:29
drago mi je da je pomoglo
