|
4#

楼主 |
发表于 2016-11-14 09:07
|
只看该作者
0 l3 H8 |) _0 A. C# R, o
set lSession $: boSession_s_pDboSession
! s& {, i/ E4 A& E5 Q# J if { [catch {set lDesign [GetActivePMDesign] }] } {
( }, C2 c) W+ v, R- t puts "ERROR : $::errorInfo"* w0 l0 ]/ W+ \, f8 e! d0 n
}
2 n$ n% a' `# z g: R catch{
3 H: R# s# M( D: f I set lDesignName [DboTclHelper_sMakeCString]; S$ b( i; l4 S6 h2 G' K
$lDesign GetName $lDesignName
& X( O0 E" G2 q9 n7 j/ u set lFilePath [DboTclHelper_sGetConstCharPtr $lDesignName]; w2 i" G$ q+ Q- a3 S4 L1 W: h
return $lFilePath
2 M/ _2 Z; r) \2 U9 i; g }# M V9 S7 T2 Z; N4 M1 A7 Z
( E* }2 P' e/ E9 J5 z1 U1 u
' \9 X3 Y3 J; b- j0 V0 P+ T( R4 ^
写在proc里面,引用package require DboTclWriteBasic 16.3.0
% j3 i: f/ C7 E& h! l' v& g" ]- \+ }: |& J n4 }
filepath就是全路径名字
* t) h) H! D' Q6 h' ]3 U2 S0 ]6 h$ p! M3 f' Q
|
|