This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# TCL proc to delete all entities from GiD. | |
# It was taken from GiD Forums. | |
# Restarts the entities counter to 1. | |
proc DeleteEntities { } { | |
GidUtils::DisableGraphics | |
foreach type { volume surface line point } { | |
GiD_Geometry delete $type 1:end | |
} | |
GidUtils::EnableGraphics |