Revision: 37500 http://brlcad.svn.sourceforge.net/brlcad/?rev=37500&view=rev Author: bob1961 Date: 2010-01-29 22:57:23 +0000 (Fri, 29 Jan 2010)
Log Message: ----------- Added a method for dbot_dump. Modified Paths: -------------- brlcad/trunk/src/tclscripts/lib/Ged.tcl Modified: brlcad/trunk/src/tclscripts/lib/Ged.tcl =================================================================== --- brlcad/trunk/src/tclscripts/lib/Ged.tcl 2010-01-29 22:56:25 UTC (rev 37499) +++ brlcad/trunk/src/tclscripts/lib/Ged.tcl 2010-01-29 22:57:23 UTC (rev 37500) @@ -156,6 +156,7 @@ method dbconcat {args} method dbfind {args} method dbip {args} + method dbot_dump {args} method decompose {args} method delay {args} method dir2ae {args} @@ -1106,6 +1107,10 @@ eval $mGed dbip $args } +::itcl::body cadwidgets::Ged::dbot_dump {args} { + eval $mGed dbot_dump $args +} + ::itcl::body cadwidgets::Ged::decompose {args} { eval $mGed decompose $args } @@ -3129,14 +3134,14 @@ return $partitions } - set partition [lindex $partitions 0] - if {$_pflag} { return $partitions } # mMouseRayCallbacks is not currently active if {[llength $mMouseRayCallbacks] == 0} { + set partition [lindex $partitions 0] + if {$partition == {}} { tk_messageBox -message "Nothing hit" } else { @@ -3777,6 +3782,7 @@ $help add dbconcat {{file [prefix]} {concatenate 'file' onto end of present database. Run 'dup file' first.}} $help add dbfind {{[-s] <objects>} {find all references to objects}} $help add dbip {{} {get dbip}} + $help add dbot_dump {{[-b] [-m directory] [-o file] [-t dxf|obj|sat|stl] [-u units] \n} {dump the displayed bots}} $help add decompose {{nmg_solid [prefix]} {decompose nmg_solid into maximally connected shells}} $help add delay {{sec usec} {delay processing for the specified amount of time}} $help add dir2ae {{az el} {returns a direction vector given the azimuth and elevation}} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ------------------------------------------------------------------------------ The Planet: dedicated and managed hosting, cloud storage, colocation Stay online with enterprise data centers and the best network in the business Choose flexible plans and management services without long-term contracts Personal 24x7 support from experience hosting pros just a phone call away. http://p.sf.net/sfu/theplanet-com _______________________________________________ BRL-CAD Source Commits mailing list brlcad-commits@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/brlcad-commits