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

gaoyaqiang

浩辰ICAD2008 - LSP新增函数及VBA新增对象介绍
一、LSP新增函数：
$ s1 s- P7 Q1 j4 M; d+ g1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam
函数调用形式：
(vlax-curve-getDistAtParam curve-obj param)
+ z6 i. K0 p+ O# p4 ?" J1 V' n参数：
% i3 B7 e9 d( {7 Kcurve-obj 类型：Ads_name 意义：实体
0 U4 W: s( K' O% Tparam 类型：正整数 意义：当前曲线的节点
$ E( W, Q- v2 j- J4 G' a7 }4 u& R" [返回值：
如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil
  e$ p9 X; {, }) a) F9 h
2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint
0 b, ~3 m/ ]" E0 L函数调用形式：
(vlax-curve-getDistAtPoint curve-obj point)
参数：
curve-obj 类型：Ads_name 意义：实体
Point 类型：Ads_point 意义：当前指定点
返回值：
1 V0 S# f- B1 ?; v; W  ?* j如果成功返回从当前曲线的开始到指定点的长度，否则返回nil

8 v3 s! r. @* J0 @5 ?& a" u# Y3、返回曲线最后节点数vlax-curve-getEndParam
函数调用形式：
(vlax-curve-getEndParam curve-obj)
参数：
- K# A6 r0 F' }# V0 Rcurve-obj 类型：Ads_name 意义：实体
. R5 W7 B+ Z. ]2 x3 ]4 [返回值：
; L* q" j4 a: B0 h& B. _/ W6 ?如果成功返回当前曲线的最后节点数，否则返回nil

4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint
( X8 M- o% M) O9 f7 c" u: o$ ?函数调用形式：
(vlax-curve-getEndParam curve-obj)
: D3 _6 Y$ w+ w! o. s参数：
) j+ p6 s$ B4 Vcurve-obj 类型：Ads_name 意义：实体
返回值：
& o1 @( d7 a2 I& T4 w( R如果成功返回当前曲线的最后节点值，否则返回nil
0 B( |$ U* A" \2 b" |
5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist
: U, v% H" ~# x6 H) |2 b函数调用形式：
(vlax-curve-getParamAtDist curve-obj dist)
参数：
curve-obj 类型：Ads_name 意义：实体
- P* ]1 ~3 U( b: M: ?( l# |dist 类型：ads_real 意义：指定从曲线端点距离
% ]3 o7 J; M0 E" c  T* F返回值：
如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil
( `6 p- \5 J" B$ A: A" R
6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint
函数调用形式：
1 p* o8 s6 w6 w# ~# \, s& U& y; i(vlax-curve-getParamAtPoint curve-obj point)
* P! Z( u; i( P, K( |参数：
curve-obj 类型：Ads_name 意义：实体
$ U# p7 B6 T1 m3 q, p. lpoint 类型：ads_point 意义：指定曲线点
返回值：
% z4 b! Y3 B& k3 K5 W如果成功根据指定曲线点返回曲线上节点参数，否则返回nil

7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist
函数调用形式：
7 R" `7 Q( d* c' {) i9 L/ L0 V1 A(vlax-curve-getPointAtDist curve-obj dist)
参数：
curve-obj 类型：Ads_name 意义：实体
7 N6 ~' ^$ X3 V, qdist 类型：ads_real 意义：指定从曲线端点距离
返回值：
如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

9 c9 Y, X$ k/ ~6 a% g0 n8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam
$ g) u+ u8 [) \7 M0 d函数调用形式：
(vlax-curve-getPointAtParam curve-obj param)
参数：
curve-obj 类型：Ads_name 意义：实体
param 类型：正整数 意义：当前曲线的节点
3 i. a1 L5 s- A; j返回值：
4 L7 S7 T9 i, ^) R+ k1 Z4 u如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil

9、返回曲线起始节点参数vlax-curve-getStartParam
函数调用形式：
(vlax-curve-getStartParam curve-obj)
参数：
8 A1 z, W9 ]$ ]- r- f/ q# bcurve-obj 类型：Ads_name 意义：实体
; l, B' n! E$ U+ R0 C" E0 q返回值：
- n/ K3 Q  Z6 L; b& I如果成功返回当前曲线的起始节点参数，否则返回nil

10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint
8 Q% N* p2 k% j3 n+ S3 f% t函数调用形式：
6 t$ q0 U2 v" V(vlax-curve-getStartParam curve-obj)
1 l5 J" q) T, S1 ?参数：
curve-obj 类型：Ads_name 意义：实体
返回值：
如果成功返回当前曲线的起始节点值，否则返回nil

4 K, A+ n: j, X; ?6 k) H
二、VBA新增对象
5 H# e% U$ X, f4 F  w9 r1、IIcadPlotConfiguration对象
属性：
: [- w" y7 R& C$ Z% c5 H: LName：String 指定的对象名称
CanonicalMediaName：String 指定的规格纸张名称
CenterPlot：BOOL 指定的居中方式
ConfigName：String 绘图区配置名称
( D2 L' A3 h3 @PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位
( s) K% q% q# O( _4 r9 rPlotHidden：BOOL 绘图过程中对象是否隐藏
PlotOrigin：IIcadPoint 版面坐标（WCS坐标系）
7 D& K! d) o2 C. iPlotRotation IcPlotRotation 版面或绘图区配置的旋转角
# G0 S" D) h* ]4 y) T+ KPlotType IcPlotType 版面或绘图区配置的类型
PlotViewportBorders BOOL 是否绘制视口边界
PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口
PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽
PlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型
8 K; P0 C0 J6 ^) A3 Y! {: Y$ uScaleLineweights BOOL 当绘制版面时是否几何缩放线宽
  U6 ]5 b  t; x) kShowPlotStyles BOOL 是否将绘制类型应用倒绘图
) U4 T1 b( X8 Q* O/ E0 KStandardScale IcPlotScale 版面或绘制配置的标准缩放
StyleSheet String 版面或绘制配置的类型单
UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放
% M' F: ^8 \5 d0 Q; |  nViewToPlot String 绘图区的视图名称
/ _; E/ q% n/ k5 b) \方法：
取得绘图区视图的大小
HRESULT GetPaperSize([out] double* Width, [out] double* Height);

$ b7 E* V6 t* N9 X& u7 o取得绘图区版面窗口坐标
HRESULT GetWindowToPlot([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
% d) Y( ?: x: `. t9 a% b
设置绘图区版面窗口坐标
HRESULT SetWindowToPlot([in] IIcadPoint* pLowerLeft, [in] IIcadPoint* pUpperRight);
1 E: R+ F! I1 L( H! ^& i6 j, z0 G+ I
: O5 X/ E  [, ~) \设置自定义缩放值
HRESULT SetCustomScale([in] double Numerator, [in] double Denominator);

4 g" ?( G8 I& A# j# ?3 V% Y* x取得自定义缩放值
HRESULT GetCustomScale([out] double* pNumerator, [out] double* pDenominator);
8 |) i$ y8 V. o* o# [. c$ t# P
取得所有可用绘制驱动名称
) `" h* X5 e  O- O& @7 nHRESULT GetPlotDeviceNames([out, retval] VARIANT* pArray);

. e  v0 I/ x' h/ f4 m/ K% K2 O) c6 V, }取得所有可用绘制类型表名称
0 D2 ~. @8 ~2 J" e9 }3 }HRESULT GetPlotStyleTableNames([out, retval] VARIANT* pArray);

* F3 F2 I+ B' @1 Q$ p取得图纸边界外空白区大小
HRESULT GetPaperMargins([out] IIcadPoint** ppLowerLeft, [out] IIcadPoint** ppUpperRight);
1 A, c* T$ T$ @9 P$ B- u! s5 M
( t2 Z" \9 @, [) |$ Z* [; r3 G复制指定的绘制配置
6 P& F6 x0 l; q- B' eHRESULT CopyFrom([in] IIcadPlotConfiguration* pPlotConfig);
, E. o1 C$ ?4 a6 W! a
取得指定的绘制驱动的所有可用规范设备名称
3 U; S: Z# S: a! I1 x1 G( r6 _HRESULT GetCanonicalMediaNames([out, retval] VARIANT* pArray);

取得本地规范设备名称的版本
HRESULT GetLocaleMediaName([out, retval] BSTR* pName);
: \4 |6 n# k& `6 n1 v9 k
更新当前系统状态的绘制、规范设备、和绘制类型表信息
# Z0 R2 R( l  p+ rHRESULT RefreshPlotDeviceInfo();
" b0 x: c  f" Y. ~" J! R* ]0 r! {
绘制配置是仅应用到模型空间还是所有版面
3 L. p4 P5 F" c/ P2 K# K% F# {HRESULT ModelType([out, retval] VARIANT_BOOL* pVal);
: T3 R9 y) c7 |( f, Y) K
  Q' Z  d" M3 b4 c2 F$ ~2 e2、 IIcadPlotConfigurations 对象
属性：
- ]6 c0 [0 ]. rApplication IIcadApplication 取得应用程序对象
Count long 取得包含条目数
) Q0 w( ?9 E% v5 {; r. U' bParent IIcadDocument 取得父文档对象
# p# p( D5 x9 I% m7 y, C, w2 \: b方法：
% N# `  A/ [' ~4 m+ l增加一个新的绘制配置
HRESULT Add ([in] BSTR Name, [out, retval] IIcadPlotConfiguration** ppItem);
; F2 e" l+ t1 ]% ~$ q
" Z2 u7 E2 P+ Y) A( \1 ]取得指定的绘制配置
+ L- Q. ^. u. B8 q3 x' \/ yHRESULT Item([in] VARIANT Index, [out, retval] IIcadPlotConfiguration** ppItem);
7 ]6 b) d1 V/ q. Y9 U. y& t
3、IIcadLayout
属性：
& W, E" H/ z( r% G- {Block IIcadBlock 取得版面的联合块
TabOrder long 版面的tab顺序
& ^9 `) \, B' r# w- a
4、IIcadLayouts 对象
属性：
Application IIcadApplication取得应用程序对象
Coun long取得包含条目数
Parent IIcadDocument 取得父文档对象
" N; p  S# H  ?4 _1 L) T方法：
增加一个新的版面
  o% z% ?! q, c3 QHRESULT Add ([in] BSTR Name, [out, retval] IIcadLayout** ppItem);
3 Y) N4 P7 t) m6 H5 f
取得指定的版面
HRESULT Item([in] VARIANT Index, [out, retval] IIcadLayout** ppItem);
' F( B# ?; k1 q  k2 Q5 \
& j  _. C* X' n$ V5、IIcadXRecord对象
& o) ]8 I# s6 f( w& c4 |属性：
Name：String 指定的对象名称
TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID
( N4 n, ]0 n% D8 X8 F6 d4 v" C) s: C方法：
取得联合字典的扩展数据
HRESULT GetXRecordData([out] VARIANT* XRecordDataType, [out] VARIANT* XRecordDataValue);

: P9 m- q( a2 E3 T+ K6 n设置联合字典的扩展数据
$ D& T% {$ K' J- m5 JHRESULT SetXRecordData([in] VARIANT XRecordDataType, [in] VARIANT XRecordDataValue);
7 D  Q& }0 V0 @
* n) q- S# m# s5 ?$ l' r6、IIcadDictionary对象
! P' G! u/ f- O2 ^, N7 c* r% F6 A属性
Name：String 指定的对象名称
方法：
) n5 g/ I5 ?% O1 I* x) ?- t3 `为命名字典增加一个对象
HRESULT AddObject([in] BSTR Keyword, [in] BSTR ObjectName, [out, retval] IDispatch** ppNewObj); // IIcadDbItem** ?
! }+ C, z. X5 `2 Q$ m2 u% w8 V1 [
取得字典中对象名称（关键字）
HRESULT GetName([in] IDispatch* pObject, [out, retval] BSTR* bstrName);

根据指定对象名称（关键字）返回对象
3 q: d; T/ ^& J* E, VHRESULT GetObject([in] BSTR Name, [out, retval] IDispatch** ppObj);
! V2 Y9 g, I$ E" r( b) W3 W
根据指定对象名称（关键字）从字典中删除对象
& N( f, C& H) d5 K7 dHRESULT Remove([in] BSTR Name, [out, retval] IDispatch** ppObj);
0 {% Q' d3 V2 T; N4 |
重命名字典中条目名称
HRESULT Rename([in] BSTR OldName, [in] BSTR NewName);
: t( \! [4 I+ J9 B3 I& i8 @/ F
/ y7 @5 w2 i0 R- ]1 N& r' }根据指定对象名称（关键字）从字典中替换对象
HRESULT Replace([in] BSTR OldName, [in] IDispatch* pObj);

根据索引取得字典中对象
) a* D8 q7 g- M8 x( h  tHRESULT Item([in] VARIANT Index, [out, retval] IDispatch** ppItem);

取得字典条目数
2 k$ L+ v; C- }0 b/ [/ f. L8 F- u$ dHRESULT Count([out, retval] long* pVal);
9 Y' q8 ~: z( ^# Y
, W9 R; B+ m& W在字典中增加扩展数据
HRESULT AddXRecord([in] BSTR Keyword, [out, retval] IIcadXRecord** ppNewXRecord);
1 X7 ?8 B7 B" |8 U' G% R7 ~8 ^
* u6 Q* u9 D; J, `0 F7、IIcadDictionaries 对象
属性：
( F* Z" R. G& L6 hApplication IIcadApplication取得应用程序对象
: k5 D5 E, D& S4 F* N0 e+ DCoun long取得包含条目数
& F( r9 B! z: \" l; C! `+ Z- ^8 b; v' R5 ?1 KParent IIcadDocument 取得父文档对象
% T7 g7 k0 E- Q6 _  W9 o. n方法
增加一个新的字典
9 ?6 }2 h9 @) R6 h# eHRESULT Add ([in] BSTR Name, [out, retval] IIcadDictionary** ppItem);
* w( h8 `( [  s1 t5 [* h9 a6 n& O
: _6 p* x% n5 }0 s0 n- S取得指定的字典
/ g# b" G0 I, y* r$ C+ uHRESULT Item([in] VARIANT Index, [out, retval] IIcadDictionary** ppItem);
& }; n  S; z, K2 a
8、IIcadGroup对象
属性：
Name：String 指定的对象名称
方法：
8 {% E  T+ K: K7 ?1 ]根据指定索引取得组中实体对象
HRESULT Item([in] long Index, [out, retval] IIcadEntity** ppEntity);
! E* N4 n. S; m
取得组中实体数
HRESULT Count([out, retval] long* pVal);

所在图层
* T+ y+ Y1 H! Z: hHRESULT Layer([in] BSTR layer);

) w0 x# S* m5 p实体线型
HRESULT Linetype([in] BSTR linetype);
" K' q( Q: s, u9 |) F/ `" C+ F
/ N& m3 U9 A- R' J, N& |7 O6 B实体线型缩放比例
HRESULT LinetypeScale([in] double linetypeScale);

对象或应用程序的可见性
# }% R, M8 i/ R. YHRESULT Visible([in] VARIANT_BOOL isVisible);

设置取得对象或选择集的高亮状态
; ]& n, C8 g2 [+ J9 _" jHRESULT Highlight([in] VARIANT_BOOL HighlightFlag);
7 y* \" M+ w0 W; D8 \# _6 \
实体的绘制类型名称
/ ^& A- x2 V: o! rHRESULT PlotStyleName([in] BSTR plotStyleName);

指定个别实体或缺省线宽
HRESULT Lineweight([in] IcLineWeight lineWeight );

增加一个或多个实体倒组中
HRESULT AppendItems([in] VARIANT Objects);
. V3 N$ {1 x& h
1 p5 U/ z' |0 ?从组中删除指定条目
3 G2 z( F; ?3 \" @7 p+ R+ o+ fHRESULT RemoveItems([in] VARIANT Objects);
- d: G! G, \5 y; K  |+ T
9 Q8 t6 E2 Z( |更新对象到视图
8 n" k1 q( b" P  z# @! gHRESULT Update();
* }' H* k, m* p3 \8 w
指定实体或层颜色
2 j# T& I4 C2 ?: b% D# ZHRESULT Color([in] Colors color);
) ?$ g* y2 D# |4 Q$ ^: |  H
$ y* @+ w: s' u' q9、IIcadGroups对象
+ A6 a: ?: c* i" R* q. N0 J属性：
Application IIcadApplication取得应用程序对象
7 z' \# W1 G+ x3 gCoun long取得包含条目数
Parent IIcadDocument 取得父文档对象
, z! J4 c( E% E方法
增加一个新组
HRESULT Add ([in] BSTR Name, [out, retval] IIcadGroup** ppItem);
. H9 ?! y" j/ y$ C" r! B; U9 `7 {
9 `8 ~* g! E! U' ?) l取得指定的组
% v" \; z" f) x/ b' bHRESULT Item([in] VARIANT Index, [out, retval] IIcadGroup** ppItem);