[转帖]ICAD2008 - LSP新增函数及VBA新增对象介绍 - 国产CAD软件 - AutoCAD论坛 - 明经CAD社区 - ET,扩展

gaoyaqiang 发表于 2009-8-10 14:55:00

[转帖]ICAD2008 - LSP新增函数及VBA新增对象介绍

浩辰ICAD2008 - LSP新增函数及VBA新增对象介绍一、LSP新增函数： 1、计算从曲线开始到指定参数的长度vlax-curve-getDistAtParam 函数调用形式： (vlax-curve-getDistAtParam curve-obj param) 参数： curve-obj 类型：Ads_name 意义：实体 param 类型：正整数意义：当前曲线的节点 返回值： 如果成功返回从当前曲线的开始到指定节点的长度，否则返回nil 2、计算从曲线开始到指定点的长度vlax-curve- getDistAtPoint 函数调用形式： (vlax-curve-getDistAtPoint curve-obj point) 参数： curve-obj 类型：Ads_name 意义：实体 Point 类型：Ads_point 意义：当前指定点 返回值： 如果成功返回从当前曲线的开始到指定点的长度，否则返回nil 3、返回曲线最后节点数vlax-curve-getEndParam 函数调用形式： (vlax-curve-getEndParam curve-obj) 参数： curve-obj 类型：Ads_name 意义：实体 返回值： 如果成功返回当前曲线的最后节点数，否则返回nil 4、返回曲线最后节点值（WCS中）vlax-curve- getEndPoint 函数调用形式： (vlax-curve-getEndParam curve-obj) 参数： curve-obj 类型：Ads_name 意义：实体 返回值： 如果成功返回当前曲线的最后节点值，否则返回nil 5、根据指定从曲线端点距离返回曲线上节点参数vlax-curve-getParamAtDist 函数调用形式： (vlax-curve-getParamAtDist curve-obj dist) 参数： curve-obj 类型：Ads_name 意义：实体 dist 类型：ads_real 意义：指定从曲线端点距离 返回值： 如果成功根据指定从曲线端点距离返回曲线上节点参数，否则返回nil 6、根据指定曲线点返回曲线上节点参数vlax-curve-getParamAtPoint 函数调用形式： (vlax-curve-getParamAtPoint curve-obj point) 参数： curve-obj 类型：Ads_name 意义：实体 point 类型：ads_point 意义：指定曲线点 返回值： 如果成功根据指定曲线点返回曲线上节点参数，否则返回nil 7、根据用户指定的距离返回曲线上点（在WCS中）vlax-curve-getPointAtDist 函数调用形式： (vlax-curve-getPointAtDist curve-obj dist) 参数： curve-obj 类型：Ads_name 意义：实体 dist 类型：ads_real 意义：指定从曲线端点距离 返回值： 如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil 8、根据用户指定的节点参数返回曲线上点（在WCS中）vlax-curve-getPointAtParam 函数调用形式： (vlax-curve-getPointAtParam curve-obj param) 参数： curve-obj 类型：Ads_name 意义：实体 param 类型：正整数意义：当前曲线的节点 返回值： 如果成功根据指定从曲线端点距离返回曲线上点，否则返回nil 9、返回曲线起始节点参数vlax-curve-getStartParam 函数调用形式： (vlax-curve-getStartParam curve-obj) 参数： curve-obj 类型：Ads_name 意义：实体 返回值： 如果成功返回当前曲线的起始节点参数，否则返回nil 10、返回曲线起始节点值（WCS中）vlax-curve- getStartPoint 函数调用形式： (vlax-curve-getStartParam curve-obj) 参数： curve-obj 类型：Ads_name 意义：实体 返回值： 如果成功返回当前曲线的起始节点值，否则返回nil 二、VBA新增对象 1、IIcadPlotConfiguration对象 属性： Name：String 指定的对象名称 CanonicalMediaName：String 指定的规格纸张名称 CenterPlot：BOOL 指定的居中方式 ConfigName：String 绘图区配置名称 PaperUnits：IcPlotPaperUnits 显示版面或绘图区配置的单位 PlotHidden：BOOL 绘图过程中对象是否隐藏 PlotOrigin：IIcadPoint 版面坐标（WCS坐标系） PlotRotation IcPlotRotation 版面或绘图区配置的旋转角 PlotType IcPlotType 版面或绘图区配置的类型 PlotViewportBorders BOOL 是否绘制视口边界 PlotViewportsFirst BOOL 是否先绘制图纸空间的多边型视口 PlotWithLineweights BOOL 采用绘制文件的线宽，或采用图纸的线宽 PlotWithPlotStyles BOOL采用绘制文件的线型，或采用图纸的线型 ScaleLineweights BOOL 当绘制版面时是否几何缩放线宽 ShowPlotStyles BOOL 是否将绘制类型应用倒绘图 StandardScale IcPlotScale 版面或绘制配置的标准缩放 StyleSheet String 版面或绘制配置的类型单 UseStandardScale BOOL 绘制区采用标准缩放还是自定义缩放 ViewToPlot String 绘图区的视图名称 方法： 取得绘图区视图的大小 HRESULT GetPaperSize( double* Width, double* Height);取得绘图区版面窗口坐标 HRESULT GetWindowToPlot( IIcadPoint** ppLowerLeft, IIcadPoint** ppUpperRight);设置绘图区版面窗口坐标 HRESULT SetWindowToPlot( IIcadPoint* pLowerLeft, IIcadPoint* pUpperRight);设置自定义缩放值 HRESULT SetCustomScale( double Numerator, double Denominator);取得自定义缩放值 HRESULT GetCustomScale( double* pNumerator, double* pDenominator);取得所有可用绘制驱动名称 HRESULT GetPlotDeviceNames( VARIANT* pArray);取得所有可用绘制类型表名称 HRESULT GetPlotStyleTableNames( VARIANT* pArray);取得图纸边界外空白区大小 HRESULT GetPaperMargins( IIcadPoint** ppLowerLeft, IIcadPoint** ppUpperRight);复制指定的绘制配置 HRESULT CopyFrom( IIcadPlotConfiguration* pPlotConfig);取得指定的绘制驱动的所有可用规范设备名称 HRESULT GetCanonicalMediaNames( VARIANT* pArray);取得本地规范设备名称的版本 HRESULT GetLocaleMediaName( BSTR* pName);更新当前系统状态的绘制、规范设备、和绘制类型表信息 HRESULT RefreshPlotDeviceInfo();绘制配置是仅应用到模型空间还是所有版面 HRESULT ModelType( VARIANT_BOOL* pVal);2、 IIcadPlotConfigurations 对象 属性： Application IIcadApplication 取得应用程序对象 Count long 取得包含条目数 Parent IIcadDocument 取得父文档对象 方法： 增加一个新的绘制配置 HRESULT Add ( BSTR Name, IIcadPlotConfiguration** ppItem);取得指定的绘制配置 HRESULT Item( VARIANT Index, IIcadPlotConfiguration** ppItem);3、IIcadLayout 属性： Block IIcadBlock 取得版面的联合块 TabOrder long 版面的tab顺序4、IIcadLayouts 对象 属性： Application IIcadApplication取得应用程序对象 Coun long取得包含条目数 Parent IIcadDocument 取得父文档对象 方法： 增加一个新的版面 HRESULT Add ( BSTR Name, IIcadLayout** ppItem);取得指定的版面 HRESULT Item( VARIANT Index, IIcadLayout** ppItem);5、IIcadXRecord对象 属性： Name：String 指定的对象名称 TranslateIDs BOOL 指定在深度克隆或写块克隆时是否转换对象ID 方法： 取得联合字典的扩展数据 HRESULT GetXRecordData( VARIANT* XRecordDataType, VARIANT* XRecordDataValue);设置联合字典的扩展数据 HRESULT SetXRecordData( VARIANT XRecordDataType, VARIANT XRecordDataValue);6、IIcadDictionary对象 属性 Name：String 指定的对象名称 方法： 为命名字典增加一个对象 HRESULT AddObject( BSTR Keyword, BSTR ObjectName, IDispatch** ppNewObj); // IIcadDbItem** ?取得字典中对象名称（关键字） HRESULT GetName( IDispatch* pObject, BSTR* bstrName); 根据指定对象名称（关键字）返回对象 HRESULT GetObject( BSTR Name, IDispatch** ppObj); 根据指定对象名称（关键字）从字典中删除对象 HRESULT Remove( BSTR Name, IDispatch** ppObj); 重命名字典中条目名称 HRESULT Rename( BSTR OldName, BSTR NewName);根据指定对象名称（关键字）从字典中替换对象 HRESULT Replace( BSTR OldName, IDispatch* pObj); 根据索引取得字典中对象 HRESULT Item( VARIANT Index, IDispatch** ppItem);取得字典条目数 HRESULT Count( long* pVal); 在字典中增加扩展数据 HRESULT AddXRecord( BSTR Keyword, IIcadXRecord** ppNewXRecord);7、IIcadDictionaries 对象 属性： Application IIcadApplication取得应用程序对象 Coun long取得包含条目数 Parent IIcadDocument 取得父文档对象 方法 增加一个新的字典 HRESULT Add ( BSTR Name, IIcadDictionary** ppItem);取得指定的字典 HRESULT Item( VARIANT Index, IIcadDictionary** ppItem);8、IIcadGroup对象 属性： Name：String 指定的对象名称 方法： 根据指定索引取得组中实体对象 HRESULT Item( long Index, IIcadEntity** ppEntity); 取得组中实体数 HRESULT Count( long* pVal); 所在图层 HRESULT Layer( BSTR layer);实体线型 HRESULT Linetype( BSTR linetype);实体线型缩放比例 HRESULT LinetypeScale( double linetypeScale); 对象或应用程序的可见性 HRESULT Visible( VARIANT_BOOL isVisible); 设置取得对象或选择集的高亮状态 HRESULT Highlight( VARIANT_BOOL HighlightFlag); 实体的绘制类型名称 HRESULT PlotStyleName( BSTR plotStyleName); 指定个别实体或缺省线宽 HRESULT Lineweight( IcLineWeight lineWeight ); 增加一个或多个实体倒组中 HRESULT AppendItems( VARIANT Objects); 从组中删除指定条目 HRESULT RemoveItems( VARIANT Objects); 更新对象到视图 HRESULT Update(); 指定实体或层颜色 HRESULT Color( Colors color);9、IIcadGroups对象 属性： Application IIcadApplication取得应用程序对象 Coun long取得包含条目数 Parent IIcadDocument 取得父文档对象 方法 增加一个新组 HRESULT Add ( BSTR Name, IIcadGroup** ppItem);取得指定的组 HRESULT Item( VARIANT Index, IIcadGroup** ppItem);

页: [1]

明经CAD社区's Archiver

[转帖]ICAD2008 - LSP新增函数及VBA新增对象介绍