从2k到2k4的VBA

Elgin · 发表于 2004-4-20 14:46:50

我有一个vba脚本，我曾经用它来从鹰点dwg直接提取点数据到ldd3中的项目数据库，但它在ldd4中不起作用。我对脚本或vba一无所知，也不记得我从哪里得到这个vba。任何人都可以帮我吗？？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

daron · 发表于 2004-4-20 22:46:26

也许如果您发布代码或将其加载到网络上并将我们链接到它？

Elgin · 发表于 2004-4-21 09:09:58

我会戴上一个更好的，我会为大家发布一个链接。在有人问为什么不获取ascii文件或使用ep来提取数据之前，我已经走上了这条路，这比我必须经历的要容易得多。这是一个很长的肮脏的故事（三年来一直困扰着老板）。这是我能找到的最好的资源。
www.segpa.biz/EaglePt2LDPt.dvb

Elgin · 发表于 2006-7-18 17:53:48

嘿,伙计们！！！这是一个不同的版本，相同的vba不再工作。这里有人愿意并且能够为我更新这个vba吗？如果需要，我会再次发布一个链接或将其发布在这里。vba 从包含鹰尖点块的图形中提取数据，并将该数据放在 ldd 点数据库中。在我的情况下，除了这个vba之外，没有其他选择，因为点数据只存在于这些旧图纸中。没有点文件可以从中获取数据。我感谢帮助的家伙！

Kerry · 发表于 2006-7-18 18:06:47

恕我直言，有些人不愿意将DVD从未知来源加载到他们的系统中。您可能会得到更好的响应，您可以链接到或发布TXT文件。
..如果脉络相同，一些从工作中观看的人对他们的下载能力有限制。只是要记住的事情。

Elgin · 发表于 2006-7-18 18:18:45

我非常乐意这样做，只是我不知道如何将宏转换为txt文件。不过，我可以向您指出我在02版下载它的原始宏的方向http://www.budcad.com/Downloads.htm#EP
这样会更好吗？？？谢谢

Jeff_M · 发表于 2006-7-18 18:41:56

copy

Public Sub Blocks2Points()
On Error Resume Next
Dim cogoPnts As AeccCogoPoints
Dim newCogoPnt As AeccCogoPoint
Set cogoPnts = AeccApplication.ActiveProject.CogoPoints
    
Dim newPnt As Variant
Set SSET = ThisDrawing.SelectionSets.Add("temp3")
SSET.SelectOnScreen
For Each ent In SSET
Select Case ent.EntityType
Case 7
array1 = ent.GetAttributes
newPnt = ent.InsertionPoint
cogoPnts.NextPointNumber = array1(0).TextString
Set newCogoPnt = cogoPnts.Add(newPnt, kCoordinateFormatXYZ)
newCogoPnt.RawDescription = array1(1).TextString
newCogoPnt.Elevation = array1(2).TextString
End Select
Next
ThisDrawing.SelectionSets.Item("temp3").Delete
End Sub