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
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
