1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure TForm2.Button1Click(Sender: TObject);        var              param            : IMxDrawResbuf;              ret               : IMxDrawResbuf;        begin              // 创建参数对象    …

主要用到函数说明: IMxDrawUtility::GetEntity 与用户交互到在图面上选择一个实体,详细说明如下: 参数 说明 [out] IMxDrawPoint** pPickPoint 返回实体的选择点 [in] BSTR prompt 选择实体时的提示字符串 代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Set mxUtility = New MxDrawXLib.MxDrawUtility Dim getPt As…

主要用到函数说明: _DMxDrawX::WriteBinStream 把控件图形变成二进制流输出,详细说明如下: 参数 说明 VARIANT* pVarBinArray 输出二进制数组.是个byte数组 BSTR sPassword 数据密码,没有密码,传空字符串 LONG iVersion 输出的文件版本,如果保存CAD 2002图纸,可以传 23 代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim aryData    …

主要用到函数说明: _DMxDrawX::ReadBinStream 从二制流数据中加载图形,详细说明如下: 参数 说明 VARIANT varBinArray 二制流数据,是个byte数组 BSTR sPassword 图纸密码.没有密码,传空字符串 LONG lReadContent 加载内容,如果全部加载,传16777215,十六进制0xFFFFFF Delphi代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22…

主要用到函数说明: MxDrawXCustomFunction::Mx_RegistUserCustomCommand 向控件注册一个命令,用户在命令行输入命令名这个字符串,就会触发执行命令事件 命令事件的id就是该注册时的id值,详细说明如下: 参数 说明 CString sCommandName 命令名称 LONG lId 命令id VB代码实现如下: 1 2 3 4 5 6 Set param2 = New MxDrawXLib.MxDrawResbuf param2.AddString…

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 procedure TForm1.Button1Click(Sender: TObject);    var   pRet: MxDrawResbuf;   h, w: double;   ptMin        : IMxDrawPoint;   ptMax     …

主要用到函数说明: MxDrawXCustomFunction::ReadBinStreamEx 从二进流加载数据,详细说明如下: 参数 说明 IMxDrawBinStream* pBinStream 二进制流对象 代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim param As MxDrawResbuf Set param = New MxDrawResbuf   Dim ret As MxDrawBinStream  …

主要用到函数说明: MxDrawXCustomEvent::MxDrawXCustomEntity::explode 把自定义实体,变成普通实体,详细说明如下: 参数 说明 LONGLONG lEntity 自定义实体id LONGLONG lBlkRecId 用来临时普通实体的块表记录id 代码实现如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35…

主要用到函数说明: IMxDrawSelectionSet::Select 构造选择集.详细说明如下: 参数 说明 [in] MCAD_McSelect Mode 构造选择集方式 [in] VARIANT point1 构造择择集时需要使用到的点对象 [in] VARIANT point2 构造择择集时需要使用到的点对象 [in,optional] VARIANT filterData 构造选择集的过滤数据 可以取如下值 mcSelectionSetWindow = 0, mcSelection…

概要 完成一个程序,作用是统计一个文件夹下面所有文件的代码行数.输入是一个文件夹的绝对路径,输出是代码行数.所以此程序的新特点有两个: 统计某一文件夹下的所有文件: 可以任意指定本机硬盘上任何位置的某一个文件夹. 前言 在上一篇随笔中熟悉了文件的基本操作.但仍然有改进的余地:统计特定文件时,还是需要手动输入文件名.如果文件数量很多怎么办?可不可以直接统计某个文件夹下面的所有文件的代码行数?今天解决的就是这个问题. 思考 我们已经解决了一个问题:写一个带有文件操作的C语言程序,输入文件名,输出此文…