ACIS培训
练习:CMN-02.scm ;CMN-02 (view:dl) (iso) (define p1(position 0 0 0)) (do ((i 0(+ i 10))) ((>= i 100)) (begin (position:set-x! p1 i) (solid:sphere p1 5) ) ) (iso) (zoom-all)
ACIS培训
练习:CMN-02.scm ;CMN-02 (view:dl) (iso) (define p1(position 0 0 0)) (do ((i 0(+ i 10))) ((>= i 100)) (begin (position:set-x! p1 i) (solid:sphere p1 5) ) ) (iso) (zoom-all)