计算Layout上所有图形元素个数 Public void CountLayoutElements() {IMxDocument pMxDoc =ThisDocument IGraphicsContainer pGContainer =pMxDoc.PageLayout; pGContainer.Reset();//确保指针指向最初的位置 IElement pElement = pGContainer.Next(); Int intGraphicCount = 0; Do {If TypeOf(pElement) is IGraphicElement { intGraphicCount = itGraphicCount +1} pElement = pGContainer.Next(); }While(pElement=null) MsgBox.show(“There are " & intGraphicCount & " graphics on the page“)} Example: Count all the graphic elements on the layout Public Sub CountLayoutElements () Dim pMxDoc As IMxDocument Dim pGContainer As IGraphicsContainer Dim pElement As IElement Dim intGraphicCount As Integer Set pMxDoc = ThisDocument Set pGContainer = pMxDoc.PageLayout pGContainer.Reset '*Make sure the pointer is on the first item Set pElement = pGContainer.Next '*pull out the first element Do Until pElement Is Nothing '*Loop thru all elements If TypeOf pElement Is IGraphicElement Then intGraphicCount = intGraphicCount + 1 '*increment the count End If Set pElement = pGContainer.Next '*pull out the next element Loop MsgBox "There are " & intGraphicCount & " graphics on the page" Exit Sub

1.可以打开并浏览ACAD2018版本一下dwg/dxf图形文件 2.可以对线进行均匀分点并导出点位坐标 3.可以导出图形元素信息 4.可以保存ACAD格式文件 5.支持二次开发绘图功能等

实现了点线面及基本图形的数据库存储，涉及了计算机图形学数据库等知识

BPMN论坛中下载的资料，由北京交通大学软件学院、华胜天成集团摩卡软件（MochaSoft） 、炎黄盈动技术有限公司（ActionSoft） 参与翻译。供参考，侵权删除

visio图形状元素一览(全)，包含visio所有图形介绍，方便查看进行选择

彩色信息图形元素图标提供23张尺寸为128x128像素的PNG和ICO格式图标免费下载。