ACIS培训
练习：CMN-03.scm ;CMN-03 (view:dl) (iso) (define blk(solid:block(position -25 -25 -25) (position 25 25 25))) (zoom-all) (define edg(pick-edge)) (define p1(curve:start-pos edg)) (define p2(curve:end-pos edg)) (define rad(/ (curve:length edg) 2)) (defien cyl(solid:cylinder p1 p2 rad)) (zoom-all)