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

gaoyaqiang

浩辰ICAD2008 - LSP新增函数及VBA新增对象介绍
+ G9 z$ g  P" K4 x: K3 f1 n一、LSP新增函数：
" e1 c( c$ ~& `5 L3 ]" q1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
函数调用形式：
(vlax-curve-getDistAtParam curve-obj param)
参数：
- V$ T) ]' h% W, ?, r0 ]# @8 }curve-obj 类型：Ads_name 意义：实体
% ]$ Q: T+ I( _! B; dparam 类型：正整数 意义：当前曲线的节点
返回值：
: M  E7 @3 o/ p如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil

2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
1 N8 K, Q- g3 U) X- |: W* i函数调用形式：
(vlax-curve-getDistAtPoint curve-obj point)
! X% u; {) N  A0 I& v9 c& [8 K参数：
curve-obj 类型：Ads_name 意义：实体
, L# L$ ~7 s& V6 H( v5 C( W" NPoint 类型：Ads_point 意义：当前指定点
返回值：
6 w$ {& ?' K2 V" Z如果成功返回从当前曲线的开始到指定点的长度，否则返回nil

3、返回曲线最后节点数vlax-curve-getEndParam
8 ]4 z# N$ `$ x8 f$ @函数调用形式：
(vlax-curve-getEndParam curve-obj)
参数：
" f( k6 X# B7 Z5 `curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点数，否则返回nil

4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
* Z( h; x7 ~* R1 k函数调用形式：
(vlax-curve-getEndParam curve-obj)
  g3 K% O! I# G+ t% K0 H# G参数：
curve-obj 类型：Ads_name 意义：实体
0 u* Z4 |  E/ L4 ?% @+ F* m返回值：
- W/ n2 X7 [2 |1 i4 `) i如果成功返回当前曲线的最后节点值，否则返回nil

5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
函数调用形式：
(vlax-curve-getParamAtDist curve-obj dist)
% f' G% G& T3 V6 E  w; g参数：
) k1 ~0 d8 J, u5 E% Ycurve-obj 类型：Ads_name 意义：实体
8 U# U9 |2 U, Q; ddist 类型：ads_real 意义：指定从曲线端点距离
返回值：
% N- @& P1 G5 }# |$ {" X, h4 i8 r. ]. m如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil
) P6 x4 @- s0 v# f4 S" q2 C
! s# X+ A0 q! _  c. M! g6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
函数调用形式：
(vlax-curve-getParamAtPoint curve-obj point)
/ I) _& ^" Y8 U9 I9 {参数：
curve-obj 类型：Ads_name 意义：实体
( I4 ]% e2 o# D2 \; U0 mpoint 类型：ads_point 意义：指定曲线点
返回值：
  O* g4 R( f! W2 C% E如果成功根据指定曲线点返回曲线上节点参数，否则返回nil
. Z# m6 g( Q! l" C
4 y. d) c" i. N5 j7 ^/ F7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
函数调用形式：
* W; J" s) e) }* n6 O( n* Y" J(vlax-curve-getPointAtDist curve-obj dist)
参数：
curve-obj 类型：Ads_name 意义：实体
; k! @: t) R. Adist 类型：ads_real 意义：指定从曲线端点距离
返回值：
2 C6 c: @7 T4 [如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

# b9 p8 }, c7 k8 {; n$ D: r8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
! y, d2 _) d! p! I# w* D* n. n函数调用形式：
( z4 |" r' r; a(vlax-curve-getPointAtParam curve-obj param)
参数：
2 ]+ r& X, O; m' X) ]% X2 wcurve-obj 类型：Ads_name 意义：实体
0 q9 Q3 ^' T' oparam 类型：正整数 意义：当前曲线的节点
返回值：
1 K  H2 m) z1 _+ P9 j4 h5 |如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

9、返回曲线起始节点参数vlax-curve-getStartParam
4 v4 }) p! n" {函数调用形式：
2 {! O; J" I; ~2 p  m(vlax-curve-getStartParam curve-obj)
参数：
8 u. j9 D- v, a* Ccurve-obj 类型：Ads_name 意义：实体
返回值：
0 Y* l, k: d( o9 `4 i- O+ F如果成功返回当前曲线的起始节点参数，否则返回nil

( q) u# Y) {7 w9 y" _10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
函数调用形式：
8 K& R9 g, Z" x+ e) z(vlax-curve-getStartParam curve-obj)
3 N$ n- `: ~. q: K3 K$ f8 j3 a参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点值，否则返回nil
# h0 q5 V, T5 ^  j1 v
; a! K& [, N3 s/ g  Q
二、VBA新增对象
1、IIcadPlotConfiguration对象
属性：
3 i. p2 T6 s1 C  P$ }2 AName：String 指定的对象名称
CanonicalMediaName：String 指定的规格纸张名称
CenterPlot：BOOL 指定的居中方式
: _0 D$ ^1 f& ~- }! A7 v1 tConfigName：String 绘图区配置名称
4 N' k3 O# e$ C. t6 MPaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
# j% e5 l6 M) s- g6 ^( d/ iPlotHidden：BOOL 绘图过程中对象是否隐藏
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
" w3 i1 X) |5 r* lPlotRotation IcPlotRotation 版面或绘图区配置的旋转角
3 M+ \- z+ w8 qPlotType IcPlotType 版面或绘图区配置的类型
, y3 O3 v/ |0 j1 U7 S0 [* e6 {$ fPlotViewportBorders BOOL 是否绘制视口边界
PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
- ?4 e% O, `) x3 \PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
. S) A% K  K5 [( @$ a3 ^- l% @% GPlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
3 H  s$ @4 R' DScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
ShowPlotStyles BOOL 是否将绘制类型应用倒绘图
; F1 r  f4 X. iStandardScale IcPlotScale 版面或绘制配置的标准缩放
StyleSheet String 版面或绘制配置的类型单
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
ViewToPlot String 绘图区的视图名称
- R3 P9 X4 ^7 b, \9 x+ r方法：
取得绘图区视图的大小
HRESULT GetPaperSize([out] double* Width, [out] double* Height);
! O! x3 `8 m! S) M- T
取得绘图区版面窗口坐标
8 o9 ?& V- i# f) m+ i. A1 RHRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
' s, n' d5 b# _
: |, w& R4 ]. r* C2 n5 x9 J设置绘图区版面窗口坐标
* F+ G2 t& J) U" c; @5 oHRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);
! d& V. p0 e/ ^1 ^1 W
设置自定义缩放值
HRESULT SetCustomScale([in] double Numerator, [in] double Denominator);
+ S2 `2 [. M( A) _! }/ ~/ l; Z( U  c6 Y
( i' V; z: p# B1 t" J! L) U取得自定义缩放值
* m  \0 o0 ~, QHRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);
1 ^3 t& n9 `! }6 R
取得所有可用绘制驱动名称
* h! }; w2 O; X. Y& `% W9 _HRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);

取得所有可用绘制类型表名称
# r: S' D0 T  b) k: HHRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);

取得图纸边界外空白区大小
* g: D9 d& |$ g: [5 X7 {HRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);

0 ^5 E- c# \: g4 c复制指定的绘制配置
& Z  Q5 @3 C. y! u% V- ]HRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);
1 ~& L, M, X1 `* E
取得指定的绘制驱动的所有可用规范设备名称
HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);
9 z6 f# E+ Z# v3 W/ C: _2 G" H. g
; b6 \; e, A7 b: d6 o2 a2 r; I+ b取得本地规范设备名称的版本
/ ?/ }9 ~6 m3 ~+ P9 Y5 OHRESULT GetLocaleMediaName([out, retval] BSTR* pName);
% P* y, S8 m! j( T: z/ w* E( }
, I+ i: f! I& O- k更新当前系统状态的绘制、规范设备、和绘制类型表信息
2 L2 E. b2 z/ R& r/ Y8 ~$ L$ e: mHRESULT RefreshPlotDeviceInfo();

绘制配置是仅应用到模型空间还是所有版面
/ x/ F- \. d; u$ O! Z* AHRESULT ModelType([out, retval] VARIANT_BOOL* pVal);
! Z' l! K' A/ g0 B, b8 V
2、 IIcadPlotConfigurations 对象
属性：
4 r( _- e  @' j% pApplication IIcadApplication 取得应用程序对象
% A+ h' @  P1 y1 Y9 HCount long 取得包含条目数
Parent IIcadDocument 取得父文档对象
方法：
增加一个新的绘制配置
& _1 k4 O, e8 L8 ]( N: E  D" U! [HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);

取得指定的绘制配置
HRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);
" {! d# ?7 T' p1 g5 U4 q
3、IIcadLayout
属性：
& H* L, }7 n8 t+ q/ e8 s# nBlock IIcadBlock 取得版面的联合块
3 f4 V6 t( q5 ~TabOrder long 版面的tab顺序
3 q' }) X5 n; t4 V: z: {8 e- o% L
4、IIcadLayouts 对象
属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
3 ^! q' F; y. l7 U# G7 t方法：
% ~% I6 j. n+ n6 T增加一个新的版面
0 y- m/ g# V: n" B+ |- EHRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);
8 K' m+ G7 F4 F1 d
9 Y  {  Q& O/ ?& l& L4 }7 m9 M取得指定的版面
. Q& Z4 f( H3 B$ U1 r) QHRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);

5、IIcadXRecord对象
' S% l$ _7 w8 Y) M7 S8 q属性：
Name：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
方法：
取得联合字典的扩展数据
% d6 W. q& ]. m. C4 z* F$ uHRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);
: A! d0 j) I! H- o1 p( \7 l
6 M) a/ t  |. m9 c# b0 b设置联合字典的扩展数据
+ \& ?5 }( ]! C0 Z/ d7 e# M& p1 LHRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);

+ G7 D9 e" p  M3 g7 [7 P! F6、IIcadDictionary对象
7 h4 |9 Z; O! w& E2 J" Z9 B. X4 B属性
3 R5 U2 X7 z+ AName：String 指定的对象名称
, }/ o6 i! c) g方法：
3 f; f/ ?! X' y/ I0 o为命名字典增加一个对象
HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?

取得字典中对象名称（关键字）
6 A- S2 j& D. V- z( u) u0 n* x) `HRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);
2 G; |' I! R- h* g" A
/ h6 d6 B/ `) C! J8 z6 M* h根据指定对象名称（关键字）返回对象
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);
9 p% P, @; V$ L% t" X
根据指定对象名称（关键字）从字典中删除对象
HRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);

: d$ H" `# l# ?; l) x* a. A6 `. ~重命名字典中条目名称
HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);
7 o$ i7 U& y: X+ J: u
: V" q; X% m. r; g  G7 ]) a根据指定对象名称（关键字）从字典中替换对象
# _4 ?  O6 T5 T3 eHRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);
$ Y. v  l( j$ y+ l
9 b4 P2 _: G- U9 [- p& r6 k根据索引取得字典中对象
3 F1 W& d$ W% z4 aHRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);

/ r, N' V. Y5 l% A# Y5 [9 E取得字典条目数
' q/ C& K& A9 i' j7 hHRESULT Count([out, retval] long* pVal);

: u, E" d, d" H- Z6 s在字典中增加扩展数据
- N* q7 O. A# k$ ]. H8 |4 G4 O: q; l. }+ rHRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
; o2 C( T' h' m) r$ x9 a4 b3 `
7、IIcadDictionaries 对象
属性：
% @! x- Z" A% nApplication IIcadApplication取得应用程序对象
: z9 \0 H/ m  Y3 |: vCoun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法
1 [! q9 {. s/ r. l7 r: M增加一个新的字典
HRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);
, ?1 l; Y% ?. [- ]0 n
" ^5 z) g0 o6 ^& m# d取得指定的字典
HRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);

8、IIcadGroup对象
% w" B5 t6 O, |3 d- o属性：
Name：String 指定的对象名称
# d2 ]* e4 A, h, T* v方法：
  j- {# E, P: E根据指定索引取得组中实体对象
+ A  S: B$ D' Z3 W- }) mHRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);

取得组中实体数
HRESULT Count([out, retval] long* pVal);

7 O; V! u% @& [! y5 J3 d3 `1 x所在图层
! r$ D$ ~' W8 b; V9 |. B$ o% AHRESULT Layer([in] BSTR layer);
( Y) w4 l$ X+ P1 R' S# q
+ x& E- U7 F7 H8 ^" q$ k实体线型
" _% A$ U9 j4 V) }0 O5 J0 S# `HRESULT Linetype([in] BSTR linetype);

实体线型缩放比例
HRESULT LinetypeScale([in] double linetypeScale);

. s7 A- A. l5 f6 ]( ~, _对象或应用程序的可见性
" t  R3 A) @- P. b0 dHRESULT Visible([in] VARIANT_BOOL isVisible);
0 Q( m$ Y! a' V4 \& J6 H+ g: S
! `& v8 L! u5 T" z5 v) ]& V- C设置取得对象或选择集的高亮状态
HRESULT Highlight([in] VARIANT_BOOL HighlightFlag);

实体的绘制类型名称
  W' B+ \% t* @# S$ i# nHRESULT PlotStyleName([in] BSTR plotStyleName);

指定个别实体或缺省线宽
0 C' }; j8 Z/ I$ C% b' s% MHRESULT Lineweight([in] IcLineWeight lineWeight );
& h/ Z3 ]# P6 O9 k$ s9 H6 P
增加一个或多个实体倒组中
" B& d7 h3 R% p! |HRESULT AppendItems([in] VARIANT Objects);
' X" ~* b6 u4 N" l
: z; |4 t, N7 H3 p! Q从组中删除指定条目
HRESULT RemoveItems([in] VARIANT Objects);

( D# W' ]* d; @7 `. o% r更新对象到视图
HRESULT Update();

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

9、IIcadGroups对象
' g$ `% R5 o, c/ t0 |: K- ~属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
, @, `: n" R3 Q1 k0 e7 g  U0 }Parent IIcadDocument 取得父文档对象
方法
) X. K# ~5 @/ w( o5 g' G& u增加一个新组
HRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);

取得指定的组
HRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem);