一、LSP新增函数：% [+ X/ O8 y! ^( R! o
1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
* k4 V5 I) Y/ A4 X! w. J函数调用形式：
5 M) s3 j, d4 X' [/ t" f$ o(vlax-curve-getDistAtParam curve-obj param)
" L/ q# ~' ^1 t4 e, r0 {4 v r参数：
. b% u0 m. O7 U/ y* }9 W) Bcurve-obj 类型：Ads_name 意义：实体( y; {, f) T9 W, a
param 类型：正整数 意义：当前曲线的节点 ) Q* y6 n2 n. a
返回值：
1 f3 G& `0 Q% w( b/ x2 s) Z如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
1 f. z |$ j+ D/ l! z& R5 m+ R# C, F/ y' P; j2 W6 W
2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
" }7 ?7 ?" r" w6 Q) X% n' g函数调用形式：. @) \/ C# ?; k0 e# X1 I
(vlax-curve-getDistAtPoint curve-obj point)
. {* O# J/ }/ z+ G7 ?参数：: q) i" ~. ?" _ v- B% R
curve-obj 类型：Ads_name 意义：实体
- j6 h5 P2 a# R @Point 类型：Ads_point 意义：当前指定点
7 J6 [' v7 C) ]2 i8 o+ e返回值：8 e; P6 \; A" X1 x# V' L
如果成功返回从当前曲线的开始到指定点的长度，否则返回nil ( P, |! o' x2 W& {
) @4 ^: R, C/ d' c9 x, n' X8 d2 T
3、返回曲线最后节点数vlax-curve-getEndParam
( z2 J8 C. S+ B1 d* X& ?" R函数调用形式：
0 O- ?4 f, s9 G. v$ \! W8 V+ E(vlax-curve-getEndParam curve-obj)
- e5 E1 z, Z2 ` l4 X参数：
# l- [2 z" W$ E" z: n- Scurve-obj 类型：Ads_name 意义：实体$ w- Y- B$ Y; k2 Y
返回值：8 A/ Y: V- T, ]) J8 a: N
如果成功返回当前曲线的最后节点数，否则返回nil + d& R; E, K$ ?' s) q# X/ b# T* x
9 N3 B3 X$ d5 i. E' R: o7 V# y* Z
4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
/ R- {9 R# n7 q' e# Z8 M( U$ y函数调用形式：
2 I$ Z. j! `) ], j9 z# C5 M(vlax-curve-getEndParam curve-obj) : [6 V! R k4 W& Z8 N) T
参数：
- b# {* r, t1 N7 l# ]8 ^0 Y5 Qcurve-obj 类型：Ads_name 意义：实体
* C r" S1 y# k/ U8 p返回值：
$ M, P1 B2 O7 A& ]如果成功返回当前曲线的最后节点值，否则返回nil
! A a4 i. a7 j, d. c" e$ e9 [ L$ m, Z% h7 m
5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
4 w" y) w! e9 f, Q) K( O/ b函数调用形式：5 T% t5 S1 P! U8 J% Z# n
(vlax-curve-getParamAtDist curve-obj dist) - j% Q7 Y6 Y! g6 x; z0 y) S9 u" ^, @- l
参数：5 o* h& W2 H2 w3 O$ q- a/ g
curve-obj 类型：Ads_name 意义：实体% K) c- s/ E E$ [: s) e
dist 类型：ads_real 意义：指定从曲线端点距离
% Q: o. i/ n) |1 ^返回值：/ n/ Q! G6 K3 |" R1 B% I
如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil
- o# A6 \# O- O6 i! ]- J( I t
6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint( _, u/ t; B5 N& d8 {$ m0 B
函数调用形式：
' F+ V8 M( V2 h' {1 r(vlax-curve-getParamAtPoint curve-obj point)
, @3 U. x8 T. _8 Y8 p9 q& Y参数：
6 f- e) M; }9 B' Rcurve-obj 类型：Ads_name 意义：实体
0 p2 ~/ b; Y9 G, t; a' @1 ? Ypoint 类型：ads_point 意义：指定曲线点
7 ]) ?" O2 H: ^4 A返回值：9 R9 {! V; O& |1 G1 x- {2 A
如果成功根据指定曲线点返回曲线上节点参数，否则返回nil * D1 J) I3 ^% p" f4 Y7 D
1 W% ^! c' B2 u6 G9 _* E6 t% N: C* E
7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist0 e2 {9 _3 R I' A4 }% d5 L, p
函数调用形式：7 a$ _, C! Q5 h. a
(vlax-curve-getPointAtDist curve-obj dist) 3 B, S. w. r! g& p
参数：
- T: B. W( q, h0 x1 v7 V8 q; Dcurve-obj 类型：Ads_name 意义：实体
$ F/ A7 \, H3 k6 U# wdist 类型：ads_real 意义：指定从曲线端点距离
$ ^, K: P y* l返回值：3 s7 M( ]- X* x6 @ }% H; F
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
5 G: V! t' e! }! ~
6 B( v7 s* V( B- H! H8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
Z: L7 ~- D2 `8 G. Y2 D) P函数调用形式：3 @4 G `; a" ?: V1 o* F+ O
(vlax-curve-getPointAtParam curve-obj param)
4 \* f) T& f5 U参数：8 b9 h' o/ b# K* J/ M9 g# m
curve-obj 类型：Ads_name 意义：实体3 y+ n! F! g' Z
param 类型：正整数 意义：当前曲线的节点 9 {2 D6 ^& ]+ q; N5 p
返回值：" Z8 k, E# e) x$ E' z: y
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil 4 s- m, J1 a1 Q1 N- Q& u0 S/ k' u
3 K* W; D4 g; S3 V3 L9、返回曲线起始节点参数vlax-curve-getStartParam7 V! a, @7 k6 U- m, j6 T+ ?
函数调用形式：2 n7 T; K& k s8 F
(vlax-curve-getStartParam curve-obj)
: m; `+ v8 [, W- B9 i/ {4 W8 L0 Y参数：* H) V. e4 p; H+ I
curve-obj 类型：Ads_name 意义：实体/ X: [$ r! R; k( D9 q6 P
返回值：0 L: ]: J3 | n9 C' [
如果成功返回当前曲线的起始节点参数，否则返回nil
* A5 m: G' W: N. V( P
, U( k0 a/ D+ H& b: l; P$ Y% n10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
2 F" o7 [' ?5 I- F. A3 f [函数调用形式：
" u9 I$ v! u1 v* e" Q$ c(vlax-curve-getStartParam curve-obj) 1 a4 W7 l q# R# A& v' e- k
参数：
! K& l2 K$ B+ d5 Z& j! _curve-obj 类型：Ads_name 意义：实体
& F+ w- v. d6 u% j返回值：
! t# {: u7 j" b, j" [如果成功返回当前曲线的起始节点值，否则返回nil 1 a$ E' g$ f) j* x& I
0 l- Q5 \$ W+ i! i7 t! C8 F+ N( f. K5 S5 S" P4 o' \/ T, D
二、VBA新增对象
) Y( V" p1 j) e% ?1、IIcadPlotConfiguration对象
; u3 J; [8 W3 K# D3 v, A属性： ^2 T/ a+ `$ U* E" c/ Y
Name：String 指定的对象名称3 D) J# U5 p3 `, X. T0 K! `
CanonicalMediaName：String 指定的规格纸张名称, X) |1 j5 N% R
CenterPlot：BOOL 指定的居中方式
& x9 A, Y' T( C$ J* D% ~ConfigName：String 绘图区配置名称( H3 O1 P2 B9 V
PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位7 ?) p" r* z/ ~
PlotHidden：BOOL 绘图过程中对象是否隐藏+ s8 A6 o3 k- r7 G2 B
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
7 p- ^' l4 w7 Q7 i2 S7 XPlotRotation IcPlotRotation 版面或绘图区配置的旋转角
3 h( [. |' H: w* P+ x' ~% \6 H" yPlotType IcPlotType 版面或绘图区配置的类型# M A- \: j5 J7 K: C- k! _8 A; M6 G
PlotViewportBorders BOOL 是否绘制视口边界- }) X& d; V' B4 U: ?% @* D1 N
PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口. {% u# ^& I6 ~0 [: ^/ s. Y& I
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
( L9 L6 A) U0 @& A8 kPlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
- y9 G* p3 t" A) p- I, Y7 d6 \ScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
7 \* \7 L" A+ n, IShowPlotStyles BOOL 是否将绘制类型应用倒绘图8 I- ~7 V3 K( w4 F
StandardScale IcPlotScale 版面或绘制配置的标准缩放
( L4 K0 f; u0 I) y! z1 nStyleSheet String 版面或绘制配置的类型单0 B; D7 F, L1 {/ z2 s7 K
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放1 r: w h, o1 q& I2 R3 l
ViewToPlot String 绘图区的视图名称; O/ i4 g* b2 c x. U
方法：
7 D/ r3 k' ~3 S$ x: Z& |取得绘图区视图的大小
* D( D3 e! }1 @2 s! j% q6 L3 S* \HRESULT GetPaperSize([out] double* Width, [out] double* Height);! n/ g& @: F2 f7 o+ z( V$ M
9 a7 Q( Q3 Y9 m: a. N! {- ^取得绘图区版面窗口坐标
. g0 B3 Q% e6 ]; THRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
5 u1 u% u p( |0 |# s
; G M8 F1 ^+ m' P5 r. X设置绘图区版面窗口坐标( T+ n- T; V+ L+ A
HRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);0 A% @; c" P4 g) W3 ~/ B
7 `, w6 _% }) R" A设置自定义缩放值
& X5 ^+ V3 h! I1 O) [6 \HRESULT SetCustomScale([in] double Numerator, [in] double Denominator);
# b0 A% R& ~" b: }# A4 k
. ?( M+ w+ V7 Z1 Y: X; T4 p取得自定义缩放值
& W! E2 ?. A* D- bHRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);! m6 {/ E$ G% T& R) g; s
4 o; |7 t) r2 ~/ Z& i取得所有可用绘制驱动名称
. D5 k% n* p6 uHRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);) P4 p1 a, r! b5 A* Z" X
! L$ s( U, @ Z+ B7 k
取得所有可用绘制类型表名称2 `7 H* S& i1 M
HRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);
# S/ w& Z7 Z; K3 ^1 Y- r" @4 L0 W( G S7 M8 \! g. w, m. i9 a
取得图纸边界外空白区大小
" I0 @- J2 Y3 L, {HRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
: w' M8 u1 k% E! U' [9 M$ p% L/ x* x G1 [
复制指定的绘制配置. `9 N, ~2 ]9 A& y# U2 Q5 _+ g
HRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);
0 W9 s; I3 ?* g6 n, m, S- d7 ^" J9 O& ?! x. D% X0 v
取得指定的绘制驱动的所有可用规范设备名称
5 o& t9 J" R$ \$ T2 uHRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);
) D5 N% c; b4 U& X9 a
4 w1 G; A4 e7 _, f取得本地规范设备名称的版本
0 l0 s; c/ O' C8 p8 BHRESULT GetLocaleMediaName([out, retval] BSTR* pName);
) O1 \( }) ]/ F ^
& D/ a4 p% c# u9 c7 X* L更新当前系统状态的绘制、规范设备、和绘制类型表信息5 D, J( T& ?6 R c) _
HRESULT RefreshPlotDeviceInfo();7 u. {& f. k/ L1 v# K& I
. O- o7 y2 J& T% e' p0 [绘制配置是仅应用到模型空间还是所有版面
/ o; e4 D. w. \1 {! mHRESULT ModelType([out, retval] VARIANT_BOOL* pVal);
7 W& y( o5 d8 o; p% k# }( R" m
2 S1 e7 Y2 Q+ i3 }% y# ~2、 IIcadPlotConfigurations 对象3 v6 w4 O4 q4 x' I; A+ L
属性：) i" o8 B b- ?# \; i' [+ c
Application IIcadApplication 取得应用程序对象" W' k1 U! D, Q6 u. E( Y7 M" p/ ^
Count long 取得包含条目数' X8 j S8 r. C5 e+ @
Parent IIcadDocument 取得父文档对象* ~3 A% A9 V0 ^' _7 m
方法：2 d+ o' b) w2 P4 v
增加一个新的绘制配置. C" ~5 D2 c8 T' e! U/ p6 n
HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem); u# d0 I8 t% n) q1 t; q
. r! P/ m6 i, _取得指定的绘制配置+ K: q/ f( Y* P5 g. |3 l
HRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);* e" T& W1 U) s8 V
" [* V5 X* s6 O0 I/ C ]$ \3、IIcadLayout8 I% Y) ^0 ]+ z) G8 E7 `5 H
属性：
$ n9 z) q$ X+ D' ?Block IIcadBlock 取得版面的联合块5 E* R7 O1 E" P! y u2 x; `
TabOrder long 版面的tab顺序2 z7 E9 i: [0 U* S8 d* H G# @
6 }; i8 ]0 Z I1 Z$ m! g
4、IIcadLayouts 对象
* v& P6 Q+ C+ O# w" N# V/ N) H属性：& t" B- P- Q: {
Application IIcadApplication取得应用程序对象
+ s5 X a2 r8 D. H0 _Coun long取得包含条目数
8 V) L# I9 X$ ^; ~% s3 [6 w0 Q2 pParent IIcadDocument 取得父文档对象
- r4 k) [, u2 E! H方法：
4 U- d; G, i' R" J# q3 v/ T& j+ P2 }增加一个新的版面" G3 @' @, G2 `' c% m
HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);9 {- t J% W" b' p$ @
0 M p" [1 \7 S6 C( T H+ a6 c取得指定的版面
' d% W% N- E. S- CHRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);
" @ @3 ?; U: S5 h& {# O8 c7 N; H, h ?5 D+ `3 f# a3 X
5、IIcadXRecord对象9 t, J {9 `$ [. u h$ ^
属性：- J0 H+ w: F7 A7 n9 O- K
Name：String 指定的对象名称
- O9 z0 L+ r; K8 B" t, OTranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
* j! y8 v/ X0 n) x方法：6 j8 M) ]3 k6 ]
取得联合字典的扩展数据! h5 L+ c7 l+ D. x2 a
HRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);; K! ~! Q9 ?( Q3 A
: ]5 D$ E; b0 q
设置联合字典的扩展数据5 H& D$ y4 b0 L3 P4 M, j7 c
HRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);
+ l0 S8 i, b2 m
% ]- T6 `$ Q$ \" C# K0 \) Y0 l6、IIcadDictionary对象8 z) C2 c& L/ P1 Z; V
属性
: J! K2 P9 }- m5 |# C) `Name：String 指定的对象名称
+ S5 h0 I# S9 b! m5 c方法：
) c- r; z Y# @1 _6 \为命名字典增加一个对象9 P3 L+ b8 T8 b/ D: B* \
HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?, b8 c$ { h8 M2 f3 s' u
( G7 U3 J& w% O) W取得字典中对象名称（关键字）! b* @! [4 u" f3 r
HRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);
# v. W& W' o$ U" b" C; F: j: ]! H) l+ M
根据指定对象名称（关键字）返回对象
! q7 G2 y* d% ]$ U! s1 }, {HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);
) l- e( | f9 S
# g0 m" i/ `5 x3 E根据指定对象名称（关键字）从字典中删除对象
- _! a! P* B. BHRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);
4 h2 M" x" V& V& {7 n6 j% a1 {& W+ G( z
重命名字典中条目名称1 N* o1 r3 }. K' w
HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);
8 w) B. i4 W( c4 o* f/ ]! i; }4 T1 X* `$ U2 y3 n- P* N
根据指定对象名称（关键字）从字典中替换对象3 J9 C0 q# ^3 @* k
HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);
0 A l8 W& F% d% i9 w) J
) H+ _. ]1 `+ z5 Z, s; r根据索引取得字典中对象
: J) q' @$ B% jHRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);
9 c- D2 a7 K+ e+ Y
) K; F- F2 H: K3 Y取得字典条目数
$ o" I B1 y9 U+ X3 s& s$ B4 ZHRESULT Count([out, retval] long* pVal);
. E- o7 V4 t- ~9 v' X- Z6 |# E+ _; p1 T6 M
在字典中增加扩展数据
9 U0 w3 l/ ]+ `2 @HRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);0 N$ s- V- Q' }" q4 D
6 T( N# \- r/ H ~, b7 ^4 Y
7、IIcadDictionaries 对象
4 F) {6 H3 ^5 T" u5 e属性：( _9 W1 l7 |: y) {, w ~
Application IIcadApplication取得应用程序对象1 Z$ O, r, @/ a& S+ e
Coun long取得包含条目数
, U, A7 d6 X9 r. pParent IIcadDocument 取得父文档对象- C6 i v. X4 K( e
方法
6 e7 L; W' t, [0 w) i: ?增加一个新的字典
V% y0 P/ O* d+ { i% P7 D, AHRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);, W7 l: h; G7 p6 g: ^
; w/ y# y5 ~. v; w" N* m( O
取得指定的字典7 @: l" W% j& Q5 n' M# P4 O
HRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);6 v) J! S% S" f. l8 l
3 x6 x$ O X+ g! N. y4 j7 P+ o. Z
8、IIcadGroup对象0 w, `" D G0 w# |& q) k7 [8 X \
属性：
; P# Y; I; e, gName：String 指定的对象名称( b6 M; Y. M7 t6 n5 J
方法：% ~# R& l5 d5 q
根据指定索引取得组中实体对象7 |' B( b ?8 R' D: _% f& J
HRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);
" { ^% H+ q$ L# g# H; |) k1 g( K p# s: G$ E; _. L" U
取得组中实体数 Q: S2 v9 W' I6 @% |
HRESULT Count([out, retval] long* pVal);
0 C. G' @3 ?( c/ o5 n% E; |
4 u" i, ~( {+ `' ^1 S所在图层
' z, E8 I. c- g0 c' OHRESULT Layer([in] BSTR layer);
1 r! ?6 L1 y( o) @4 c7 A3 B) P2 ]: T4 b2 {' J P
实体线型0 u# g7 E. O1 d. X& L8 X: H& A
HRESULT Linetype([in] BSTR linetype);' ]( A1 F4 D8 z2 e' I8 V$ g+ [) r
2 P; p& D& D4 V! Y: i9 \( m7 v z
实体线型缩放比例4 q& z z* k0 ~5 P
HRESULT LinetypeScale([in] double linetypeScale);
3 n4 M/ X2 i0 V0 O2 T9 ]4 ?( _
4 S, Q2 C: E3 i5 `) v6 D对象或应用程序的可见性
- X3 ^9 y3 E# ~2 _. }2 I7 eHRESULT Visible([in] VARIANT_BOOL isVisible);3 s& k& w' Z% \
0 e$ V7 S! |9 `2 Z8 E) N设置取得对象或选择集的高亮状态5 M4 k3 o; Y d3 t# a
HRESULT Highlight([in] VARIANT_BOOL HighlightFlag);% T9 |/ A5 ~ ^9 b
: \; Y' G5 ~& T3 _. d+ E实体的绘制类型名称# J1 P" p* i6 a) {# E/ d3 o5 i( n. [
HRESULT PlotStyleName([in] BSTR plotStyleName);
6 y0 E4 D7 L$ D) J* T) m" i- S+ }# m* }( X# q) b
指定个别实体或缺省线宽. \) t/ E& J- j3 O. F# q
HRESULT Lineweight([in] IcLineWeight lineWeight );3 U* A- A2 U* E+ }6 Z& t
/ B6 `$ x' a7 g5 D9 [
增加一个或多个实体倒组中
3 v4 ?. D+ t0 @% b! ~2 bHRESULT AppendItems([in] VARIANT Objects);
* S: X7 V: f( F( ^% v9 s# E
: ~ i! q/ z# B从组中删除指定条目
- A b, B3 R k0 b& ?# [HRESULT RemoveItems([in] VARIANT Objects);) b3 x8 f. p) K+ p A- x& [- w
/ E. g. S3 H/ N+ A0 \& W更新对象到视图) l! l- x! h6 | }% K' j
HRESULT Update();
5 w Z- R. Y( [8 y. F+ X8 V# W; t+ X3 w# s8 Y: I/ Z
指定实体或层颜色
) u$ j, w! l) |HRESULT Color([in] Colors color);6 q4 ~* U# G, X- G6 i& ]) _$ [4 [% K
4 M3 A. H- C: r m5 g2 w% M3 P9、IIcadGroups对象0 ~$ Q0 h7 C3 ]; t( _
属性：
6 o$ [% u7 B2 H( iApplication IIcadApplication取得应用程序对象
3 W" d b+ ]* M& `Coun long取得包含条目数8 ~1 ?% S/ U0 U! H& R/ M
Parent IIcadDocument 取得父文档对象+ N1 ] F) }, T, |) b+ [/ x
方法
1 p0 p$ v( Z8 G# R; f1 v. r! P4 n, m增加一个新组
5 [ g. J' K0 U1 C# b4 JHRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);6 w# X, M2 r! ~) f x' x7 [
! z3 @3 X9 c# b9 N9 `4 K/ s取得指定的组1 \1 m1 `* ?8 [% w3 x3 t
HRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem); |
发表于 2009-4-30 10:52