ICAD2008 - LSP新增函数及VBA新增对象介绍

gaoyaqiang

浩辰ICAD2008 - LSP新增函数及VBA新增对象介绍
一、LSP新增函数：
, P3 e) K  V1 H5 l' f1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
函数调用形式：
3 ?7 z1 ]4 b+ G5 ~! i(vlax-curve-getDistAtParam curve-obj param)
参数：
curve-obj 类型：Ads_name 意义：实体
; L7 S: p9 f' s  j( sparam 类型：正整数 意义：当前曲线的节点
返回值：
如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
/ g; U- i" L: a* M3 C! q* i( n; z. q
: U- a7 Z, \: {  D; g2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
8 m9 y5 N: o3 w. n函数调用形式：
- z. k5 x  |0 P+ W: T8 p3 F8 J: Y4 f(vlax-curve-getDistAtPoint curve-obj point)
' @% \, a# I3 S$ d参数：
curve-obj 类型：Ads_name 意义：实体
Point 类型：Ads_point 意义：当前指定点
3 I+ z! B5 q! K2 C返回值：
, |2 A9 J' V: u# P% N' H如果成功返回从当前曲线的开始到指定点的长度，否则返回nil
: o8 A4 A" O) c; [* k
3、返回曲线最后节点数vlax-curve-getEndParam
1 }2 B' W9 V9 p" b3 q" D2 L( s( {函数调用形式：
(vlax-curve-getEndParam curve-obj)
参数：
" t3 H, n% m' ]curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点数，否则返回nil

- X/ E* `+ k6 U) g! l* N" V& S4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
函数调用形式：
(vlax-curve-getEndParam curve-obj)
# U' i+ |* @; A- z- p参数：
. d+ ^% b" G" V9 [+ Rcurve-obj 类型：Ads_name 意义：实体
% Z1 {1 P. N) J! J1 r返回值：
如果成功返回当前曲线的最后节点值，否则返回nil
) K( f5 d; p) @, T
5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
# |, n7 i! m0 |: }函数调用形式：
# n7 Y4 T- D) ?5 A  O' e(vlax-curve-getParamAtDist curve-obj dist)
0 `; ]3 `8 \, n" u3 E6 I, _( H参数：
8 O5 @" ^- W: @  |4 H8 q+ k( ecurve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
0 i" Z7 j: j2 P9 ?+ _返回值：
9 |% q0 l6 @: y# r; i, p* d如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil

+ L! M. e* a! O# D& h6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
: W& x) b9 n* l$ a. G' U7 ]函数调用形式：
" S/ w5 m( z+ Z3 B7 j(vlax-curve-getParamAtPoint curve-obj point)
, V' q* x7 t3 K, V- Q4 d0 B参数：
curve-obj 类型：Ads_name 意义：实体
  m7 {; x2 {! M9 v) v% Apoint 类型：ads_point 意义：指定曲线点
( [8 j6 V7 z4 T: ^! @返回值：
如果成功根据指定曲线点返回曲线上节点参数，否则返回nil
. V$ K7 z( u0 \/ S+ n0 K# {
( e6 @: w  F/ [: x7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
函数调用形式：
; H8 l' d, N! \3 V# w( u(vlax-curve-getPointAtDist curve-obj dist)
参数：
curve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
' L! B5 |. h( x0 w% ?" {# V4 A返回值：
8 X6 |5 ~# P4 u+ C9 V; }1 |如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
+ ?2 w. u) v' o* K6 m
& s3 l$ Z9 `) E" j' A4 [0 B. |8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
函数调用形式：
  V% {" _: i/ ]% ^(vlax-curve-getPointAtParam curve-obj param)
4 n6 }- B0 m- t1 [- h参数：
curve-obj 类型：Ads_name 意义：实体
6 n+ h: {: [4 ?: D1 a( rparam 类型：正整数 意义：当前曲线的节点
返回值：
& a, x0 p, G* S& k9 L1 b如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

9、返回曲线起始节点参数vlax-curve-getStartParam
函数调用形式：
(vlax-curve-getStartParam curve-obj)
; O7 K, E* A3 J6 g- ?0 l1 y* J参数：
curve-obj 类型：Ads_name 意义：实体
& I: a% \0 G9 d* e. c  H/ v2 U返回值：
4 x$ u( E: h9 _9 c如果成功返回当前曲线的起始节点参数，否则返回nil
" Z! i. w7 e, g( P
1 X' o" k( s1 Q. x5 ]' O2 c3 ]2 s10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
3 z6 E2 L* X/ \9 w" v, j" D函数调用形式：
(vlax-curve-getStartParam curve-obj)
参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
6 y1 k$ O# W9 j& m( V* N如果成功返回当前曲线的起始节点值，否则返回nil
; F2 I- O! Y1 F7 a1 w& Z3 l

二、VBA新增对象
: r5 J* D, \* i1 D1、IIcadPlotConfiguration对象
1 [: y5 v) D9 i1 b1 y属性：
Name：String 指定的对象名称
CanonicalMediaName：String 指定的规格纸张名称
4 X4 ~8 B" B4 D5 x8 p& K. TCenterPlot：BOOL 指定的居中方式
$ q" G$ g) B6 @6 C! ]ConfigName：String 绘图区配置名称
PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
PlotHidden：BOOL 绘图过程中对象是否隐藏
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
PlotRotation IcPlotRotation 版面或绘图区配置的旋转角
# D: ]1 Q8 X/ o. MPlotType IcPlotType 版面或绘图区配置的类型
PlotViewportBorders BOOL 是否绘制视口边界
PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
' J+ ^% U* t' w: u: ^: @PlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
ScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
ShowPlotStyles BOOL 是否将绘制类型应用倒绘图
StandardScale IcPlotScale 版面或绘制配置的标准缩放
6 Z4 q  s# |+ M% S2 rStyleSheet String 版面或绘制配置的类型单
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
) e& w3 N$ \2 t; A9 ^# f" O% YViewToPlot String 绘图区的视图名称
方法：
取得绘图区视图的大小
0 m  T2 ~, G2 R. b, L3 rHRESULT GetPaperSize([out] double* Width, [out] double* Height);

2 K4 V" e3 T4 Q$ `% K; G7 c6 S9 c取得绘图区版面窗口坐标
+ ~0 q( j" w; qHRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
2 Q5 Y. [& |1 e5 f$ x
设置绘图区版面窗口坐标
/ `' C# N5 ]2 H8 B7 C- Y/ X& S0 IHRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);
9 V; B. R% C  i4 _1 Y
设置自定义缩放值
: r' A( p! f: @+ C" ?' IHRESULT SetCustomScale([in] double Numerator, [in] double Denominator);
3 p; o# Y. I" s6 B2 b
取得自定义缩放值
HRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);

取得所有可用绘制驱动名称
' m9 I& U- L7 S; D6 ?8 n7 bHRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);
- ?, Z; P( K  N1 n; _% h; e
取得所有可用绘制类型表名称
  p: k. v$ a% K$ `* GHRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);

4 z7 l1 K( M- Y# K! o+ _. [取得图纸边界外空白区大小
9 U# H* t, G# k% rHRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
0 r  J9 ~5 ~& }0 w: Q9 u3 y+ c8 l
! U, ^: f. @- [# ]0 @复制指定的绘制配置
HRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);

. \/ R5 ]/ S: f) e  y. x9 \% p1 j取得指定的绘制驱动的所有可用规范设备名称
* g! m' n* B% E6 |9 ^HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);
5 a& m, [- m& k' c% q5 F6 s
3 u+ w/ \) f" R  f  V* a( y/ V取得本地规范设备名称的版本
) M5 a" ~$ Z2 h' uHRESULT GetLocaleMediaName([out, retval] BSTR* pName);
. L+ r2 a6 y) i; U
& |" C) R# U. O4 ^更新当前系统状态的绘制、规范设备、和绘制类型表信息
HRESULT RefreshPlotDeviceInfo();

! U8 N/ ]1 a  ]3 u! b绘制配置是仅应用到模型空间还是所有版面
HRESULT ModelType([out, retval] VARIANT_BOOL* pVal);

2、 IIcadPlotConfigurations 对象
属性：
, m, {  K( T$ j( Z" n; yApplication IIcadApplication 取得应用程序对象
1 M5 [: t; b# H- T7 t, Q  A$ ZCount long 取得包含条目数
Parent IIcadDocument 取得父文档对象
' F3 B# z0 M0 n方法：
  Q- `* F& i- b2 D* O3 Q增加一个新的绘制配置
2 B3 W9 M4 j, H. u* F0 i5 d) SHRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);

取得指定的绘制配置
  x) h& k" |3 `, c% y' v8 IHRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);

/ O$ R0 Z' d0 @/ }0 r. J% S- p2 P: }3、IIcadLayout
; ~. o, F* t+ O% v属性：
# p9 g2 F) D& g: m2 `5 ZBlock IIcadBlock 取得版面的联合块
( ^! j5 D8 p' Z  F0 |! FTabOrder long 版面的tab顺序

2 o( W0 @" B) V! J+ N) z8 {4、IIcadLayouts 对象
属性：
Application IIcadApplication取得应用程序对象
, l8 A. ^  \7 f- ]) }& X6 k$ xCoun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法：
5 d, V) }/ r) ]1 k' W5 e9 v' m增加一个新的版面
: G4 C4 v5 y, }HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);

2 Q; Q' j+ D  z& ~- Y' Y' H取得指定的版面
6 _& Z1 j$ A5 W: M/ n" t" I  AHRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);

, T" G6 J: q  d+ T  \( a5、IIcadXRecord对象
. k. f) F6 B+ C8 D* ?6 |/ b2 @属性：
Name：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
$ A* C- {* p7 I8 T5 [( @# B# y, e方法：
' r/ ~1 f$ v! K* V' |- u/ s6 ^取得联合字典的扩展数据
4 V, U1 q1 ^# C$ F% eHRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);
5 D7 {: H, l% A. j: w- f$ |7 b
设置联合字典的扩展数据
HRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);

6、IIcadDictionary对象
1 @% r. T- a- e+ Z6 u属性
, ^8 M  Q$ @" R7 Z2 ]+ Q+ PName：String 指定的对象名称
方法：
为命名字典增加一个对象
1 {  O- G8 c7 @/ H/ u- j; cHRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?

取得字典中对象名称（关键字）
! f. Y6 Z( m; t; g) dHRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);
9 }' i% a1 W5 b# l7 R( e$ y3 V
根据指定对象名称（关键字）返回对象
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);
4 a) D: n) J5 U
3 ^! f3 A" [5 t' b7 j" ]根据指定对象名称（关键字）从字典中删除对象
HRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);

重命名字典中条目名称
7 y+ z# [, {1 V1 o% {HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);
6 Y# H4 |! ]  _! u3 z
7 M% \9 k( y0 E/ \& {( i9 A) O2 n0 k根据指定对象名称（关键字）从字典中替换对象
HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);
; }9 }) |4 X0 _8 X! ?. X
根据索引取得字典中对象
HRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);
5 J- D9 u! n" t; K
取得字典条目数
HRESULT Count([out, retval] long* pVal);
4 X# f  Q) P0 s% }7 ]5 |( ?
$ o- c6 T; {4 k, f+ _9 }8 [8 e在字典中增加扩展数据
HRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
1 f1 Q, `  o) c3 }
7、IIcadDictionaries 对象
. i+ c4 M3 }3 p4 N7 y, f属性：
5 K. L& S. I. D% C$ RApplication IIcadApplication取得应用程序对象
Coun long取得包含条目数
. t8 z* y1 Z6 u9 iParent IIcadDocument 取得父文档对象
  L  A2 n1 [) F; U0 ]方法
增加一个新的字典
  N/ P3 g  {. u, ZHRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);
. l1 k6 L, K3 K7 G) p; `9 Q/ B. `1 ]
取得指定的字典
' ?% H2 p$ u" n' z8 a7 rHRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);
* d8 h3 W* T5 ]8 k+ r2 A' q
8、IIcadGroup对象
9 {1 B3 }5 a7 D4 Z8 H; ~" V. E. H属性：
2 z" P  \: L  S- ~2 P  B6 zName：String 指定的对象名称
; }8 G* d# T# ~6 u/ ~! _方法：
根据指定索引取得组中实体对象
HRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);
  n  r. M( y, f/ g# P
取得组中实体数
8 m8 \+ f$ l) iHRESULT Count([out, retval] long* pVal);
8 F8 }1 Y* E  @* t! D/ G" J
所在图层
HRESULT Layer([in] BSTR layer);
' _6 g- f$ u4 F0 \3 G
6 w% a$ u7 z4 {3 o$ L% T实体线型
$ j. c! H! Q7 y/ HHRESULT Linetype([in] BSTR linetype);

9 R5 q. U* W( a$ G+ I* _实体线型缩放比例
HRESULT LinetypeScale([in] double linetypeScale);

对象或应用程序的可见性
HRESULT Visible([in] VARIANT_BOOL isVisible);
/ {& ]" e4 p' o/ O: U
: ^4 U! e' e$ ?% w设置取得对象或选择集的高亮状态
/ e* z1 L# ^1 D5 h2 R) THRESULT Highlight([in] VARIANT_BOOL HighlightFlag);
5 t: A+ i( S; h4 s( h$ Y3 E" i
5 y; [/ O% d. C  U, U2 z实体的绘制类型名称
8 B, G  P) l2 s6 n4 HHRESULT PlotStyleName([in] BSTR plotStyleName);
1 t' ~' g9 H- l
7 [0 C) v/ W2 P. ~指定个别实体或缺省线宽
' T3 M) l; ?/ ~5 ]2 kHRESULT Lineweight([in] IcLineWeight lineWeight );

增加一个或多个实体倒组中
HRESULT AppendItems([in] VARIANT Objects);

从组中删除指定条目
HRESULT RemoveItems([in] VARIANT Objects);

: Y  i! t6 p4 V* v- p更新对象到视图
HRESULT Update();

指定实体或层颜色
HRESULT Color([in] Colors color);

1 Q8 y- g# o8 k- L9、IIcadGroups对象
, ?& \  e' \: q1 q$ n) X属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法
增加一个新组
HRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);

: A) [0 a# U6 g. X4 r9 Y$ G+ }取得指定的组
7 U& m% l6 o" U# [" aHRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem);