Action:
|
Test whether the topology of a given edge is correct for it being a tolerant edge.
|
|
Filename:
|
intr/intr_scm/tmchk_scm.cxx
|
|
Syntax:
|
(tm-check:tm-bad-topology edge)
|
|
Arg Types:
|
tedge
|
tedge
|
|
Returns:
|
(tm-chk-info ...)
|
|
Errors:
|
Argument not an
EDGE.
|
|
Description:
|
Checks whether the given
EDGE is actually a
TEDGE; that it has geometry; that it has at least one
COEDGE; that all its
COEDGEs are actually
TCOEDGEs, and that all have geometry. If any of these tests fails, returns a list of one
tm-chk-info of derived type
tm-bad-topology (otherwise an empty list if all is fine). This error object points to the edge that was checked; if the problem actually involved one of the coedges then that coedge is pointed to also.
|
|
|
tedge is an argument of type
tedge for which the correctness of topology is tested.
|
|
Example:
|
; tm-check:tm-bad-topology
|
|
; Check for bad topology and return the information.
|
|
(define b (solid:block (position 0 0 0)
|
|
|
(position 10 10 10)))
|
|
;; b
|
|
(define errors (tm-check:tm-bad-topology
|
|
|
(car (entity:edges b))))
|
|
;; errors
|
|
; the EDGE was not a TEDGE
|