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

suno

一、LSP新增函数：
1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
函数调用形式：
(vlax-curve-getDistAtParam curve-obj param)
参数：
; m, C8 b0 z; [. B6 [0 L# r, bcurve-obj 类型：Ads_name 意义：实体
5 o5 H, Y5 o+ S% E5 [0 Uparam 类型：正整数 意义：当前曲线的节点
6 m- u3 B; h% J+ l1 U9 F0 g返回值：
如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
( D1 n' p% @2 f) r% c9 E
) O7 J3 X* |+ b9 T9 n- G7 X" L; A2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
函数调用形式：
(vlax-curve-getDistAtPoint curve-obj point)
参数：
curve-obj 类型：Ads_name 意义：实体
Point 类型：Ads_point 意义：当前指定点
) K& X, D) g# Q9 g/ [返回值：
( |6 l9 V, R+ x+ c9 p7 d如果成功返回从当前曲线的开始到指定点的长度，否则返回nil

3、返回曲线最后节点数vlax-curve-getEndParam
# S6 H4 A9 @; Y& W) Q! j函数调用形式：
(vlax-curve-getEndParam curve-obj)
& J3 e, a+ E# d2 c! L, [参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点数，否则返回nil
' M/ ?6 d$ {3 ]/ Z
4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
/ d" z6 ?; ^0 A函数调用形式：
(vlax-curve-getEndParam curve-obj)
参数：
" |. Z, W( s: u+ F% u' _' icurve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点值，否则返回nil
5 R2 r" h& ~' Z4 x# M+ B
2 T$ F+ r, [* m2 X; u5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
函数调用形式：
3 R5 d. G+ k7 i% m1 H6 p2 [# h8 H(vlax-curve-getParamAtDist curve-obj dist)
2 J* m/ H/ N9 O; B参数：
curve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
返回值：
如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil
' m2 b6 P# ~, K8 T
: [! d4 P9 w% E8 l: Z6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
: y! `, e5 r+ B& r# h& {函数调用形式：
. W( i! S: O* ?/ A$ u8 O  B) [(vlax-curve-getParamAtPoint curve-obj point)
参数：
curve-obj 类型：Ads_name 意义：实体
6 S3 S% b/ ?  o" dpoint 类型：ads_point 意义：指定曲线点
返回值：
- X$ B( X  v: U( V0 t如果成功根据指定曲线点返回曲线上节点参数，否则返回nil
( R7 i6 S, |$ S/ ]
7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
函数调用形式：
: z/ m* s; X- I& \" D(vlax-curve-getPointAtDist curve-obj dist)
参数：
curve-obj 类型：Ads_name 意义：实体
* I# [( M5 K9 J; ?dist 类型：ads_real 意义：指定从曲线端点距离
+ ^8 _$ C6 a3 n: z( v1 W4 e( Z5 t返回值：
  \  h4 X. u6 S如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
; J# Y6 F; p. o* c% T3 u
8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
( A6 H& I  F. i) P3 x9 F2 _函数调用形式：
(vlax-curve-getPointAtParam curve-obj param)
! |7 _* V8 l, x' @$ Z1 m# s参数：
5 k+ V3 q6 \8 i2 E# ~1 j  C1 S) A# Hcurve-obj 类型：Ads_name 意义：实体
7 u3 ]) W- G. l% j& Oparam 类型：正整数 意义：当前曲线的节点
) A8 i2 y5 x1 \1 I/ U: \返回值：
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
9 h7 v) }& d" h! w# p! g7 g
: P1 m7 p5 \8 G6 z9、返回曲线起始节点参数vlax-curve-getStartParam
8 I" ]4 M. p6 A  R& _函数调用形式：
(vlax-curve-getStartParam curve-obj)
参数：
, ?! o8 T2 b* n$ P4 c+ N& ocurve-obj 类型：Ads_name 意义：实体
5 o  J3 D* E1 ]' G返回值：
4 a5 |( G3 s5 u4 G0 U; H如果成功返回当前曲线的起始节点参数，否则返回nil

, }, Y4 k! \/ ~7 T- I4 f" t9 M) U9 Q10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
( p3 `4 c0 I6 x5 ?函数调用形式：
2 Q2 P( t. ~4 e# K: N$ p(vlax-curve-getStartParam curve-obj)
参数：
* m( v; X& M/ y& f* Zcurve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点值，否则返回nil


二、VBA新增对象
1、IIcadPlotConfiguration对象
属性：
4 W1 o. D# r) J' h/ eName：String 指定的对象名称
- s* J  x9 J: w% VCanonicalMediaName：String 指定的规格纸张名称
5 N+ a# B+ i' h% rCenterPlot：BOOL 指定的居中方式
* A2 ?5 z, _* y: d" \ConfigName：String 绘图区配置名称
1 m* D8 h% Z. o$ O0 o: NPaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
! s, a8 f4 \- K/ p, `PlotHidden：BOOL 绘图过程中对象是否隐藏
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
PlotRotation IcPlotRotation 版面或绘图区配置的旋转角
$ d- Y( |$ [$ _3 Q/ F  ZPlotType IcPlotType 版面或绘图区配置的类型
PlotViewportBorders BOOL 是否绘制视口边界
PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
PlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
7 f' Q; w, V0 H4 B+ S* zScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
ShowPlotStyles BOOL 是否将绘制类型应用倒绘图
StandardScale IcPlotScale 版面或绘制配置的标准缩放
StyleSheet String 版面或绘制配置的类型单
2 T; r6 P6 T' ^5 L7 s. H, b: zUseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
ViewToPlot String 绘图区的视图名称
方法：
' ~0 s  a( w/ b. c5 X, J" S取得绘图区视图的大小
) H0 Y$ u% C+ ?( S$ ?: ^HRESULT GetPaperSize([out] double* Width, [out] double* Height);
- p/ B) w; N+ |6 P
$ A! N8 W; G5 m取得绘图区版面窗口坐标
: }$ P6 T: C# Q8 v6 X1 {HRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);

& S+ A* ?8 n7 ?- v9 V设置绘图区版面窗口坐标
HRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);

" B' V8 M, V. }, T1 q& Z设置自定义缩放值
+ H5 V4 D9 L, VHRESULT SetCustomScale([in] double Numerator, [in] double Denominator);
: ^  w! b2 g2 ?/ ~9 N2 q+ a' \0 ^6 V! r3 l
取得自定义缩放值
" B' ?! u/ c; m& u& `! F# oHRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);
( K3 q. s/ W* u/ ^) q
/ S  O% l1 {3 a5 o- d1 `- ~: d取得所有可用绘制驱动名称
HRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);
6 }- M5 j5 z. E" x
6 C& d/ a' j( N9 c4 V5 o  j) [取得所有可用绘制类型表名称
HRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);

! Q( y7 ^8 Z: x1 l! a, \' N+ o取得图纸边界外空白区大小
HRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);

复制指定的绘制配置
HRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);

取得指定的绘制驱动的所有可用规范设备名称
! w# d1 u* F; }* G$ W& `HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);

取得本地规范设备名称的版本
, k4 a9 f: G. q  S, _HRESULT GetLocaleMediaName([out, retval] BSTR* pName);
; Q9 {* D+ Z. H; P: q- J! r6 u
! h, T( I; F" I. f" B更新当前系统状态的绘制、规范设备、和绘制类型表信息
# Q0 \- K0 }/ O# W2 R& H4 l* i' N1 dHRESULT RefreshPlotDeviceInfo();

绘制配置是仅应用到模型空间还是所有版面
; e4 A* x; ^: Q5 F. k( y1 r% LHRESULT ModelType([out, retval] VARIANT_BOOL* pVal);
+ z! c7 c2 i# ]5 o
! B% j2 [7 d5 y% |$ l2、 IIcadPlotConfigurations 对象
属性：
Application IIcadApplication 取得应用程序对象
Count long 取得包含条目数
Parent IIcadDocument 取得父文档对象
- C/ h& J: ~" U方法：
增加一个新的绘制配置
HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);
5 a+ v1 O) @. z+ U
0 K* S$ u5 u. H1 k' S8 C: T取得指定的绘制配置
* m5 R9 E  u9 L' H# M" ^HRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);

, Y$ {; s: E4 u" m- @3、IIcadLayout
7 b7 I) M6 |8 y% R1 V% R属性：
Block IIcadBlock 取得版面的联合块
, _8 s! o: L# E6 C+ @$ s, h' MTabOrder long 版面的tab顺序
: n- W, y7 ^; `( ?' F9 o# n
4、IIcadLayouts 对象
属性：
8 g$ \# c+ u8 H% F" HApplication IIcadApplication取得应用程序对象
Coun long取得包含条目数
1 P6 `# _, \# H& _Parent IIcadDocument 取得父文档对象
# M! M9 C; u* E( @- R方法：
增加一个新的版面
HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);

9 s+ {2 i7 {. V) N$ E取得指定的版面
# J$ V- [# f4 C0 s" ]! BHRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);
5 r1 v$ G3 {2 \* {
+ b7 W4 K' l: P9 k5、IIcadXRecord对象
  _( x1 q- e6 o属性：
Name：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
方法：
取得联合字典的扩展数据
HRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);

设置联合字典的扩展数据
HRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);

6、IIcadDictionary对象
  m1 d1 |) X; R7 s属性
Name：String 指定的对象名称
方法：
: Y9 b9 K% V& g. B& P为命名字典增加一个对象
HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?
( a. E+ R3 J8 x2 u" c1 ^
6 D! d8 G6 U6 G; k+ x取得字典中对象名称（关键字）
  J: m. `( u: [* hHRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);
% O! h1 o1 s9 y( H, G% d$ z
根据指定对象名称（关键字）返回对象
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);

) B9 e2 N$ w! p: @根据指定对象名称（关键字）从字典中删除对象
+ q. B+ _/ ?! Z) ^HRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);

- [' ]. ^' O  p/ B+ d$ Y8 b重命名字典中条目名称
( ^* t7 U  s  H' h, H/ THRESULT Rename([in] BSTR OldName, [in] BSTR NewName);
( v' ?3 v2 C% \
根据指定对象名称（关键字）从字典中替换对象
HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);

根据索引取得字典中对象
HRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);
7 _2 f8 \# F" H0 @
/ O( \! I! i/ N! Y$ K$ a8 X/ \取得字典条目数
HRESULT Count([out, retval] long* pVal);
  M5 N7 s/ J7 z  E
: e9 y! u% L- a6 v5 }% j) w3 U) w在字典中增加扩展数据
HRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);

7、IIcadDictionaries 对象
属性：
7 w- C1 d; _# n  v+ e) u, KApplication IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
% ~" g$ R; _5 `+ k( r0 O方法
5 l3 ?; Y9 v% G+ f3 |* V( K增加一个新的字典
9 H8 H, |. @2 rHRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);
6 [) D( j& U  f) h0 W2 U; M1 z/ p
取得指定的字典
7 @  _  c' V, v! B( f+ W9 L; R/ MHRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);

  P: [& T0 [& w- D8 J8、IIcadGroup对象
2 ]$ s  E$ o+ f属性：
Name：String 指定的对象名称
方法：
根据指定索引取得组中实体对象
1 T/ C& @- n/ ~! ]4 [; uHRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);
, u2 V6 U- g2 x  N6 J
( p% q3 B7 i& B7 J取得组中实体数
HRESULT Count([out, retval] long* pVal);

- ~+ m8 L7 q; N所在图层
HRESULT Layer([in] BSTR layer);
5 O  ^' v/ a& k: b6 s9 u
7 }+ N2 A; K% A; V实体线型
( [' _. R1 @$ w" H, |HRESULT Linetype([in] BSTR linetype);
+ g: _1 Q9 p  l! o& ]8 N
实体线型缩放比例
HRESULT LinetypeScale([in] double linetypeScale);

对象或应用程序的可见性
HRESULT Visible([in] VARIANT_BOOL isVisible);
0 T0 \0 U0 o4 j3 R1 i
设置取得对象或选择集的高亮状态
" Q5 \! B( F' u' x7 [/ C  yHRESULT Highlight([in] VARIANT_BOOL HighlightFlag);

实体的绘制类型名称
: x  M. D- \; K% U7 l# oHRESULT PlotStyleName([in] BSTR plotStyleName);

指定个别实体或缺省线宽
HRESULT Lineweight([in] IcLineWeight lineWeight );
' u3 }) O" `0 Y8 i" K& ?, Z. y3 U, w
增加一个或多个实体倒组中
HRESULT AppendItems([in] VARIANT Objects);

. T, v% q. H& M) w. x8 ~! s+ m( W) c1 E9 W从组中删除指定条目
( b: P1 U7 |7 S, t3 LHRESULT RemoveItems([in] VARIANT Objects);

( j# ^; D* \  a: i5 V更新对象到视图
8 M/ F% q! Q4 Z$ Y& Y9 xHRESULT Update();

& X: v7 x' G6 D5 C指定实体或层颜色
1 z" N2 X' w: D0 N" p) H% o8 `3 @HRESULT Color([in] Colors color);

9、IIcadGroups对象
属性：
. {6 m- _2 |7 t4 m: ?7 f9 H+ HApplication IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法
) ?' v0 x0 d; C9 a9 w增加一个新组
5 P0 O, W# W  F8 I; f& q+ t9 Y; [HRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);
- n0 U* W% h) ?
取得指定的组
: O* r, X) d- b; |$ ]( mHRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem);