slinterface:build-body

List of:	Scheme Extensions
Subjects:	Skinning and Lofting
Contents:	Advanced Surfacing

Action:

Builds the lofting/skinning body.

Filename:

skin/skin_scm/skin_scm.cxx

APIs:

api_build_body_sli

Syntax:

(slinterface:build-body interface [acis-opts])

Arg Types:

interface

SLInterface

acis-opts

acis-options

Returns:

body

Description:

Builds the lofting/skinning body. It should be called after the temporary lofting/skinning profiles have been aligned, twist minimized, broken up and the guide and mapping curves have been added. It returns a body, however the user may roll back and make any changes desired to the previous steps and build the body again.

interface is of SLInterface datatype that is a data structure used to control skinning and lofting operations.

acis-opts contains versioning and journaling information.

Example:

; slinterface:build-body

; Build the wire bodies to be skinned.

(define wire-0 (wire-body (list

(edge:linear (position 0 0 0)

(position 50 0 0))

(edge:linear (position 50 0 0)

(position 50 50 0))

(edge:linear (position 50 50 0)

(position 0 50 0))

(edge:linear (position 0 50 0)

(position 0 0 0)))))

;; wire-0

(define wire-1 (wire-body (list

(edge:linear (position 0 0 100)

(position 50 0 100))

(edge:linear (position 50 0 100)

(position 50 50 100))

(edge:linear (position 50 50 100)

(position 0 50 100))

(edge:linear (position 0 50 100)

(position 0 0 100)))))

;; wire-1

(define myWires (list wire-0 wire-1))

;; myWires

; Build the skinning interface.

(define myInterface

(slinterface:skinning myWires))

;; myInterface

(define skinningWires

(slinterface:wires myInterface))

;; skinningWires

; Align, minimize twist and breakup the wires.

(slinterface:align-wires myInterface)

;; #t

(slinterface:minimizetwist-wires myInterface)

;; #t

(slinterface:breakup-wires myInterface)

;; #t

; Build the body and delete the interface.

(define myBody (slinterface:build-body myInterface))

;; myBody

(slinterface:delete-interface myInterface)

;; #t

; Zoom to see the whole model.

(define zoom (zoom-all))

;; zoom

PDF/SKIN/03SCSLI.PDF
HTM/DATA/SKIN/SKIN/03SCSLI/0004.HTM