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

suno

一、LSP新增函数：
4 S. P  M' N( _- m" P1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
7 c  g& Q/ U6 c函数调用形式：
; {7 h; H& j% p3 U; v$ d(vlax-curve-getDistAtParam curve-obj param)
3 M& H1 p2 J4 E- ^! {参数：
3 H" c7 [8 j  ]0 g5 T( A' R) ycurve-obj 类型：Ads_name 意义：实体
# o# x) K) e8 }+ k7 Y+ O0 E5 r5 E" Kparam 类型：正整数 意义：当前曲线的节点
& W! i) A2 z( B  u9 e返回值：
如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
) e8 u9 T5 B+ T" n) t( j% H( y
2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
: n. \1 L; Y. e0 {函数调用形式：
% x% x9 P( z% V. B6 V(vlax-curve-getDistAtPoint curve-obj point)
/ g* `- m$ w% }0 C参数：
! g* J- E# I( h+ G' t# kcurve-obj 类型：Ads_name 意义：实体
- e$ Q* L9 O9 Q9 n8 U* A# QPoint 类型：Ads_point 意义：当前指定点
" {3 O2 _8 M3 @+ t8 C6 [返回值：
( Q! }: p5 p" H3 j+ P3 f! S, r如果成功返回从当前曲线的开始到指定点的长度，否则返回nil

3、返回曲线最后节点数vlax-curve-getEndParam
6 m  f0 r  F7 z' c3 ~函数调用形式：
9 X7 o6 b: {, A" Z8 Z; w. ?6 B. a(vlax-curve-getEndParam curve-obj)
) K* ^+ \( @' G% S/ J* h: U) G参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点数，否则返回nil
  {2 t2 u& |8 s
4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
函数调用形式：
% S) Y2 l+ b; V# p(vlax-curve-getEndParam curve-obj)
/ y9 _( L' T  n参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的最后节点值，否则返回nil
# ?: {4 `- w) k5 h8 S
* r& K8 D) z- A3 T  ~5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
函数调用形式：
* o% ^, w5 X4 M/ ?  l7 L, |(vlax-curve-getParamAtDist curve-obj dist)
5 ]2 \- ~0 \5 ]: T, ^  x5 H2 y参数：
curve-obj 类型：Ads_name 意义：实体
dist 类型：ads_real 意义：指定从曲线端点距离
& n. t  I+ P% a8 k返回值：
如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil
8 f( o" p7 U: d) b' ^! ^; g
& A2 k) R0 D$ o4 d" H* e% g6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
1 D0 L( k( k* Q  r; E5 F函数调用形式：
$ [8 x. P6 Q* w  F: f(vlax-curve-getParamAtPoint curve-obj point)
参数：
curve-obj 类型：Ads_name 意义：实体
point 类型：ads_point 意义：指定曲线点
# l/ G3 n0 ~( Q; G5 Z  _0 c返回值：
如果成功根据指定曲线点返回曲线上节点参数，否则返回nil
, q/ Z/ |9 F4 Z
7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
' k2 u+ D" H9 y& @" A2 V3 `$ ~+ j函数调用形式：
(vlax-curve-getPointAtDist curve-obj dist)
参数：
2 e7 i0 D0 k0 Wcurve-obj 类型：Ads_name 意义：实体
' c! k% E' J& ~2 E% W- `dist 类型：ads_real 意义：指定从曲线端点距离
返回值：
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil
. [/ q- e& @+ f( W  w9 d/ N; V
) u; V6 r8 N+ g& c  {0 p8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
函数调用形式：
5 Z7 U. @3 s$ ?, k+ m) v(vlax-curve-getPointAtParam curve-obj param)
" d4 _) l5 I: Q9 Y参数：
curve-obj 类型：Ads_name 意义：实体
, J2 J- [  {* oparam 类型：正整数 意义：当前曲线的节点
' \4 |; S- i9 z3 ?返回值：
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

8 }: W' d# J* L1 E9、返回曲线起始节点参数vlax-curve-getStartParam
9 A2 O# |( J# W/ {' ^! i函数调用形式：
5 @3 Z2 M8 B  A(vlax-curve-getStartParam curve-obj)
参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
3 I8 e& Z8 D( Q; B8 J7 T如果成功返回当前曲线的起始节点参数，否则返回nil
+ K- B- s6 R' b6 i
10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
$ l" }' b' z0 j/ z4 \% N, s1 q函数调用形式：
9 d0 C4 G' b: h(vlax-curve-getStartParam curve-obj)
7 u# X6 ]  }$ A. x# q参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点值，否则返回nil
' k: z9 [6 d; C: R5 l$ k
4 y! _3 r/ V* I, A; b( K
! G0 \# P4 r0 N, b二、VBA新增对象
, D+ A, z; |) i! K1、IIcadPlotConfiguration对象
属性：
4 v( _# N7 p+ uName：String 指定的对象名称
, @6 ~$ k3 w+ Q- aCanonicalMediaName：String 指定的规格纸张名称
" N1 m) h0 U! V% d( oCenterPlot：BOOL 指定的居中方式
4 d1 x4 Y5 v* D. oConfigName：String 绘图区配置名称
PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
. \1 E  e  h! ^6 r+ j, Q7 BPlotHidden：BOOL 绘图过程中对象是否隐藏
& C8 m9 ]# D; `5 H2 m3 EPlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
PlotRotation IcPlotRotation 版面或绘图区配置的旋转角
$ Z. q" Q5 m- E* t8 j, D) aPlotType IcPlotType 版面或绘图区配置的类型
: a2 Y/ v: J7 w2 A& U+ @PlotViewportBorders BOOL 是否绘制视口边界
! I7 I% M& i# d1 Y! Z1 @  rPlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
" H/ u! A& M: X. h% h6 i! KPlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
- m- }8 b6 h" M; L8 EScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
0 L( Z; L5 g) x5 D) @ShowPlotStyles BOOL 是否将绘制类型应用倒绘图
StandardScale IcPlotScale 版面或绘制配置的标准缩放
StyleSheet String 版面或绘制配置的类型单
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
ViewToPlot String 绘图区的视图名称
, i. W  f/ w, Q/ ]& Q方法：
取得绘图区视图的大小
" V/ {2 ^. R5 ^" q9 X* oHRESULT GetPaperSize([out] double* Width, [out] double* Height);
2 A/ s4 P1 y% w
取得绘图区版面窗口坐标
9 f, W' |5 q5 A! o( b' o' K; h$ ]HRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);

1 w9 f0 u2 o! }3 b设置绘图区版面窗口坐标
! E' v  y5 u+ c+ WHRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);

设置自定义缩放值
+ ^" O: e; B9 K8 W- J  U, dHRESULT SetCustomScale([in] double Numerator, [in] double Denominator);

取得自定义缩放值
HRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);
$ k, i" O4 G( l+ H7 |* o
/ ~# R5 C6 z8 L$ p  b取得所有可用绘制驱动名称
* }; |0 d. c* Q  k. qHRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);
! P: }0 X7 C' x: y  p
取得所有可用绘制类型表名称
HRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);

取得图纸边界外空白区大小
HRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
: Z! z! ~  a/ v) b" F* t
" V: q* k2 o# e" D复制指定的绘制配置
2 K; I2 _; ?5 ^' p/ lHRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);

取得指定的绘制驱动的所有可用规范设备名称
( [" b. \. m7 P) T" Z' H0 P, l9 n' IHRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);
  l: X& o4 w& D/ b
8 p1 [, O' h' a. O  A+ r; k取得本地规范设备名称的版本
HRESULT GetLocaleMediaName([out, retval] BSTR* pName);

8 T; N  I0 S  O, R- A更新当前系统状态的绘制、规范设备、和绘制类型表信息
HRESULT RefreshPlotDeviceInfo();
0 F* e) `3 {+ f- [- c# j0 w
绘制配置是仅应用到模型空间还是所有版面
HRESULT ModelType([out, retval] VARIANT_BOOL* pVal);
1 h; _' K1 e- f: `/ @& p
2 J4 S: b3 A1 L/ ]2、 IIcadPlotConfigurations 对象
属性：
7 N1 B) ?0 P9 x$ ~* _0 ~# S) [! fApplication IIcadApplication 取得应用程序对象
$ e" i! _% ~" DCount long 取得包含条目数
2 p1 u( f2 j" E# n2 ZParent IIcadDocument 取得父文档对象
" z" B7 h! f3 C2 T# {7 j# l" l方法：
增加一个新的绘制配置
HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);

取得指定的绘制配置
8 I- P% ]% J3 X8 `4 t* l  U: {! eHRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);
7 y# V( ~2 h6 W0 K
% x4 {2 T% C! {5 ]" l' u3、IIcadLayout
属性：
Block IIcadBlock 取得版面的联合块
TabOrder long 版面的tab顺序

4、IIcadLayouts 对象
属性：
8 h2 @! z# \$ t: e5 e) jApplication IIcadApplication取得应用程序对象
8 d: j" o8 ]3 D5 |9 A& |7 ACoun long取得包含条目数
Parent IIcadDocument 取得父文档对象
方法：
* l$ l1 q. }- p# G, N增加一个新的版面
HRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);
  ]* o2 ^9 y; d2 t- s7 O
* y% y2 \2 q" m: f% X取得指定的版面
. m( `- C4 H1 V$ ]+ PHRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);
; ]! e+ h) W% j* `( Q( t
$ d. ?1 e0 [1 Z7 s5、IIcadXRecord对象
, Q7 ?# C4 p; A; q) ^属性：
3 ~0 L4 x- [8 r3 gName：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
) \8 W; D# ?. ]9 E" s  u9 R6 |方法：
取得联合字典的扩展数据
3 x$ }6 q. `( h- R7 {; z. k5 OHRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);
0 v& l4 S! ]% N9 r
设置联合字典的扩展数据
HRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);

6、IIcadDictionary对象
属性
# M8 o4 }- ~& A- H" F. cName：String 指定的对象名称
3 S+ d$ t" K5 d. Z方法：
为命名字典增加一个对象
5 K7 k: {0 q- U3 G0 y/ CHRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?

取得字典中对象名称（关键字）
! G% i3 r, f( {# m7 kHRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);

根据指定对象名称（关键字）返回对象
HRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);

根据指定对象名称（关键字）从字典中删除对象
HRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);

1 U: {. N( l9 S; o9 P" }* i( ]8 N) R重命名字典中条目名称
HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);

. l# c" f0 D. e1 [8 D根据指定对象名称（关键字）从字典中替换对象
% u+ X  |5 M0 e& _. s+ iHRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);

2 Q( }: h8 v& \4 L5 l) m根据索引取得字典中对象
HRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);
# R$ R7 Y. z% ]0 b1 Q: z6 t8 i
取得字典条目数
3 B) _" M5 j, I; mHRESULT Count([out, retval] long* pVal);
8 u0 N* b1 R9 y6 I. d3 x
5 S, L8 ?( ?3 }在字典中增加扩展数据
HRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
3 g& {$ E# N; a/ E( v
7、IIcadDictionaries 对象
属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
4 ^4 E& s4 o$ q) ^% U% r2 l! Y: A. LParent IIcadDocument 取得父文档对象
方法
增加一个新的字典
HRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);

7 z) A. O/ {1 m& g: a& a" \$ ^取得指定的字典
+ G( E0 z9 m% k! }HRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);

8 p2 o( T3 ?% K- y: `& Y8、IIcadGroup对象
属性：
" p( E) X  Q8 z5 qName：String 指定的对象名称
方法：
根据指定索引取得组中实体对象
HRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);

取得组中实体数
" ]6 N4 ]2 O. B% V$ }/ THRESULT Count([out, retval] long* pVal);

所在图层
HRESULT Layer([in] BSTR layer);
9 u' u8 o. e. G; b( X! o, D. |
实体线型
HRESULT Linetype([in] BSTR linetype);

, X. s) S: d% f$ r实体线型缩放比例
; e- g# W- T) k! Y. x6 xHRESULT LinetypeScale([in] double linetypeScale);
9 F. j6 S7 [2 `+ Z* B
/ v0 O' Q/ V$ p9 _# U% E5 q. l对象或应用程序的可见性
HRESULT Visible([in] VARIANT_BOOL isVisible);
/ x! w3 E9 ]& J4 Z  B0 W
设置取得对象或选择集的高亮状态
' n& }+ G) A" Y( THRESULT Highlight([in] VARIANT_BOOL HighlightFlag);

* E1 r- l) }' p. u' t实体的绘制类型名称
HRESULT PlotStyleName([in] BSTR plotStyleName);

指定个别实体或缺省线宽
HRESULT Lineweight([in] IcLineWeight lineWeight );
5 l- R( Q& b2 l# K, `. C
增加一个或多个实体倒组中
4 T% K0 p! g# i7 [. F- O. {) `9 o* vHRESULT AppendItems([in] VARIANT Objects);
; c% z) l9 b% g
从组中删除指定条目
HRESULT RemoveItems([in] VARIANT Objects);
: y  \: D1 x; D3 N: ~9 g
" N9 P6 S2 p0 o" l更新对象到视图
HRESULT Update();

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

4 i. K8 w% E( q: g' p9、IIcadGroups对象
- F, ^3 Q! x* s) m- _5 @& `& M属性：
  p: U# z) b6 E, u) \5 _0 oApplication IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
5 z6 Z' A, R- u方法
6 `: q: G. b. ~0 O7 ]. s" r增加一个新组
, i1 ?2 ~/ c$ A# YHRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);
/ m2 B7 _% f) Z8 L+ x5 B! t2 @. m
取得指定的组
# D* C  S( o  _1 kHRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem);