常用的一些VB6函数,VB.NET函数,VBA模块

函数名中文函数名
RemoveNull文字去0
WmiReadWriteStringWmi读写注册表字符串
WmiListRegNameWmiListRegName
IsX64判断系统为32位还是64位
高精度延时高精度延时
Puase不卡CPU的延时
ListAllUsedComDLL遍历所有Excel已引用的Com_dll
Excel引用的DLL表_设置格式Excel引用的DLL表_设置格式
gf_CheckOcxByClsId通过注册表的ClsId来检查ActiveX是否正常注册
DeclareDLLACCESS_VBA引用DLL_DeclareDLL
一列的EXCEL单元格转字符串数组一列的EXCEL单元格转字符串数组
OpenAccessADO打开数据库
ExtractIconFromRes提取资源中的图标到图像
loadImgWIAloadImgWIA
HandleToStdPictureICO图标转图片2
HIconToPictureICO图标转图片
GetBstrFromPtr2从内存地址取出字符串2
GetBstrFromPtr从内存地址取出字符串
GetBstrFromPtr4从内存地址取出字符串4
RestartService_powershellPowerShell方式重启服务
ListAllService取所有windows服务列表
ListAllServiceCanPause取所有可暂停的windows服务列表
RestartService重启WINDOWS服务
GetDataGridColumnNames取datagrid控件所有列名
GetIp_wmiwmi法取本机局域网IP
RunAsAdminRunAsAdmin
GetRndArr取随机数组
PlayVideoDirectShow播放视频FilgraphManager
GetVideoDPIScale取系统DPI缩放比例
LoadPictureEx免gdiplus加载图片
LoadIconFromFile加载图标
PictureToIco图像转ICO句柄
LoadPictureFromIco从图标得到图片对象
PauseTimerW延时几毫秒
GetGMTstr取GMT格式时间字符串
GetGMT_JS用JS取GMT格式时间
HMACSHA256HMACSHA256
ToUnixDate转成UNIX时间
ConvertRangeToArrayvba获取指定区域数据变成数组
ConvertSelectionToArrayvba获取选中区域数据变成数组
取打乱数组取打乱数组
打乱数组ShuffleNumbers
API_SaveClipBmpAPI_SaveClipBmp
IsInstanceRunning防止同一个程序多次运行
IsRunningExe防止软件多开
EditListbox查找并修改Listbox的值
HttpGetHttpGet
HttpRequestHttpRequest
HttpPostHttpPost
HttpClientPostHttpClientPost
fireEvent_inputJS手动触发表单填写完成事件
triggerKeyboardEvent模拟键盘触发事件方法
fireKeyEventJS模拟键盘输入
Js_Enterjs模拟敲回车、
SetText_insertTextSetText_insertText模拟输入文字
JsKeyDownShiftA模拟了键盘的 keydown 事件(按下 Shift+a)
MouseClickjs模拟右键点击
RightClickRightClick
JsRightClickCenterjs模拟右键点击元素中间
getElementLeftTop获取网页元素的坐标和宽高度高
JSclickAutomaticJSclickAutomatic点击随机位置
CreateFolderVBSCreateFolderVBS
CreateFolder建立多级目录
LoadPictureFromByte从内存字节流加载图像免TLB免GDIPLUS
ByteArrToStdPictureNoTlbGDIPLUS字节数据转图像无TLB
PictureToByteArr图像转字节数据流
GetPicByteArray取图像的像素数据
LoadPictureEx2免gdiplus加载图片2
GetPicSize获取位图大小宽度高度
ShellWaitOnTimer异步等待进程结束
取屏幕DPI缩放比例GetVideoDPIScale
GetPY取字符串拼音首字母
LikeArrayFor字符串是否匹配一组Like条件
FormatMacAddressFormatMacAddress8位字符解析成A-B-C-D
GetMacAddress取网卡MAC地址
GetMacAddressALL取所有网址地址
GetDataGridViewAllColsWidth取DataGridView所有列宽
SetDataGridViewAllColsWidth设置(DataGridView1所有列宽
GetDtaGridViewTable获取要绑定的表格记录
ColEditOnly设置只有某列可以编辑
vbsSendKeysvbsSendKeys
Crc32Api取数据字节CRC检验码
GetBSTRFromStrPtr从STRPTR的地址取得字符
GetBSTRFromVarPtr从VARPTR的地址取出字符串
GetLastRow取有效数据最后一行
RunDosCmd运行命令行取结果
GetResourceByte取资源中指定名称的二进制数据
GetFileBytesLikeResource取普通文件形式的资源二进制内容
CallMemDlldNet内存运行DLL_EXE
VB_NETRunEXE2动态加载dNET的EXE并传递参数
VB_NETRunEXEvb6动态运行NETEXE
VB_NETRunPe_errvb.net内存运行EXE文件没成功
CallMemDll3dNet运行内存DLL中的方法
FindValueInJsonJSON查找所有数据返回完整KEY路和戏
formatJsonKeyJsonkey数组和字符为数字的处理
isNumeric查询字符串是否是数字
ExplorOpen资源管理器中打开文件夹
CheckIDField检测表中是否存在某条件的ID值
VBProjectSplitFiles解析VB6工程文件
FindInArr字符串是否匹配某个数组的一行
ArrayToLCase数组转小写
GetDataArray查询数据返回二维数组
RemoveAddIn_Self卸载插件
ReferenceFilevb6插件_引用DLL
AddOcxvb6插件_添加控件
GetAllReference取VB6工程中引用的DLL和OCX_TLB
数据添加日志数据添加日志
AddCode添加代码到数据库
ChildFormAutoSizeACCESS子窗体启动时自动宽度
CreateobjectProgid免注册创建对象按rpogid
LoadManifestFile加载清单文件
LoadManifestFile2用对象法动态创建清单
RunVbaSubCallbyname运行VBA中代码
取模块的代码取模块的代码
ComboBox1MouseClickCombox1控件添加双击事件
IsBlockEndVB6代码区块结束
VB代码区块开始IsBlockStart
代码自动缩进vb代码自动缩进
RunjsThreadUIwebview2同步执行JS取异步结果
RunNetCode内存编绎运行VB_NET代码
VBA重命名表vba_RenameTable
GetResBinData2GetResBinData2
RenameSheetRenameSheet
AddSheetFieldTypeEXCEL增加表按字段和类型
AddSheetAddSheet
CopySheetCopySheet
CopySheetExCopySheetEx
GetDocByHwndMsaaGetDocByHwndMsaa
GUIDtoStrGUIDtoStr
DocscrollTo网页滚动条控制webbrowserDoc
ZoomWebwebbrowser缩放到百分比
GetFieldID查找字段索引
GetALLField获取数据表所有字段
自动编号列重置自动编号列重置
GetPidByHwnd按句柄取进程ID
GetExePathbyHwnd从句柄获取进程路径
ITypeLib_GetLibAttrITypeLib_GetLibAttr
CurrentDomain_AssemblyResolveVB.NET强行指定DLL目录
MultiByteToBinaryMultiByteToBinary
RSBinaryToStringVBS中二进制数据转换为字符串3
BinaryToStringVBS中二进制数据转换为字符串2
SimpleBinaryToStringVBS中怎么把二进制数据转换为字符串
RssaveTofileasp中读取数据库中保存的图片存入硬盘
AspByteToStreamAspByteToStream
Access排序Access排序
MoveArray数组移动元素X位置到Y位置
FlexgridSelectRowFlexgrid选中一行
WebColorToVbWebColorToVb
HttpPostHttpPost提交POST数据
HttpGetHttpGet采集网页
VFB_Http_DownVFB_下载网页
VFB_FindProcess2VFB_FindProcess2
Vfb_FindProcessvfb_找进程
AssignResultSet或Get得到结果
GetAdslIP取宽带公网IP
ListAllItem列出所有属性
FindProcess查找进程
LPWSTRtoStrLPWSTRtoStr
GetIPAddress取本机IP
SplitUrlPort解析网址域名端口
GetLastDllErrGetLastDllErr
GetIPAddress22取本机局域网IP
VBencodeURIComponentHttp_Get_VB网址参数编码
StreamReadFileStreamReadFile
GetProjectName2获取VB工程名称2
DelAddinCaption删除插件菜项项
297297
GetDllPath取DLL自身的路径
getThisDLLHandle取DLL的ModuleHandle
AddToAddInCommandBar添加Addin到菜单并绑定事件
StartAddIn加载vb6插件
UnloadAddIn卸载vb6插件
UnloadAddInByDesc卸载vb6插件按描述文字
GETmainWindow所取有者窗口句柄
GetParentProcess按进程ID取父进程ID和路径
GetProcessPathByID根据进程号获取进程路径
SetNewFormOwner设置窗口为某窗的父窗口
GetUserControlMdiChildFormHwnd获取VB自定义控件的MDI子窗句柄
ControlSize2设置控件样式为可调整大小
SetWindowResizeStyle控件添加可调整大小的边框Hwnd
ControlSize控件添加可调整大小的边框
BinToAscStrBinToAscStr
GetAllMembers获取对象所有成员
GetITypeInfo2GetITypeInfo
GetContentLength取下载文件的大小
IsExcelx64检测是否Excel64位VBA
IsWow64ProcessFromPID检测进程是否为64位
WaitDoc2WaitDoc2
GetDocHwnd获取Webbrowser后台点击的Doc客户区句柄
 EvalWeb_V1Webbrowser执行JS并返回值
WebGetJsValueWebGetJsValue
DocGetJsValue2Doc执行JS获取任意数据类型返回值
DocGetJsValue_byVarDocGetJsValue_byVar
DocGetJsValueDocGetJsValue
AddJsToDocAddJsToDoc
GetWebItemPosition取网页元素相对坐标和宽高
CopyWebImg复制网页中图片
GetEventWebBrowser_V1从htmldocument得到 webbrowser对象和事件
设置磁盘卷标设置磁盘卷标
VB打开网络连接设置ExpVB打开网络连接设置Exp
VB打开IE_InterNet选项VB打开IE_InterNet选项
B打开网络连接设置B打开网络连接设置
IsElevated检测进程是否正在运行UAC提升_管理员权限运行
IsAdmin检测当前进程是否管理员权限
ShowWebIMG_WIA下载图像并自动居中显示在Picture1控件中
精确移动鼠标精确移动鼠标
WebBrowserSetProxyie全局代理IP设置和本进程代理IP
IeProcessNoSaveCookie每个ie进程使用不同的COOKIE
ChangProxy设置系统代理IP_IE谷歌
ChangeUserAgent修改ie_webbrowser UA
SetCookieHttpOnly修改网页COOKIE_HTTPONLY
BinToHexStr二进制数组转字符串
SetDebug2SetDebug2
GetProIdGetProId
NetCreateInstance动态加载netCOM_DLL类
OpenAccessNoBuffer2ACCESS无缓冲方式打开数据库2
OpenAccessNoBufferACCESS无缓冲方式打开数据库
MakeDir2建立多级子目灵3
MakeDirPath建立多级子目灵2
MakeLongDir建立多级子目灵
GetHostEXE获取当前进程EXE
Binfff二进制数据反转可逆
BinXOR二进制数据加密XOR可逆
LoadPNGtoICOico方式加载透明Pic图片
StreamToPicture从数据流转换为图像
ByteArrToStdPicture字节数组转图片对象
LoadStrRes读取资源字符串
ExeMode检测自定义控件是否运行状态
UBoundExPtr取数组UBOUND值
SafeArrayElementsCount获取数组有几维
RanString随机大小写加数字字符串
RndUser随机用户名
AddLog添加日志信息
ListToArr复制List控件数据
Base64EncodeBase64编码XML方式
StrToHex字符串转16进制
GetStrFromPtrw从内存地址取字符串
GetHwndStr句柄里取字符串
SetHwndStr句柄里存字符串
GetStringFromPtr从堆内存里取字符串
NewStringPtr把字符串存到堆内存里
AA本页查找所有字符串2
StringFromBuffer从字节数组得到字符串
GetEventWebFromDoc从htmldocument得到支持事件的ctl_web对象
VbaDCount查询ACCESS中某表数据量
GetLinkPath二进制法读取快捷方式的目标路径
ReadShortCut读取快捷方式的目标路径
ShowHtm显示检查的网页
GetObjSubAddress取VB类中公用函数地址
GetFormPublicMethodAddress获取窗体第几个公共函数或过程的地址
SetTextMessage按句柄修改窗口文本
GetText取句柄窗口文本
SetWebBrowser11设置WebBrowser加载IE11内核
NewIUnknownEx创建虚表对象
GetEdgeWebViewPath取Webview2环境安装路径
IsDir检测是否文件夹
GetIstreamSize取数据流对象长度大小
SetUserTypeCoClass类对象传递结构变量
GetProjectName获取VB工程名称
AddUsercontrol动态创建自定义控件
Api_CallByName任意参数调用完美
GetAllList获取列表对象所有文字
SetDebug检测是否在VB6中运行
WaitFormToClose等待窗体关闭_Message
WaitByIsWindow等待窗体关闭_IsWindow
LocalFileToUrl本地文件转网址_谷歌浏览器
AppliedDPI取系统DPI缩放比例ERR
BmpStreamToPicture位图字节数组转成图像
GetFileByte读取文件二进制到数组
MakeFunctiondll函数绑定到VB模块函数
SaveToFilestream流方式保存文件
ViewHtmViewHtm
getwebinfogetwebinfo
SortStrSz字符数组排序2
WmGetTextWmGetText
WindowTextWindowText
GetWindowTxt取窗体标题
ColorToRGBColorToRGB
ColorRGBColorRGB
ColorToArgbColorToArgb
GetFileName取文件名
UrlSplit网址参数解析
JsTimeToDatejs时间戳转日期2
ToUnixTime日期转js时间戳
FromUnixTimejs时间戳转日期
GetBinFileGET方式读取文件字节内容
StrEncodeToStream 
StreamToGb2312 
IsTopMostWindow是否为顶层窗口
QuickSplit3快速Split分割字符串函数
GetFileBinary方式读取文件内容
获取进程路径PidToPath
Utf8PtrToUnicode_Win32Apiutf8数据内存地址转字符串
UnicodeToUTF8Byte字符转UTF8字节数组
Utf8PtrToUnicode从UTf8内存地址取字符串
Arr_BinToHex二进制数组转16进制字符
GetJsonJs获取Json解析对象
GetJsonJs2获取Json解析对象2
StrFilterSz检测字符串是否包含数组的某一项
RemoveList删除列表控件一行
按名称选择语音引挚按名称选择语音引挚
fillstr生成固定位数的字符串
ToStrArr转字符数组
SortStrSzWithId字符数组排序返回顺序ID
注册表读网络连接信息注册表读网络连接信息
GetDataSzByFile快速读取文件内容到数组
WmiKillProcesswmi关闭指定名称所有进程
IsRunUnderVB6检测是否运行在IDE中
GetFullName获取EXE或DLL自带的完整路径
GetExePath获取程序完整路径
PutToFilePutToFile
SToTime秒转中文时间
NzNull值处理
Pause延时几毫秒
去除中间空行去除中间空行
去除空行前后空格去除空行前后空格
Mkdir2VB创建多级目录
SearchFileInDirTree用API搜索文件
QuickSplit快速分割字符串
QuickSplit2快速分割字符串
LongLongToDouble64位整数转Double
GetUrlTitle取标题下载网页法
ClipBoard_SetDataX64设置剪贴板_64位系统
adosavebin 
StrEncodeToByte 
GetResBinData获取资源文件中二进制数据
WebPause 
FindAllStrBetween本页查找所有字符串
URLDecodeURLDecode解码
isvalidhexisvalidhex
FindStrBetween查找字符串间隔于
GetInputGetInput
getpcname取计算机名
GetWebHwnd 
GetWebObjXy获取网页元素的坐标
SaveDocImgUrlLike保存网页上图片到文件
SetClipHtml剪贴板设置网页内容
CopyIeFileIE缓存文件复制
GetFrameWebBodyLike从网页中取得Frame对象为WebBrowser_V1
WaitImgDownOk等待图片下载完成
WaitDoc等待网页DC下载完成
Utf8StrToGb2312UTF8字符转GB2312
Utf8ByteToStrUtf8字节数组转字符串
SuShell安卓越运行命令行
Str提取中间字符串2个
BackAct窗口后退
GetNowActivity获取当前窗口名称
FindStrB4A提取中间字符串
GetPackagename获取当前APP名称
OPENAPP打开应用
Setup安装应用
CutScreen截屏
Now3取时间完整字符串
ByteArrToStr字节数组转字符串
ToUtf8Byte字符转UTF8字节集
Now现在时间
ShellWait运行程序并等到结束
EditTxtFile编辑文本文件
executesoft默认方式打开文件
ReadTextFileSkipLines跳过N行读取记事本内容
FiLLidSz给数字数组顺序给值
SortLongSz数字数组排序且返回顺序号
RsTo2WSz记录集转换到二维数组
GetFieldSz获取所有列名
MyNz数据为Null时指定默认值
SetVsFlexWidthInfo设置vsflexgrid控件多列宽度
GetVsDgWith获取DG表格控件各列宽度
GetVsDgValVSVLEXGRID控件中查找字段对应列的值
GetVsDgCol在VSVLEXGRID控件中查找字段获取列Index
ApiEditFileByte修改指定位置开始的文件内容
SaveFileEncode用编码保存文件
ApiAddBytesToFile将Byte数组追加到文件
ApiWriteBytesToFileStart将Byte数组覆盖写入到文件开头
StrEncode2字符编码为二进制
StreamDecode二进制解码
ReadFileToBytes将二进制文件读入到Byte数组
SaveToTextFileAPI方式写文本文件
ReadFromTextFileAPI方式读文本文件
StreamLoadFileAdo读取文件字节
ByteAdd字节相加
AdoReadFile编码读取文本
GetVbHeader从EXE获取多线程VB头
SaveWebImgUrlLike保存网页上图片(按图片链接查找)
GetImgUrlLikeStr提取网页中的图片
查找控件查找控件
FindWindowInSamePid在某个窗口上找同进程中的其他某标题的窗口
FindTxtInChind在句柄子下穷举枚举查找文字句柄
SendEnter发送回车键
SetTextPostMessageWait后台方式文字,异步,每个键延时一定时间
SetTextPostMessage后台方式文字,异步
ImportXls导入EXCEL文件到ACCESS
采集多页网页表格到数据库示例 
网页表格采集到记事本示例网页表格采集到记事本示例
HTM DOC按CLASS查找对象 
vsflesgrid添加列头 
ClickHwndByXyWait后台点击等待模式(阻塞)
ClickHwndByXy后台点击
FindWindowSz按文字查找窗口
FindHwndByClassInfo 
GetClass 
webhtmlwebhtml
SetText修改窗体标题
WebPost 
OpenBinFile 
SaveByteToFile保存二进制内容
SaveImageToJPGGID SaveImageToJPG
StreamSaveFileStreamSaveFile
StreamOpenfileStreamOpenfile
UTF8Encode 
UTF8Decode 
JsEncodeURI 
AddtoFileAddtoFile追加文件内容
URLEncode 
openfile打开文件
DelAllFileFolder2删除整个文件夹的内容2
DelAllFileFolder3删除整个文件夹的内容
DelAllFileFolder删除整个文件夹的内容
DelFile删除文件
DelFolder删除文件夹
CopyAllFileFolder复制整个文件夹下面的内容
PutToFileBin保存二进制到文件
GetCookieHttpOnly 
SzToList 
SzToList2 
GetFileList 
do 
AspStreamFileEncode文件转码
Asp_RsToCsvASP RS转换为csv
ShowDir2选择文件夹2
ShowDir选择文件夹
JsDecodeUrl 
JsdecodeURIComponentJsdecodeURIComponent
JSTIME_JSONPVB JSONP 13位时间戳
JsEncodeURIComponentjs网址加密
JSTIME_NewDategetTimejson
AddJsToHead2AddJsToHead2
AddJsToHead添加js脚本到htm网页head中然后可以加以调用
JsEnstring弥补了VB没有javaScript的Enstring函数
UnescapeVB中的Unescape函数
DocRunJs运行网页javascript脚本代码
RunJavascript利用JS计算,多个参数
GetJsVal利用JS计算
获取随机数字Sz获取随机数字Sz
GetJsValSz获取多个JS函数的值
设置大小写状态设置大小写状态
SaveFile-ERR不稳定保存文件
getnow时间变字符串
GeRegExpDataSz正式表达式提取信息
提取卡密Sz按长度提取所有卡密
GetCardPass提取卡号和密码
  • 3
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
### 回答1: AutoCAD VBAVB.net是一种用于AutoCAD软件的开发工具,它们可以帮助用户通过编程来扩展AutoCAD的功能。AutoCAD VBA使用的是Visual Basic for Applications,而VB.net使用的是Visual Basic编程语言。 开发基础方面,对于AutoCAD VBAVB.net开发,首先需要了解基本的编程概念和语法。需要学习如何定义变量、使用条件和循环语句、处理用户输入和输出等。还需要了解AutoCAD的对象模型,包括图纸、图层、实体等对象以及它们的属性和方法。理解这些基本知识后,可以开始编写简单的程序来实现一些基本的功能。 实例教程方面,有一些网上资源和书籍提供了很多实例教程和源代码。这些教程可以帮助用户学习如何使用AutoCAD VBAVB.net来解决实际的问题。例如,可以学习如何根据用户输入创建特定类型的实体,如何修改实体的属性,如何自动标注图纸等等。通过这些实例教程,用户可以逐步掌握开发AutoCAD的技巧和技术。 源代码方面,可以在网上搜索一些开源项目或者示例代码,这些代码可以用作学习和实践的参考。通过阅读和理解源代码,可以学习到更多编程技巧和规范。同时,也可以利用这些源代码作为基础,进行修改和扩展,以满足自己的需求。 总之,AutoCAD VBAVB.net开发基础与实例教程以及源代码可以帮助用户学习如何使用编程语言来扩展AutoCAD的功能。通过学习基础知识、实践例子和参考源代码,用户可以逐步提升自己的编程能力,并且能够应用到实际的工程项目中。 ### 回答2: "AutoCAD VBAVB.NET开发基础与实例教程"是一本介绍如何使用VBAVB.NET编程语言在AutoCAD软件中进行开发的教程。该书包含了许多实例和源代码,供读者学习和实践。 在该教程中,作者首先介绍了AutoCAD的基本知识,包括AutoCAD的界面、命令和常用工具等。然后,作者详细介绍了VBAVB.NET编程语言的基础知识,包括变量、数据类型、循环和条件语句等。读者可以通过理解这些基础知识,为后续的开发工作做好准备。 接下来,该教程通过一些实例,展示了如何使用VBAVB.NET编程语言进行AutoCAD开发。这些实例包括创建和修改图纸、添加和编辑对象、执行命令等。每个实例都提供了详细的源代码和解释,读者可以通过按照教程一步一步地操作,逐渐掌握AutoCAD开发的技巧和方法。 在学习完该教程后,读者将能够独立进行AutoCAD的开发工作,并应用自己的编程知识解决实际问题。同时,该教程也为读者进一步深入学习和扩展AutoCAD开发提供了基础。 总之,“AutoCAD VBAVB.NET开发基础与实例教程”是一本实用的教程,通过详细的实例和源代码,帮助读者掌握在AutoCAD中使用VBAVB.NET进行开发的基本技能。无论是初学者还是有一定编程基础的读者,都能从中受益。 ### 回答3: Autocad VBAVB.NET都是用于开发Autocad定制程序的编程语言。它们可以实现自动化绘图、数据处理和图形操作等功能。下面是一个基础的Autocad VBAVB.NET开发教程和源代码示例。 首先,通过以下几个步骤配置Autocad VBA开发环境: 1. 打开Autocad软件。 2. 执行“vbaide”命令,打开VBA集成开发环境。 3. 在VBA集成开发环境中,创建一个新的模块。 4. 在模块中编写代码。 以下是一个简单的Autocad VBA示例,用于在绘图中绘制一条直线: Sub DrawLine() Dim startPoint As Variant Dim endPoint As Variant startPoint = InputBox("Please enter the start point coordinates:") endPoint = InputBox("Please enter the end point coordinates:") ThisDrawing.ModelSpace.AddLine startPoint, endPoint End Sub 上述代码使用了InputBox函数来获取用户输入的起点和终点坐标,并使用AddLine方法在绘图中添加一条直线。 如果你想使用VB.NET来进行Autocad开发,可以使用Autocad.Net API。以下是一个简单的VB.NET示例,用于在绘图中绘制一条直线: Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Public Class MyCommands <CommandMethod("DrawLine")> Public Sub DrawLine() Dim doc As Document = Application.DocumentManager.MdiActiveDocument Dim db As Database = doc.Database Using trans As Transaction = db.TransactionManager.StartTransaction() Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead) Dim btr As BlockTableRecord = trans.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite) Dim startPoint As New Point3d(0, 0, 0) Dim endPoint As New Point3d(100, 100, 0) Dim line As New Line(startPoint, endPoint) btr.AppendEntity(line) trans.AddNewlyCreatedDBObject(line, True) trans.Commit() End Using End Sub End Class 上述代码使用了Autocad.Net API中的相关类和方法来实现在绘图中绘制一条直线的功能。通过定义一个Command方法,并使用CommandMethod特性进行标记,可以在Autocad软件中执行该命令。 以上是一个简单的Autocad VBAVB.NET开发基础与实例教程的源代码示例。通过学习这些示例,你可以了解如何使用Autocad VBAVB.NET进行开发,并根据自己的需求进行扩展和修改。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

专注VB编程开发20年

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值