|
4#

楼主 |
发表于 2016-11-14 09:07
|
只看该作者
" I/ H5 w$ O$ L6 L& Q: F* q1 g& }set lSession $: boSession_s_pDboSession
- `. U; n+ S. q; j7 ]; D) p6 T if { [catch {set lDesign [GetActivePMDesign] }] } {
) W" ?3 h# p; n- E puts "ERROR : $::errorInfo"
0 z& U2 B+ f: \9 ~- K9 w }
/ {- @. O: ?$ T) w2 d6 ~2 Q; t catch{
x, w) o& ?; W; {" @3 @& R set lDesignName [DboTclHelper_sMakeCString]" ?, `2 c) H" ?+ { H; M" K* n- B
$lDesign GetName $lDesignName
/ x+ g$ Z3 [+ Z' j/ G; U! M set lFilePath [DboTclHelper_sGetConstCharPtr $lDesignName]
/ q g5 K% L+ J0 E) u% i return $lFilePath4 T4 @( H. m) d8 r Y8 h
}! K/ i2 F6 t# S& @
6 `* I: W) L- k$ G* Y
/ }4 I' P" o$ n
$ c* R7 x$ y" P' ~, @写在proc里面,引用package require DboTclWriteBasic 16.3.0( M# r# h7 `* L& |0 Z% _
/ O1 j) t8 r% G
filepath就是全路径名字8 {, _" A/ E5 W8 a
9 U1 P7 x+ j: K& @+ ~# [! y
|
|