|
4#
楼主 |
发表于 2016-11-14 09:07
|
只看该作者
, i& G3 Q3 \! O- Mset lSession $:boSession_s_pDboSession! P: i' C, Q% J* n( n
if { [catch {set lDesign [GetActivePMDesign] }] } {
3 D0 b. z$ r/ p' g9 k6 h9 ` puts "ERROR : $::errorInfo"
( L* e% i& m) l$ e/ @* c }4 T' n# \4 t5 w- u- w
catch{
/ A# h. r1 K# K) t& R set lDesignName [DboTclHelper_sMakeCString]: a: ~+ b, E! J
$lDesign GetName $lDesignName7 I% O/ ^" `' w: D! F" B' O, z h1 I
set lFilePath [DboTclHelper_sGetConstCharPtr $lDesignName]$ F" n F. M& v" |
return $lFilePath8 C7 n; }: i! F0 ~9 F, A& Y! t
}
4 g% O! P* P" m; f$ w$ Z' M& b1 F2 } I) ]
$ E' I) R z* @" v
- H( I: F! C* s7 L
写在proc里面,引用package require DboTclWriteBasic 16.3.0
& ]6 w. `+ b b1 W2 y( Q1 F# b, r1 \* H+ t
filepath就是全路径名字5 H4 [6 y0 j' H; E/ v6 P
) W. T. d$ Z7 e
|
|