利用宏文件提取SolidWorks草图中点的坐标

软件平台：SolidWorks2016+Excel2013

1. 在SolidWorks中建立好草图点，然后选择工具->宏->新建

2. 将Macrol 1中代码删除，复制如下代码放进去，运行可以在E盘得到保存坐标点的Excel文件

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'
' 草图点导出到Excel中
'
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Option ExplicitDim swApp As Object
Dim modelDoc As Object
Dim sketch As Object
Dim objExcel As Object
Dim objWorkBook As Object
Dim objWorkSheet As Object
'Dim objWorkBook As Excel.Workbook
'Dim objWorkSheet As Excel.WorksheetConst FILE_NAME = "E:\Coordinates.xls"Sub main()Set swApp = Application.SldWorksSet modelDoc = swApp.ActiveDocIf modelDoc Is Nothing ThenMsgBox "No active document!"Exit SubEnd If'// get active sketch'Set sketch = modelDoc.SketchManager.ActiveSketchIf sketch Is Nothing ThenMsgBox "No active Sketch!"Exit SubEnd If'// Check ExcelSet objExcel = CreateObject("Excel.Application")If objExcel Is Nothing ThenMsgBox "Cannot open Excel!"Exit SubEnd IfSet objWorkBook = objExcel.Workbooks.AddIf objWorkBook Is Nothing ThenMsgBox "Cannot open Excel Workbook!"Exit SubEnd IfSet objWorkSheet = objWorkBook.Worksheets(1)If objWorkSheet Is Nothing ThenMsgBox "Cannot open Excel WorkSheet!"Exit SubEnd If'Extract Sketch Points'Dim i As IntegerDim sketchPoints As VariantsketchPoints = sketch.GetSketchPoints2()'Write X, Y, Z title to Excel worksheetobjWorkSheet.Cells(1, 1) = "X"objWorkSheet.Cells(1, 2) = "Y"objWorkSheet.Cells(1, 3) = "Z"'Write coordinates to Excel worksheet'For i = 0 To UBound(sketchPoints)objWorkSheet.Cells(i + 2, 1) = Round(sketchPoints(i).X * 1000, 2)objWorkSheet.Cells(i + 2, 2) = Round(sketchPoints(i).Y * 1000, 2)objWorkSheet.Cells(i + 2, 3) = Round(sketchPoints(i).Z * 1000, 2)Next iobjWorkBook.SaveAs FILE_NAME'Close Excel'objWorkBook.CloseobjExcel.QuitSet objWorkSheet = NothingSet objWorkBook = NothingSet objExcel = NothingMsgBox "坐标存储于:" & vbCrLf & FILE_NAMEEnd Sub

参考文献

http://www.cmiw.cn/thread-480824-1-1.html

利用宏文件提取SolidWorks草图中点的坐标相关推荐

Source Insight利用宏文件实现多行快速注释以及其他超级好用的功能
前言 Source insight是一款非常优秀的代码阅读软件,但是有些地方还是不够完善,比如没有快速对一段代码进行注释的功能.对于此类需求,我们可以借助宏来实现.网上有很多source insigh ...
宏文件下载_SolidWorks模型英文特征改中文名字方法分享SolidWorks宏文件 [
今天溪风发现了一个超级好用的SolidWorks宏命令文件,分享给大家使用,那就是SolidWorks模型的英文特征修改为中文特征的方法,批量修改全部特征,太棒了! 也许这样说你可能不理解,那我这么表 ...
SOLIDWORKS如何利用已有的图片做草图生成实体？
有的公司做概念设计的时候往往是请美术专业人员来画,确定草稿后交到工程人员手中,那工程设计人员如何用已有的图片来直接转化成SOLIDWORKS草图,最后生成实体呢?以一个简单的例子进行讲解. 方法: 1 ...
利用MSER算法提取图像区域(车牌区域)的OpenCV代码~
图像处理开发需求.图像处理接私活挣零花钱,请加微信/QQ 2487872782 图像处理开发资料.图像处理技术交流请加QQ群,群号 271891601 我的博客中前面已经写了两种方法来实现车牌区域的提 ...
php 动态控件,PHP技术在动态网页表单控件提取中的应用研究
曲小纳摘要:由于电子商务及网络信息技术的飞速发展,动态网站已经逐渐取代传统的静态网站,在不断向人工智能化等方向发展.该篇文章就针对PHP这种技术在动态网页表单控件提取中的应用进行详细的阐述. 关键词 ...
C#利用控件拖拽技术制作拼图游戏
C#利用控件拖拽技术制作拼图游戏这篇文章主要介绍了C#利用控件拖拽技术制作拼图游戏的方法以及核心代码,需要的朋友可以参考下主要实现的功能: 1.程序附带多张拼图随机拼图. 2.可手动添加拼图. 3 ...
利用水文分析提取山脊线山谷线
1 流程图利用水文分析提取山脊线及山谷线,山脊线相当于分水线,山谷线相当于山谷线.分水线是水流的起源点,这些栅格的水流方向只存在流出方向而不存在流入方向,所以汇流累积量为零.通过对零值的提取就可以得 ...
matlab 山脊提取,ArcGIS中利用水文分析提取山脊线山谷线
1 流程图利用水文分析提取山脊线及山谷线,山脊线相当于分水线,山谷线相当于山谷线.分水线是水流的起源点,这些栅格的水流方向只存在流出方向而不存在流入方向,所以汇流累积量为零.通过对零值的提取就可以得 ...
利用ArcGIS提取MODIS数据的像元坐标
MODIS数据简介 MODIS数据目前已经提供多种数据,以terra卫星的反射率产品MOD09GA(2018年217天h15v01)为例,该产品的数据是HDF4格式,它将许多有用的数据集整合到一起,当 ...

利用宏文件提取SolidWorks草图中点的坐标

利用宏文件提取SolidWorks草图中点的坐标相关推荐

最新文章

热门文章