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

suno

一、LSP新增函数：
1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
# B8 ]  [- `" d9 A8 u; i函数调用形式：
/ W2 E, _4 d! d+ k. f, u(vlax-curve-getDistAtParam curve-obj param)
参数：
5 a" [- b* G- \5 T8 `4 C: v+ G1 Fcurve-obj 类型：Ads_name 意义：实体
/ f4 T' J& h6 n8 m9 q) r7 p( t; ^param 类型：正整数 意义：当前曲线的节点
% \) a6 p, J; E# |; b' }2 U返回值：
如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
: [( p; T1 c0 n4 K" w& A
. k# O/ V0 j( m% q: g# n2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
9 t" @1 R0 O: U函数调用形式：
0 V+ d6 U/ O& ^" C(vlax-curve-getDistAtPoint curve-obj point)
6 w  D4 F* `! @7 }0 Y# q参数：
curve-obj 类型：Ads_name 意义：实体
Point 类型：Ads_point 意义：当前指定点
返回值：
  A: f8 O: w" n  w# i0 X7 h, t如果成功返回从当前曲线的开始到指定点的长度，否则返回nil

0 N4 t  G+ P4 k+ W, R% @/ g' T3、返回曲线最后节点数vlax-curve-getEndParam
函数调用形式：
(vlax-curve-getEndParam curve-obj)
' `) x2 Q. Q# k6 v4 A+ R7 E参数：
1 L9 |1 V: I6 [. ncurve-obj 类型：Ads_name 意义：实体
& w$ b  V: y' |返回值：
如果成功返回当前曲线的最后节点数，否则返回nil
% T) V4 D& k% e5 U& F# |
6 Q% W- o) J  O) Y$ ^: n- s; M4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
3 ^7 V0 X% \: X1 v8 w( a6 z函数调用形式：
(vlax-curve-getEndParam curve-obj)
参数：
' g' w2 @3 k/ L  Scurve-obj 类型：Ads_name 意义：实体
6 E/ h4 ~3 C& r9 J) m; k( s返回值：
* X/ g8 ]% ~( P* O如果成功返回当前曲线的最后节点值，否则返回nil
0 E) y6 u4 k1 K& ]
: n1 b4 [+ v8 T0 S5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
7 y/ t" W! {' u: B6 K; r6 H4 ?( s函数调用形式：
, O+ j! e4 P$ D- a' p( K$ j(vlax-curve-getParamAtDist curve-obj dist)
' A( F, K. p$ {参数：
" d$ o/ g- Q3 \) n1 d& xcurve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
: Y& V+ C* f6 Q2 M& E9 J返回值：
" M% P( \' I, v$ n如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil
- t1 p  l8 [, ^+ x3 a% U6 [
6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
( E  r) W, \, l7 D. ^函数调用形式：
: @1 w1 X: S" m3 s(vlax-curve-getParamAtPoint curve-obj point)
参数：
curve-obj 类型：Ads_name 意义：实体
point 类型：ads_point 意义：指定曲线点
返回值：
如果成功根据指定曲线点返回曲线上节点参数，否则返回nil
4 L' k7 D. W+ k- P. o7 ^
7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
函数调用形式：
& m1 d6 Z# N) r1 @(vlax-curve-getPointAtDist curve-obj dist)
, f$ s; Q  I6 W. [参数：
" E9 ?5 M" I$ g/ F; I6 F1 d" ~curve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
返回值：
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
5 h, Q. i, C* I2 V4 c0 @1 W
8 h0 q; e$ w/ D7 Z8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
函数调用形式：
  e% v/ L" w6 U* b9 R1 N% Y/ @7 T, |(vlax-curve-getPointAtParam curve-obj param)
( D" [% w+ }: B' n参数：
7 f1 I+ e5 |, c0 B4 lcurve-obj 类型：Ads_name 意义：实体
# `2 m$ ?. \: T* z% y0 v# Gparam 类型：正整数 意义：当前曲线的节点
返回值：
1 e3 k7 a, d- E% h* D) u/ t" r8 \如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

9 ?4 u$ B& n6 U# W/ W9、返回曲线起始节点参数vlax-curve-getStartParam
8 `! Y: L# G  I: C- T( O函数调用形式：
% o& O  ~) `- C4 U3 r5 T(vlax-curve-getStartParam curve-obj)
, I! ]  }. \* f4 _+ s参数：
4 }& h* g: h& K6 V" F/ n7 j9 xcurve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点参数，否则返回nil

10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
  l' U. t$ i0 b函数调用形式：
(vlax-curve-getStartParam curve-obj)
参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点值，否则返回nil


二、VBA新增对象
$ j6 N# I( y4 p$ A1、IIcadPlotConfiguration对象
属性：
Name：String 指定的对象名称
8 r( ~5 d# C5 ^% B( _CanonicalMediaName：String 指定的规格纸张名称
+ @  L1 ~, C0 i) u1 E% ^, ?* ]1 PCenterPlot：BOOL 指定的居中方式
8 b: R$ ~/ R0 NConfigName：String 绘图区配置名称
PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
1 F. H5 X1 Z3 A, P% L, k* {7 I3 ?: D- SPlotHidden：BOOL 绘图过程中对象是否隐藏
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
  U$ p2 j3 I0 U; U" zPlotRotation IcPlotRotation 版面或绘图区配置的旋转角
0 {& p$ D7 j& x- XPlotType IcPlotType 版面或绘图区配置的类型
0 R9 B: n0 K1 L7 X0 uPlotViewportBorders BOOL 是否绘制视口边界
PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
9 p. s4 R9 E! v# ?$ xPlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
PlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
4 D. j, Q( l$ N2 M7 aScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
) z# ]6 d7 _  jShowPlotStyles BOOL 是否将绘制类型应用倒绘图
StandardScale IcPlotScale 版面或绘制配置的标准缩放
' `8 p0 Y5 f/ U& E: [StyleSheet String 版面或绘制配置的类型单
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
1 A4 ]2 G" S0 C5 G1 h+ WViewToPlot String 绘图区的视图名称
方法：
/ ?& F# G5 j* F4 z取得绘图区视图的大小
HRESULT GetPaperSize([out] double* Width, [out] double* Height);

取得绘图区版面窗口坐标
HRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);

  K- f8 ^4 b9 ]% X+ Z2 X* O  Y设置绘图区版面窗口坐标
( O7 Q8 y0 Z* r; T" I  c) ^+ ?8 OHRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);

设置自定义缩放值
, K; w1 N, e! _8 P, _% \HRESULT SetCustomScale([in] double Numerator, [in] double Denominator);

; p7 n! Q( y8 O" D5 T! u取得自定义缩放值
HRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);

/ c' n1 T, w, U& \, q取得所有可用绘制驱动名称
% @. o; a3 D6 IHRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);

取得所有可用绘制类型表名称
HRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);
' }$ z1 q) x+ I2 `/ w9 F8 x
7 U$ {% ~* Z3 a. ^/ ?9 a) Y; H; O: ]取得图纸边界外空白区大小
( a0 x+ d; r" N1 P  n7 l) n' {) P3 E$ CHRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
/ v6 d! g  w0 z. |
复制指定的绘制配置
: j2 M( H: C* }3 N- B1 i! oHRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);

1 z+ U3 V4 `) N: W( r4 Z9 Q取得指定的绘制驱动的所有可用规范设备名称
HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);
5 W0 l- @" U; a* h
  X; D* _3 R; j$ {取得本地规范设备名称的版本
HRESULT GetLocaleMediaName([out, retval] BSTR* pName);

6 `4 N' F1 a" }更新当前系统状态的绘制、规范设备、和绘制类型表信息
- e" }- S( I6 ?HRESULT RefreshPlotDeviceInfo();
  K! X6 ]3 n1 V5 K3 m3 a( C' s. s
绘制配置是仅应用到模型空间还是所有版面
/ R0 p8 l/ S7 b6 aHRESULT ModelType([out, retval] VARIANT_BOOL* pVal);

5 u8 c, R1 z) H, b+ G& f2、 IIcadPlotConfigurations 对象
& B" }& H$ b9 t/ N属性：
3 \1 z6 m/ ^  g+ V6 VApplication IIcadApplication 取得应用程序对象
Count long 取得包含条目数
Parent IIcadDocument 取得父文档对象
方法：
增加一个新的绘制配置
HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);

9 r+ N3 L3 i5 V4 B- K5 P* Z+ \9 O取得指定的绘制配置
) `- `- @5 T, U( w0 EHRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);

3、IIcadLayout
3 T, u8 \' G9 s5 s$ Z' S属性：
Block IIcadBlock 取得版面的联合块
, v1 C2 t% f7 R0 GTabOrder long 版面的tab顺序
2 b, s& Y0 @' b: l
" |& D5 P# ^9 L7 T# E7 [4、IIcadLayouts 对象
属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法：
增加一个新的版面
HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);
6 g' e7 P* u+ a2 v3 x1 u! }
取得指定的版面
HRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);

! h# I/ e3 [$ P  u& i5、IIcadXRecord对象
属性：
. L" y6 ]6 u8 ~- n. YName：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
, ?7 k+ v. B' _1 {- n* o# |! ]5 V方法：
取得联合字典的扩展数据
HRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);
. k6 w$ v& h# `" C
设置联合字典的扩展数据
0 x# J1 T7 n; F. o7 XHRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);

6、IIcadDictionary对象
3 c) ~( h4 v) E8 f0 N3 V: R6 M1 ~属性
0 T+ [6 F$ B5 q; iName：String 指定的对象名称
方法：
为命名字典增加一个对象
HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?
% k3 C/ i) U3 \4 n/ i2 O
3 Q& O: i+ X8 L; d# M: A取得字典中对象名称（关键字）
HRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);

0 I4 g& s! Z6 D! ?根据指定对象名称（关键字）返回对象
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);

根据指定对象名称（关键字）从字典中删除对象
HRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);
8 {% }+ @$ q) t# t) F# c0 c0 ]
重命名字典中条目名称
8 f1 Z0 `* T, w) Q% j0 THRESULT Rename([in] BSTR OldName, [in] BSTR NewName);
; V9 s% Z2 d, U2 j' _
根据指定对象名称（关键字）从字典中替换对象
HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);

根据索引取得字典中对象
' M$ R+ `- T& H$ E6 ~  THRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);
/ K$ a/ \0 A& I/ r
取得字典条目数
HRESULT Count([out, retval] long* pVal);
3 \- O$ V2 r3 R6 u
在字典中增加扩展数据
% K9 I; A" k8 i9 W* x8 Z6 f. Q3 b  JHRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
- Q2 y& E; R+ C% d- ]* i; i5 z
7、IIcadDictionaries 对象
属性：
Application IIcadApplication取得应用程序对象
6 @8 I2 g  X1 _) g" k9 D% o; t" m3 u5 SCoun long取得包含条目数
5 `, y; D, ^7 l6 o( ~: p1 M: i) _Parent IIcadDocument 取得父文档对象
# V4 _9 @: |3 ]/ U; j/ J方法
# d/ w7 q: ^$ T. O+ r* G4 ~增加一个新的字典
HRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);

/ B1 k# k/ S6 r' U9 `3 v取得指定的字典
6 l8 ?  ]/ a' B/ ^) bHRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);
6 v& i5 j) M4 `. k, o
8、IIcadGroup对象
& y) ]! L9 Z6 q; y/ g( u属性：
Name：String 指定的对象名称
& \1 I. Z% C; R& X方法：
根据指定索引取得组中实体对象
5 c" V* ]/ L: J  i  _HRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);

取得组中实体数
HRESULT Count([out, retval] long* pVal);
8 H  q- B" Q( Z; Y3 H; y& P
9 F) [( r0 g! k9 I2 P; I% N所在图层
HRESULT Layer([in] BSTR layer);

, G* U: S, j' t# M3 u实体线型
HRESULT Linetype([in] BSTR linetype);
4 N0 w. N7 P' q+ m6 r, \; F
实体线型缩放比例
: K- G4 c& Z) V4 c" \! mHRESULT LinetypeScale([in] double linetypeScale);

对象或应用程序的可见性
7 W, u5 G$ o4 F; yHRESULT Visible([in] VARIANT_BOOL isVisible);

4 y3 ]% J& `5 V9 r设置取得对象或选择集的高亮状态
2 C3 ], w2 d( j+ M5 o( G4 ZHRESULT Highlight([in] VARIANT_BOOL HighlightFlag);
3 v. g8 U' y7 O8 r- i8 U
& w/ \7 [% Q. B# K7 {实体的绘制类型名称
' f+ w" }7 w" ?, rHRESULT PlotStyleName([in] BSTR plotStyleName);

指定个别实体或缺省线宽
! _: |5 ^* b( m+ O* N4 GHRESULT Lineweight([in] IcLineWeight lineWeight );

7 @  Y5 w# {, R( T/ c* L增加一个或多个实体倒组中
HRESULT AppendItems([in] VARIANT Objects);
. x  q$ l1 G! d- D' G
5 i/ b# U8 ~6 l* |8 E  Z# I从组中删除指定条目
HRESULT RemoveItems([in] VARIANT Objects);
0 @: I& `6 g- r# ]) F# G9 s. r
更新对象到视图
* W. o  X& C6 \# dHRESULT Update();

) _% d* P1 p" m指定实体或层颜色
HRESULT Color([in] Colors color);

( n6 |  g- P  J1 i- |1 H+ E9、IIcadGroups对象
属性：
1 u: i6 V* A: c2 @' w# oApplication IIcadApplication取得应用程序对象
; h7 M* T8 X* a: q7 b1 f3 \8 U/ KCoun long取得包含条目数
: |% c0 U% l0 `% X* E$ VParent IIcadDocument 取得父文档对象
4 k! e! [* b( D/ w7 g. l- P% j方法
$ b0 j# G, t& O8 a' K3 i& \增加一个新组
HRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);

" F8 {: i  o4 H  @% M  j5 U9 C取得指定的组
HRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem);