|
Action:
|
Updates all tedges or tcoedges tolerance.
|
|
|
Filename:
|
cstr/cstr_scm/tmod_scm.cxx
|
|
|
APIs:
|
api_get_tedges, api_get_tvertices
|
|
|
Syntax:
|
(tolerant:update entity)
|
|
|
Arg Types:
|
entity
|
entity
|
|
|
Returns:
|
boolean
|
|
|
entity is an input entity.
|
|
|
Example:
|
; tolerant:update
|
|
; create topology to illustrate this command.
|
|
(define block1 (solid:block
|
|
(position 0 0 0) (position 50 50 50)))
|
|
;; block1
|
|
(tolerant:fix (entity:edges block1))
|
|
;; (#[entity 15 1] #[entity 16 1] #[entity 17 1]
|
|
;; #[entity 18 1] #[entity 19 1] #[entity 20 1]
|
|
;; #[entity 21 1] #[entity 22 1] #[entity 23 1]
|
|
;; #[entity 24 1] #[entity 25 1] #[entity 26 1])
|
|
; Check for tolerant topology
|
|
(tolerant? (car (entity:edges block1)))
|
|
;; #t
|
|
(tolerant:update (entity:tedges block1))
|
|
;; (#[entity 27 1] #[entity 28 1] #[entity 29 1]
|
|
;; #[entity 30 1] #[entity 31 1] #[entity 32 1]
|
|
;; #[entity 33 1] #[entity 34 1] #[entity 35 1]
|
|
;; #[entity 36 1] #[entity 37 1] #[entity 38 1])
|
|
; Check for tolerant topology
|
|
(tolerant? (car (entity:edges block1)))
|
|
;; #f
|