Excel to Microstation Connect - VBA - Lesson 5 - Export Text to XL - Text Style Check - CAD QA

Описание: This tutorial shows how to export texts from Microstation to Excel and also how to identify elements using Elements ID. this is usefull as a part of CAD Quality Check for Text Style or Dimensions.

some of code see below

'DEFINE VARIABLES

Dim mytext As TextElement
Dim MyScanCriteria As ElementScanCriteria
Dim myScanEnum As ElementEnumerator
Dim myMSAppCon As MicroStationDGN.ApplicationObjectConnector
Dim myMSApp As MicroStationDGN.Application
Dim CurRow As Long



'CONNECT VBA TO MICROSTATION
Set myMSAppCon = GetObject(, "MicroStationDGN.ApplicationObjectConnector")
Set myMSApp = myMSAppCon.Application





'ELEMENT SEARCH
Set MyScanCriteria = New ElementScanCriteria
MyScanCriteria.ExcludeAllTypes
MyScanCriteria.IncludeType msdElementTypeText
ThisWorkbook.Worksheets("Sheet1").Range("A1:H100").Clear

......................

Free music on the link below
Music: Glare On The Water by Vlad Gluschenko is licensed under a Creative Commons License.
https://creativecommons.org/licenses/...
  / vgl9  
Support by RFM - NCM: https://bit.ly/2xGHypM