|
|
浩辰ICAD2008 - LSP新增函数及VBA新增对象介绍
9 a& T' b; T1 W# d3 ~- ^一、LSP新增函数：2 m0 @' L2 H; X9 I+ G9 ~: k
1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
! o( D i! M$ i# L- ~3 @9 T函数调用形式：9 C- m1 A- g- i% K
(vlax-curve-getDistAtParam curve-obj param) ) Y7 d7 A+ o4 E1 H; L
参数：$ C4 Z, X5 i; o6 ~) B
curve-obj 类型：Ads_name 意义：实体0 Z& d- n$ }/ {' n% H9 z6 D3 L+ ~
param 类型：正整数 意义：当前曲线的节点 / Z. W# H; c' h/ R* k
返回值：
( M; `! v* L/ n# r1 l. H0 @如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
. Z7 V2 K; x- o8 \6 d' `0 W% p% H& A2 \ b
2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint0 c, r. p% t4 B, z4 ] i# [, U
函数调用形式：5 f# U/ h, n3 z# E
(vlax-curve-getDistAtPoint curve-obj point)
4 O$ N9 q+ a( }% r2 |参数：; b+ v; s+ ~6 _4 w, Q
curve-obj 类型：Ads_name 意义：实体: g( c8 m! `5 s& s3 a, g
Point 类型：Ads_point 意义：当前指定点! ^; j; R0 _" y7 v3 T0 g; X
返回值：1 L4 I: L0 ` @9 j( f! ~% c
如果成功返回从当前曲线的开始到指定点的长度，否则返回nil
! }- t2 x" q9 q3 r2 _/ ]: m) |; t! y
B* }" k6 L2 C0 @3、返回曲线最后节点数vlax-curve-getEndParam
. q; k3 G R- W函数调用形式：
" c" d& n: C2 {8 `: l0 K6 A8 E) t0 E(vlax-curve-getEndParam curve-obj)
9 h( S$ q+ a9 Y& D- g/ K) X参数：
" e Z0 z: p1 B( ^curve-obj 类型：Ads_name 意义：实体; J3 P% G0 C8 [* ^
返回值：5 E( U A5 Z, r0 Q3 f
如果成功返回当前曲线的最后节点数，否则返回nil
7 P( K( ?7 T+ [( G% W* @
7 W. P+ v- a( u; j! M. K4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint& g- |' W+ H( p1 y, y: }
函数调用形式：- j* W! v- U: M: F
(vlax-curve-getEndParam curve-obj) ) W+ ] z- x' V# d, p1 Q6 l: Q
参数：
- P% [, V0 V o) u- ?7 Rcurve-obj 类型：Ads_name 意义：实体' R& G4 I5 ]4 I! D# ]
返回值： h0 {( f; @6 c& e& @. p
如果成功返回当前曲线的最后节点值，否则返回nil
$ N4 L" \, e; q7 P, ?& _2 u2 c( D& }6 b
5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
# c5 N4 l% C8 j& l3 S1 W0 v函数调用形式：
% A4 A) t, L9 ], }) n+ F ](vlax-curve-getParamAtDist curve-obj dist) 5 {/ ] b$ |! m
参数：) Q' D$ @+ V A0 Q
curve-obj 类型：Ads_name 意义：实体
; i1 K& G0 w6 h0 A3 r9 {dist 类型：ads_real 意义：指定从曲线端点距离
; C A/ ?8 ^: u! ^* }! d! H返回值：
; s E/ U* b% v2 f T如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil 3 P* z' r/ F# u$ }7 S: i& g
% w3 R4 g8 R6 g; E1 C
6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint L! _( U; F0 ~) ~6 e% F
函数调用形式：
0 T1 L$ G' }5 J6 N(vlax-curve-getParamAtPoint curve-obj point) - X# b# F! r1 k5 D( q
参数：
A# w/ C. i3 Dcurve-obj 类型：Ads_name 意义：实体
# W% K, N& F3 Q) p5 ^& [point 类型：ads_point 意义：指定曲线点' n6 T7 c5 a5 J) i
返回值：
% z9 i2 b9 X% G4 [如果成功根据指定曲线点返回曲线上节点参数，否则返回nil K/ K& K0 k* U0 E
9 l% }9 B/ K9 r) w
7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist9 g5 Y5 D) V! S9 ~
函数调用形式：
$ l4 \- a/ X4 o: f& @! g+ w6 |" D& F(vlax-curve-getPointAtDist curve-obj dist) L, f( M! C9 i" o0 ^
参数：
% m/ I. X; N/ Z V6 V0 v- k9 ccurve-obj 类型：Ads_name 意义：实体
) O) S# Z& t$ k- ?5 W5 J6 k; Bdist 类型：ads_real 意义：指定从曲线端点距离
2 h0 z# T* r' @8 [% L2 N返回值：
1 a" k6 r" g5 ]" I1 j+ T; N: o4 l如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil 2 M/ h$ g+ T0 M& \5 y9 k7 B
' D6 X: @# g, K2 g6 M8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
) Q6 i1 A7 H$ F# z$ t5 {9 e函数调用形式：
g' Z- ?& v9 u(vlax-curve-getPointAtParam curve-obj param)
1 P' L$ z0 c, |, \参数：
- r4 r9 ]# h& W1 Z/ j8 Z. {curve-obj 类型：Ads_name 意义：实体
1 n2 Z4 n* \" C3 z: oparam 类型：正整数 意义：当前曲线的节点 / D& u7 T0 z' Q* M7 o# d
返回值：1 g# w N! \. T% L
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil 2 d3 n! j7 |* f1 x+ M' l
0 }! V. \& z+ f, s( D' q2 v. a9、返回曲线起始节点参数vlax-curve-getStartParam% e* |$ Y' O( g4 t0 ?1 c
函数调用形式：
% ?! {1 n5 y9 H- N0 A$ X(vlax-curve-getStartParam curve-obj)
3 O2 u' _" t/ A参数：3 q9 u/ S1 o$ J# r% j/ z! F% R
curve-obj 类型：Ads_name 意义：实体2 y1 g( o; ^. n9 V S
返回值：/ t7 ^& R) L% r# K& I
如果成功返回当前曲线的起始节点参数，否则返回nil 0 i* e# ]; _7 U) p7 V6 `
4 X# y0 A2 Y; E. Z
10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint$ w) e3 h4 Z5 p1 }5 ]
函数调用形式：
+ K8 Q; s5 v; X+ X(vlax-curve-getStartParam curve-obj)
5 }& H q; r J8 ], U- k3 l. D参数：" `$ Y7 y$ q* R x! D( e! e
curve-obj 类型：Ads_name 意义：实体! r: U( \$ j5 b. W
返回值：8 @) `& R# d2 s) O
如果成功返回当前曲线的起始节点值，否则返回nil
9 t& p! h/ b3 O7 t$ r8 }, }' i8 [
/ _8 ^# A9 ]) \2 W3 P
二、VBA新增对象. @9 {, `5 g8 V' z I* o" B
1、IIcadPlotConfiguration对象
1 V6 M* D" f" M属性：- }8 n e, U. x$ G
Name：String 指定的对象名称
3 z7 j% ]7 ^; aCanonicalMediaName：String 指定的规格纸张名称) N6 |0 e! o( l
CenterPlot：BOOL 指定的居中方式6 j7 e: L! _/ N' J
ConfigName：String 绘图区配置名称# W( Q( ?2 O9 S
PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位9 ?$ u# V6 `1 b
PlotHidden：BOOL 绘图过程中对象是否隐藏
: c8 W9 c; M, m: N2 }% mPlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
b4 R* g. I; Y N1 H+ ^% ZPlotRotation IcPlotRotation 版面或绘图区配置的旋转角
( o- y0 L; P# s& l0 u- [* cPlotType IcPlotType 版面或绘图区配置的类型
. z* r6 |$ E4 C }! V2 m% mPlotViewportBorders BOOL 是否绘制视口边界
4 J# z0 W; M$ z9 b% lPlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口1 Q1 l; U- {. D4 S
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
" `$ p* R& k% _6 V7 P" yPlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
$ O& d$ _( c+ A$ ^* x( [2 ]ScaleLineweights BOOL 当绘制版面时是否几何缩放线宽4 q4 ?$ }* |; P
ShowPlotStyles BOOL 是否将绘制类型应用倒绘图
; d! G7 b7 g, n% y* |: \, t5 s. HStandardScale IcPlotScale 版面或绘制配置的标准缩放
5 t8 ~, W$ j9 ?. h' Y% U8 hStyleSheet String 版面或绘制配置的类型单3 i& p% p# w% x
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放1 F0 {; | f7 ?6 c' n
ViewToPlot String 绘图区的视图名称 |9 v) r# J, F) U* ^
方法：
% Z# S: g' t- D; o S" b取得绘图区视图的大小4 [2 j2 d9 i- ?/ E
HRESULT GetPaperSize([out] double* Width, [out] double* Height);3 r B) P2 J, e) A. K
" x7 C) }) W& f8 a5 @
取得绘图区版面窗口坐标
+ |$ z7 P/ d) m: hHRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
# _8 w: {: J( _7 w# g8 Q
2 a/ }4 b, _8 f! P设置绘图区版面窗口坐标
9 g9 G5 |& h& Q7 lHRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);2 n$ B3 k- y, N5 G8 u& [
* A3 {: S% F e设置自定义缩放值
& W" ^2 _4 W% |! mHRESULT SetCustomScale([in] double Numerator, [in] double Denominator);
( l( J' E# {% K) R9 f
5 G+ e4 M9 A& W. `6 v- m取得自定义缩放值
+ t( G; t8 a( e% \5 k& }" ?$ SHRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);
& _, U% K% L4 E3 a0 P) @& i/ q5 n7 r! i
取得所有可用绘制驱动名称- z8 n" b. N+ n; }* ~) W
HRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);1 H; [* g& v% A* m# J- \* ]9 J
) k* t) _$ ^3 [: o( K0 c2 _5 M
取得所有可用绘制类型表名称
" U$ f; ]. Q& [; LHRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);8 M2 ]/ Y8 j$ p" _1 h
, L- e0 D" Z6 p8 s* K5 Q
取得图纸边界外空白区大小8 I2 N2 y3 V8 t) E7 p1 s
HRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);: v; J6 r/ d$ F4 \) Y; p2 @: M
$ i& y- K3 _) F+ L4 s复制指定的绘制配置+ w$ {) Z5 m1 W3 K2 ?: ]
HRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);) k' W0 F+ q* {5 x, B
8 ^$ M4 H) B$ ~% n. P1 u
取得指定的绘制驱动的所有可用规范设备名称1 U2 P1 `* p. }* B
HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);! F5 M3 F! `* r* b5 P+ a
' K3 |1 J& @* F" c& H
取得本地规范设备名称的版本% f7 X2 r% `' o/ @/ n/ i
HRESULT GetLocaleMediaName([out, retval] BSTR* pName);
7 M) L% Q3 A& g" k7 o( I* e, h, j3 V) \ N/ t
更新当前系统状态的绘制、规范设备、和绘制类型表信息, D7 q" {& o; ~) p' g- J3 Z+ m9 ~
HRESULT RefreshPlotDeviceInfo();
0 s( |6 n) N; y( E+ [( T
5 _! m! e, ~ K& D9 b h0 Y- i绘制配置是仅应用到模型空间还是所有版面
" c0 \& c% k! c, ]HRESULT ModelType([out, retval] VARIANT_BOOL* pVal);1 d4 }; N! h% o, u
5 T8 Q: u7 j1 B1 n: U" |4 `5 }
2、 IIcadPlotConfigurations 对象
4 X5 h4 k- C3 m& N: {# \属性：$ f* Z$ ^7 p2 i& X
Application IIcadApplication 取得应用程序对象' r R! h# h/ E& S7 B- Y
Count long 取得包含条目数
! J% d9 s/ d/ _( lParent IIcadDocument 取得父文档对象
, b' z/ |# h+ ~9 b# S% g1 x& W方法：, h9 \* Z) v$ R9 L
增加一个新的绘制配置( {! V( b6 `( B) o2 F' n# i
HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);3 w1 H3 S) y+ B+ ]8 R
0 e4 }* N; Y' X) t" }! D取得指定的绘制配置
- t8 J: }4 h+ B9 EHRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);
# [7 Z9 J0 A& `/ v) t* }/ i; w# c- C% `0 q( h
3、IIcadLayout
7 {+ E; U# s K P# f/ L! e2 o/ N属性：1 p/ S5 h- a ~# h
Block IIcadBlock 取得版面的联合块
" B: b$ z* E8 |# V9 f+ }TabOrder long 版面的tab顺序: ~" ?* Y! v! T1 @# J
5 ]# g5 U3 _1 @" W8 ~
4、IIcadLayouts 对象
. h! `, w" e$ W# H5 J2 [6 D属性：) r9 ~" C, ]: H" z
Application IIcadApplication取得应用程序对象
; q+ X2 b+ H6 e5 l9 c2 w2 K! e" ZCoun long取得包含条目数/ i2 p5 e* o' q, \+ O/ S$ v. n
Parent IIcadDocument 取得父文档对象
2 k. a7 z" S& b4 W" ~7 t$ B9 x方法：
9 z0 \6 @; W3 s增加一个新的版面
5 m1 f* u) d. t: K- ]HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);
) s' C2 D# K) i4 T9 L7 O" m3 h$ [' v* N* B. K
取得指定的版面
, y3 [7 @3 n s) e2 o3 l8 SHRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);7 |( P, T! t2 c
: B2 q5 L8 Q7 ~
5、IIcadXRecord对象' ]4 o) j' ^' s8 r3 r/ S& ?
属性：
, w" z2 N f) \0 S$ m! xName：String 指定的对象名称
: }5 j2 l1 z+ k" V. f. B- w8 lTranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID3 k' e; B1 }) v0 v
方法：3 Q m7 |6 O$ D0 ~) L) K
取得联合字典的扩展数据
+ M4 u5 G1 I q1 VHRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);8 O/ K6 `8 l% w9 S& r7 Z6 T
' C+ P0 T/ C5 ^ A' p( o, F5 L设置联合字典的扩展数据
8 i" S# ~" j! R5 g8 HHRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);
; B3 ~# v8 M# P9 ?$ e; z: U5 W j, U8 h( d& T1 e
6、IIcadDictionary对象
2 z9 B4 ?' O% g; G/ n$ ]属性! G" {" |6 t N9 E3 |
Name：String 指定的对象名称
$ X3 L7 p; _5 A, Z' v' d( s. Q方法：
7 k3 s0 e8 x4 w) H! t9 Z/ r为命名字典增加一个对象/ r+ J. D" c6 l/ F! B
HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?
5 [( O3 Y- z+ J7 c& R* Q
G: @" j: s: t9 Y P取得字典中对象名称（关键字）3 X$ Z2 d c# h4 O& s
HRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName); # d" A1 g8 a3 i' ]" Q
8 ]) ?4 l' H6 C
根据指定对象名称（关键字）返回对象/ H1 `( [8 W6 }0 j4 m0 r2 H# k0 b
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);
. ^! u1 a# g0 F. x3 @ M" v. k' D* \% ^- a; \# [0 U! y( `
根据指定对象名称（关键字）从字典中删除对象
3 n/ j9 Z; F: t0 J. ]# s- V% OHRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);8 K$ U6 h0 k: Y
7 }- _# x( n S, j1 f重命名字典中条目名称3 s; \& l3 h6 ~# {# E* r
HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);7 B& ~ m& Q+ w# \
: Z9 v' u0 z$ R5 S
根据指定对象名称（关键字）从字典中替换对象
* U5 b, N# Z& q" V' }9 O \HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);/ M: S. [: e8 j2 e$ }
" S( @8 `' N# D+ Z1 r f* w根据索引取得字典中对象7 r3 p6 J" `/ j$ }
HRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);1 [' z$ X; T) I
/ }' L w' _- N0 x取得字典条目数- M. y# ^" [% K
HRESULT Count([out, retval] long* pVal);7 p8 i4 i, b: I/ S. |
1 }. e2 d- k8 K# k
在字典中增加扩展数据
) t3 Y, B% H* o7 G- K/ Z3 Z LHRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
! g9 L7 L3 r# Y& k- i7 L
4 L+ V0 Q/ c8 v) u& {1 z5 ~3 C7、IIcadDictionaries 对象0 f3 B1 L$ Z$ \& f( Z! d. ~
属性：# s+ c8 F5 x5 y" [; m( p. ^
Application IIcadApplication取得应用程序对象* o5 D( t G# A) L/ U) T
Coun long取得包含条目数
6 H5 e8 X! x8 k' \Parent IIcadDocument 取得父文档对象+ T) K, O4 M$ Y* n
方法1 ^ L3 k n, ]$ n" S
增加一个新的字典
) ?. P. l4 [$ q6 c& K$ A( D0 m( xHRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);
L3 s4 Y, B# c# g6 @) N$ I
" P. C( M8 w0 y7 y: v! z# b取得指定的字典* v( B8 {$ N* v c
HRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);" o+ R6 u7 F, g" L1 N
3 U6 F3 Z( F2 C
8、IIcadGroup对象7 s6 c& }% p) ~9 f
属性：5 {/ N- F- ^3 N1 F
Name：String 指定的对象名称- |0 f' S6 u3 D$ H* W
方法：) K# o# }+ N7 c1 P
根据指定索引取得组中实体对象
4 h2 u& o6 ~6 B sHRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);
" k4 ]4 f: L6 U4 l4 M
5 ?. \' l& `5 h% W取得组中实体数
/ T. A7 R2 s" ~7 NHRESULT Count([out, retval] long* pVal);
" w% K9 H. M! A$ U5 X5 F' t+ J/ J \
所在图层2 Z4 f- Y! m8 s0 j; T% X
HRESULT Layer([in] BSTR layer);
, u' }( A" G6 A( ]
* z2 F8 Q2 w( e- i J7 P- \8 ~实体线型6 \& m9 Z2 P. w6 e" f
HRESULT Linetype([in] BSTR linetype);
4 c4 ^) B+ B. _! T. g
2 n5 ^7 Y4 z" M9 f! r3 `实体线型缩放比例
" }0 g7 F2 {) y2 k* u3 [HRESULT LinetypeScale([in] double linetypeScale);
, ~, y- n/ }8 z$ F) }+ C, ^8 N! {1 y3 f! T6 p
对象或应用程序的可见性
/ T( v6 N- x) @+ `& }HRESULT Visible([in] VARIANT_BOOL isVisible);. X) v9 H7 X+ t- A* ~' B
. E6 I* R" g4 N6 b' A# [5 H2 Y设置取得对象或选择集的高亮状态* r4 I2 X; j5 h9 q# B3 h* P# ?. z
HRESULT Highlight([in] VARIANT_BOOL HighlightFlag);
4 m7 l/ Y5 f! l# t, J4 A
; k+ l0 u$ T" p- F实体的绘制类型名称
% S- A; p4 y$ C- V. b* QHRESULT PlotStyleName([in] BSTR plotStyleName);
- |* r3 U/ [& `% N
4 }& F2 d- m1 K7 l指定个别实体或缺省线宽 M. a6 Z2 I3 w. `6 R# z |' _1 j
HRESULT Lineweight([in] IcLineWeight lineWeight );
/ T) d2 [* J6 Y$ d( U7 D
/ E" k8 K, x8 h ^/ y/ ^6 E8 \增加一个或多个实体倒组中/ k2 C5 t% |& x5 Q) K* L
HRESULT AppendItems([in] VARIANT Objects);
; A' d( \2 x* N" n* L1 q2 F3 |2 D0 e3 P; [0 l. i
从组中删除指定条目& G3 R7 C) w2 F, I4 c( p# q1 \
HRESULT RemoveItems([in] VARIANT Objects);; \4 \4 d% A: Q$ u
0 J) O, G! A1 i" e
更新对象到视图4 L' h. [( n7 \$ ~6 }% G S+ m$ q
HRESULT Update();
4 l( j+ `8 _* A: ^: U3 h. S
. X1 v$ L3 |% q9 Q指定实体或层颜色
" a# c# Y4 P- q" J9 c: NHRESULT Color([in] Colors color);
% f% W( p& z( z
4 u+ {+ E5 o/ k9、IIcadGroups对象
6 C. q/ Y# j, c+ q8 o& n, _1 _0 F属性：
}/ f- g( y7 t: d# _" _Application IIcadApplication取得应用程序对象
/ T# y. P0 F- n/ Z" }Coun long取得包含条目数
3 d% z& w( y8 m: qParent IIcadDocument 取得父文档对象
$ ]# g" ^6 g$ U1 z方法- b! G* f1 H+ j: c2 i
增加一个新组3 [' V! U* I6 l: W8 m, C0 w
HRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);" j _# M" p I9 P7 @
" S4 M" O( {( ?取得指定的组
+ U# y% V) }+ Q5 zHRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem); |
|
发表于 2009-8-10 14:37