melanimax 02-10-2009 10:51
Bok svima!
(već sam otvarala ovu temu ali sam krivo stisnula i ode tema-ako se pojavi duplo sorry)
Sada kada sam uspješno savladala označavanje više točaka i array istih (ludnica!), zapitala sam se kako bih mogla napraviti array od prethodno arrayanog?
Da pojasnim: nakon što sam označila svoju ''rupu'' arrayala sam ju 4 puta za neki mali kut (dobila sam grupu od 4 rupe). Sada bih htjela tu grupu arrayati 30 puta unutar 360 stupnjeva...
Kako bi taj problem mogla najjednostavnije riještiti? Ima li A-CAD neku vrstu nestinga istih naredbi koje bih zadala preko (command....)?
Pokušala sam s
(command "_array" ("_array" ...) ....)
Što naravno nije uspjelo.
juras 02-10-2009 11:04
Nakon što napraviš array nekog predmeta dobiš grupu. Isto tako napraviš više grupa te grupe. Array, označiš centar rotacije, zatim predmete i oni će se rotirati oko zadane točke.
JackOfHearts 02-10-2009 14:34
pogledaj ovaj dio koda, možda ti pomogne
Code:
(defun collect (el / ex ss)
(setq ex (entnext el)
ss (ssadd ex (ssadd)))
(setq ex (entnext ex))
(while ex
(setq ss (ssadd ex ss) ex (entnext ex))
)
ss
)
(setq last1 (entlast))
(command "-array" (ssget) "" "P" (getpoint) 3 180 "Y")
(setq ss1 (collect last1))
ss1 je selection set array-anih objekata
melanimax 02-10-2009 14:43
Morat ću o svemu malo razmisliti, tj. upiti... Javim se Smile
PS Problem i je kako odabrati arrayane predmete
JackOfHearts 02-10-2009 15:45
iskoristi ovu funkciju gore. Prije nego šta radiš array, napiši (setq last1 (entlast)), pozovi array i nakog toga pozoveš funkciju collect koja ti izbaci selection set tvojih arrayaing elementa
melanimax 03-10-2009 20:14
probat cu u ponedjeljak... Wink
melanimax 05-10-2009 11:15
Ovako: program mi stane na naredbi:
Code:
(command "-array" (ssget) "" "P" (getpoint) 3 180 "Y" )
točnije na (ssget). A-CAD me traži da ručno izaberem što želim array-jati. Kada to učinim, ostatak programa se bez problema izvede...
Hmmm....
melanimax 05-10-2009 15:14
I GOT IT.... radi SAVRŠENO Smile Ako je nešto savršeno onda je to moj LISP Smile
Problem sam riješila (vi ste mi dali ideju) brojanjem... (običnim en-ten-tini)- tko bi rekao...
Prije nego što sam uopće išla crtati utor pa ga arrayati- posatvila sam :
(setq lastEnt (entlast))
(setq ssx (ssadd))
Nakon stvaranja prve grupe utora napravila sam ove naredbe:
Code:
(while (setq lastEnt (entnext lastEnt))
(ssadd lastEnt ss)
)
(setq Brojac 0)
(repeat (sslength ss)
(setq curEnt (ssname ss Brojac))
(setq curEnt ssx)
(setq Brojac (1+ Brojac))
)
(command "array" ssx "" "_P" "0,0" 2p 360 "Y"Wink
Jednostavno da jednostavnije ne može biti... Pfft
Službeno skačem po uredu i sve do doma... TNX U GUYS
