predcis
27.01.2009, 11:44
Dobry den,
prosil by som o radu s nasledujucim lispom.
Chcel som rozsirit funkcionalitu jedneho stiahnuteho programiku jednoduchym pridanim cyklu while
Lisp je o tom, ze vyberiem entity a tie sa nakopiruju a zrovnaju podla zadania.
Tu je povodny, fungujuci:
(defun c:alc (/ ss1)
(setq ss1 (ssget))
(command "_copy" ss1 "" "0,0" "0,0" "")
(command "align" ss1 "")
(while (> (getvar 'CmdActive) 0) (command pause))
(princ)
)
Jednoduchym pridanim cyklu som chcel dosiahnut viacnasobneho kopirovania a zarovnania. Avsak po 3 kopii sa acad zruti. Neviem pochopit preco mi vypisuje chybu vnorovania, ked prikazy copy a align sa ukoncia a ziadnu rekurziu tam niez nemam. Dakujem za radu. Upraveny kod je:
(defun c:alc()
(princ "\nVyber objekty: ")
(setq ss1 (ssget))
(while 1
(command "_copy" ss1 "" "0,0" "0,0")
(command "align" ss1 "")
(while
(> (getvar "CmdActive") 0)
(command pause)
)
)
(princ)
)
prosil by som o radu s nasledujucim lispom.
Chcel som rozsirit funkcionalitu jedneho stiahnuteho programiku jednoduchym pridanim cyklu while
Lisp je o tom, ze vyberiem entity a tie sa nakopiruju a zrovnaju podla zadania.
Tu je povodny, fungujuci:
(defun c:alc (/ ss1)
(setq ss1 (ssget))
(command "_copy" ss1 "" "0,0" "0,0" "")
(command "align" ss1 "")
(while (> (getvar 'CmdActive) 0) (command pause))
(princ)
)
Jednoduchym pridanim cyklu som chcel dosiahnut viacnasobneho kopirovania a zarovnania. Avsak po 3 kopii sa acad zruti. Neviem pochopit preco mi vypisuje chybu vnorovania, ked prikazy copy a align sa ukoncia a ziadnu rekurziu tam niez nemam. Dakujem za radu. Upraveny kod je:
(defun c:alc()
(princ "\nVyber objekty: ")
(setq ss1 (ssget))
(while 1
(command "_copy" ss1 "" "0,0" "0,0")
(command "align" ss1 "")
(while
(> (getvar "CmdActive") 0)
(command pause)
)
)
(princ)
)