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

gaoyaqiang

浩辰ICAD2008 - LSP新增函数及VBA新增对象介绍
! w7 i5 J- G! h% R3 ]( v3 s9 x一、LSP新增函数：
" k- P, |/ s, ^$ A! B. o1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
函数调用形式：
(vlax-curve-getDistAtParam curve-obj param)
参数：
curve-obj 类型：Ads_name 意义：实体
param 类型：正整数 意义：当前曲线的节点
1 D  b" d6 G- Y2 z返回值：
( v- l) J) I9 o如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil

2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
" f5 S" \( ?8 W. t8 }! J" B函数调用形式：
8 ]  }3 Y: [, v, k(vlax-curve-getDistAtPoint curve-obj point)
参数：
- p7 |" k$ I! ?# O$ @4 gcurve-obj 类型：Ads_name 意义：实体
6 [4 }$ {4 Z! l1 }. l7 e8 Y5 NPoint 类型：Ads_point 意义：当前指定点
返回值：
如果成功返回从当前曲线的开始到指定点的长度，否则返回nil
7 ~$ V2 D4 Q. {3 X: O
0 g3 z' j* \6 C. f: x7 \3、返回曲线最后节点数vlax-curve-getEndParam
0 a& @9 r# Q; E: K函数调用形式：
(vlax-curve-getEndParam curve-obj)
参数：
* m/ K. L1 c* m. d3 ~9 {+ fcurve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点数，否则返回nil

4 Y$ Z$ ~! \' \& I4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
/ H+ `) u. q; [5 f7 G函数调用形式：
(vlax-curve-getEndParam curve-obj)
6 `/ d* M9 F& J1 Z& P参数：
/ b8 j/ V/ ~5 T, Vcurve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点值，否则返回nil
. n$ Q- O* f' m) b4 u- L# l
. o: ^9 S. f7 z" F5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
函数调用形式：
  ~* l/ K9 Y! Q8 P. K1 `7 c3 E8 |(vlax-curve-getParamAtDist curve-obj dist)
6 H) l7 j+ N' t9 h* h参数：
$ v7 V- V# \1 e& F/ [2 u# s5 vcurve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
返回值：
如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil

: S( s5 _+ y9 z) O6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
9 M3 t9 j/ n$ \7 l) A函数调用形式：
$ g! b& L6 t3 O6 u(vlax-curve-getParamAtPoint curve-obj point)
6 {9 D  w% _+ n9 V7 z" L/ T: N7 B; {参数：
curve-obj 类型：Ads_name 意义：实体
: w0 z. J. J4 m$ lpoint 类型：ads_point 意义：指定曲线点
7 K; k) N# q: s5 |  Z3 n) u- S6 y+ E% B返回值：
" Z2 t& R8 n/ _/ |( M如果成功根据指定曲线点返回曲线上节点参数，否则返回nil

7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
函数调用形式：
# ]2 s: L" _, d7 ~(vlax-curve-getPointAtDist curve-obj dist)
参数：
% D( a7 y  ^) l' _8 J& g7 j  B9 ^3 L$ Z* I& ?curve-obj 类型：Ads_name 意义：实体
0 w1 [1 q5 O  x4 C$ _- k7 Jdist 类型：ads_real 意义：指定从曲线端点距离
0 Y1 A5 ?7 u! P( h5 t返回值：
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
' R& i9 s/ @5 p- d' V( ^* g! w' q
8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
函数调用形式：
$ v3 {( |; g; Y! G+ b(vlax-curve-getPointAtParam curve-obj param)
. ~4 r$ {/ Y8 q5 `8 X参数：
curve-obj 类型：Ads_name 意义：实体
0 W3 Z3 |5 I, D: u) ]param 类型：正整数 意义：当前曲线的节点
返回值：
9 G6 \' f( t' p" h如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

9、返回曲线起始节点参数vlax-curve-getStartParam
函数调用形式：
% z7 o4 `- l7 W4 q0 E4 F3 N+ ~: N(vlax-curve-getStartParam curve-obj)
; L0 L, g, e+ L5 h! `, q' U. i参数：
curve-obj 类型：Ads_name 意义：实体
  Z) ^  L. L  M# z* {返回值：
) j" a- E2 e! o. ~4 D如果成功返回当前曲线的起始节点参数，否则返回nil

10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
函数调用形式：
) n; I; y+ r" N4 f$ s(vlax-curve-getStartParam curve-obj)
参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点值，否则返回nil
/ a3 L8 d  T6 c* s8 U/ f
* c$ n3 I% g1 M
6 ]2 C# @  Q0 c, L2 U二、VBA新增对象
1、IIcadPlotConfiguration对象
属性：
( P$ H# @" n& \9 O6 }. b) pName：String 指定的对象名称
CanonicalMediaName：String 指定的规格纸张名称
CenterPlot：BOOL 指定的居中方式
ConfigName：String 绘图区配置名称
PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
PlotHidden：BOOL 绘图过程中对象是否隐藏
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
- N; L4 M/ m7 u9 M: APlotRotation IcPlotRotation 版面或绘图区配置的旋转角
PlotType IcPlotType 版面或绘图区配置的类型
" y1 i4 X' a: e5 }7 uPlotViewportBorders BOOL 是否绘制视口边界
8 Q, b7 F0 X$ ^. p+ k7 R( JPlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
PlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
. L! X& @4 _; P9 p1 d; z( U) |ScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
9 V, ^" |' V5 Z6 S1 X: DShowPlotStyles BOOL 是否将绘制类型应用倒绘图
, N7 q# B2 S/ ^# C* B9 R! qStandardScale IcPlotScale 版面或绘制配置的标准缩放
" ]0 h0 I6 w. n6 \2 E+ ?) tStyleSheet String 版面或绘制配置的类型单
( n9 o& |9 ^3 d$ J3 p( cUseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
ViewToPlot String 绘图区的视图名称
, H: N# n/ O) \. u方法：
6 E0 D. G0 z+ N. O, s! y取得绘图区视图的大小
HRESULT GetPaperSize([out] double* Width, [out] double* Height);

: B- \  q6 d2 x0 j5 j取得绘图区版面窗口坐标
" C% h( g8 l- K1 \& {HRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);

$ W! _$ R. g  i/ f设置绘图区版面窗口坐标
+ N" V6 l  [2 A) d! f* w' p# VHRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);

( ^' l& b) F* @9 _设置自定义缩放值
$ s6 [! g$ T# E6 p. _HRESULT SetCustomScale([in] double Numerator, [in] double Denominator);
" }) e9 t4 W3 y! [/ B
# m8 u% d4 h% d7 t5 S% j- ^2 u, n& |取得自定义缩放值
% q0 ^* v9 N  G: b( }HRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);

% M3 h! v1 A" v/ a取得所有可用绘制驱动名称
' U. Z$ b# W% mHRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);

: z6 W) J7 \8 A! X& n7 x取得所有可用绘制类型表名称
HRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);

取得图纸边界外空白区大小
: T5 F: _5 F: b! I0 @! t* dHRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
( Z$ a, S" W' n" q6 B, K- C4 n
8 v# a3 f- B. T' G4 A复制指定的绘制配置
  i' s1 @2 o! U/ ]! N9 `" y' cHRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);
9 {+ ^8 N7 H0 f2 h# c1 M
取得指定的绘制驱动的所有可用规范设备名称
HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);
9 Q" d8 V+ J' A# s. p* ~& D, A
取得本地规范设备名称的版本
  E" T$ t+ a  J! qHRESULT GetLocaleMediaName([out, retval] BSTR* pName);
; c1 _3 s9 x9 r, {( o- J  v$ F
- m8 q2 D$ r) a  E! X1 C更新当前系统状态的绘制、规范设备、和绘制类型表信息
HRESULT RefreshPlotDeviceInfo();

* J2 p* K1 P/ S, w* L0 N绘制配置是仅应用到模型空间还是所有版面
4 J; R4 w" h$ y, ?4 xHRESULT ModelType([out, retval] VARIANT_BOOL* pVal);
" y3 r9 y4 J0 E% f% _8 p
2、 IIcadPlotConfigurations 对象
属性：
Application IIcadApplication 取得应用程序对象
Count long 取得包含条目数
) x% \" v  U1 h$ kParent IIcadDocument 取得父文档对象
方法：
增加一个新的绘制配置
1 U% Z: c, e) _HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);
' G; ]' O& k/ F' I0 d. [0 n
取得指定的绘制配置
HRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);

3、IIcadLayout
* x  y1 c2 V& {) r; ?: F+ `属性：
2 n) A8 `) w$ C* ^3 EBlock IIcadBlock 取得版面的联合块
8 ?. |( K6 B' d2 R: lTabOrder long 版面的tab顺序
3 a; ]# H+ m, L  V8 e
4、IIcadLayouts 对象
属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
; `; r! ~' b6 C9 \& ]3 FParent IIcadDocument 取得父文档对象
方法：
" i, F6 b/ C: t8 v$ k0 M, U4 O增加一个新的版面
HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);

取得指定的版面
HRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);
" v3 q% \2 U5 `/ ?" T
5、IIcadXRecord对象
  ]3 ]4 O' w0 _7 m3 C属性：
( W+ @1 d4 I  P, S0 J1 P8 R& U, HName：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
方法：
$ ~5 B6 y! r# A& p6 `* A0 C( B取得联合字典的扩展数据
' b! w3 E4 G* s# {6 x! dHRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);
9 M3 h" K) l( J  }7 B0 U
设置联合字典的扩展数据
/ F) p+ r$ ~( q, P0 QHRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);
+ O- o+ r, o; p9 V: C
6、IIcadDictionary对象
9 G" F5 F1 X" z' S3 B属性
Name：String 指定的对象名称
7 u4 Z. M8 k7 |' s/ i4 }2 {4 X方法：
为命名字典增加一个对象
$ C2 i3 j6 ]0 f3 C, T- _HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?

) j. x! A+ J  V+ g. @取得字典中对象名称（关键字）
  T) Z1 e; `- A  o3 `3 t3 |HRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);

- P; V. {3 U2 e4 J3 _根据指定对象名称（关键字）返回对象
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);
1 Q) A5 I( S" N' k. \4 N" F
0 {- v% J$ Y2 Q; ?) u: i) o  ?0 u5 F6 T: n根据指定对象名称（关键字）从字典中删除对象
HRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);

+ i% o& E4 o6 t; S6 k( _( q! s重命名字典中条目名称
HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);

$ W! q; y' q* i根据指定对象名称（关键字）从字典中替换对象
HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);

9 `5 ~" @$ V5 E6 J根据索引取得字典中对象
HRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);

取得字典条目数
HRESULT Count([out, retval] long* pVal);
2 v/ }2 @# ]. Z8 [
( F- L. {2 u  F+ ^0 D! _& n在字典中增加扩展数据
7 c* }) ]$ u6 n( z" @$ {8 M6 T# rHRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
0 \, P7 O1 M4 e* S7 e4 y0 W
  Q. A( |$ B- }4 l3 D  i6 l7、IIcadDictionaries 对象
! o$ b' T+ F5 X3 n- J2 C属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
4 m% W% F8 u9 v$ i& N" b4 L方法
增加一个新的字典
: O/ w* G: E, {) W: H7 VHRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);

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

1 s4 R% C3 W, d. P: W5 G8、IIcadGroup对象
属性：
4 d* q: E) {7 e5 LName：String 指定的对象名称
- l) j( J2 E0 A) n+ m方法：
根据指定索引取得组中实体对象
HRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);

取得组中实体数
* H3 P3 K# F/ ~; |1 ^4 B& rHRESULT Count([out, retval] long* pVal);
0 U4 `' }( J. t: M' Q8 L& O+ o
$ \+ Y0 b) p  v3 k7 ?) T/ `所在图层
0 j* V7 C* o3 i9 pHRESULT Layer([in] BSTR layer);
# C0 X" X% W4 e2 D3 E% o
实体线型
HRESULT Linetype([in] BSTR linetype);

: C+ `  X4 m) i( x0 Y实体线型缩放比例
: L  T% A- L2 V' @+ w- d! ~HRESULT LinetypeScale([in] double linetypeScale);
3 S8 G! a! E" F! ~
0 t8 G# a5 e% ^( N/ y# H对象或应用程序的可见性
HRESULT Visible([in] VARIANT_BOOL isVisible);

* K0 Z. O) P) g1 h1 {设置取得对象或选择集的高亮状态
0 [! Y3 ?+ Q5 \  h6 s5 k+ jHRESULT Highlight([in] VARIANT_BOOL HighlightFlag);

2 R: @4 H9 ~& |8 t9 g, L6 v: K实体的绘制类型名称
HRESULT PlotStyleName([in] BSTR plotStyleName);
' k/ v. ]: a* u) m
指定个别实体或缺省线宽
HRESULT Lineweight([in] IcLineWeight lineWeight );
1 c6 e. e5 T( ^9 L. f, j' ^/ _
增加一个或多个实体倒组中
HRESULT AppendItems([in] VARIANT Objects);
" \+ N3 R) {9 ]& [, \: w5 p% `
从组中删除指定条目
) D6 N/ r* f% c0 R7 S7 OHRESULT RemoveItems([in] VARIANT Objects);

更新对象到视图
HRESULT Update();
: w! W/ f. z9 z0 |
指定实体或层颜色
HRESULT Color([in] Colors color);
$ H4 g" K8 s! E8 a) R2 G1 a$ h
5 W5 V+ z- N# ^, V0 m* V9、IIcadGroups对象
属性：
7 V! ]# {7 ^# f" P! j& YApplication IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法
增加一个新组
5 r8 e3 a6 s6 ^- D* ^  }1 vHRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);

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