VBA从2k到2k4

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

我有一个vba脚本，用于将eagle point dwg中的点数据直接提取到ldd3中的项目数据库，但它在ldd4中不起作用。我对脚本或vba一无所知，不记得这个vba是从哪里获得的。谁能帮帮我吗？？

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

如果您发布或加载代码；并将我们链接到它？

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

本人&#039；我会做得更好，我&#039；我会给大家发一个链接。在任何人询问为什么不获取ascii文件或使用ep提取数据之前，我&35;039；我一直在走这条路，这比我&#039；我必须通过。it#039；这是一个很长的肮脏故事（三年来一直跟老板唠叨这件事）。这是我能找到的最好的资源。www.segpa.biz/EaglePt2LDPt。数字视频广播

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

嘿，伙计们&nbsp；这是另一个版本，同样的vba不再工作。这里有没有人愿意并且能够为我更新这个vba？我会再次发布一个链接，如果需要的话，也可以在这里发布。vba从包含eagle点块的图形中提取数据，并将该数据放置在ldd点数据库中。在我的例子中，除了这个vba之外没有其他选择，因为点数据只存在于这些旧图形中。没有可从中获取数据的点文件。我感谢大家的帮助！！

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

恕我直言，一些人不愿将未知来源的DVD加载到他们的系统中。如果你链接到或发布一个TXT文件，你可能会得到更好的回复。如果是同样的情况，一些人在工作中查看的话，他们的下载能力会受到限制。。。只是需要记住的一件事。

Jeff_M · 发表于 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

一些具有LDD和#039；我们将不得不得到这个，因为我不#039；我不知道LDD对象模型，但在这里#039；这是任何想玩的人的代码&nbsp；这是在模块1中。

Atook · 发表于 2006-7-18 20:37:02

由于我刚刚在Adesk group上帮助了一些人，下面是更新它的说明：
请注意，土地类型库#对于LDT2-3为1.2，2004-2006为4.0，2007为6.0

Jeff_M · 发表于 2006-7-18 22:31:43

天哪，这就是他所需要的吗
埃尔金，跟着杰夫&#039；s说明
不过你可能会出错。如果是这样，请执行相同操作，但在添加新引用之前，请关闭引用拨号框，如下所述
不过有一个小问题。取消选择Autodesk Land X.X库后，单击“确定”，然后转到“工具”，再次参考，选择“Autodesk Land 6.0库”，然后单击“确定”、“保存”，然后退出

Atook · 发表于 2006-7-19 08:17:25

大家早上好。我感谢你的帮助。我已经完成了这一步。我仍然得到了一个错误：“quot；编译错误：Can&#039；找不到项目或库&引用；代码中以灰色突出显示的部分是第三行#039；作为AECCogoPoints#039；的Dim cogoPnts；。黄色是第一行。接下来我该怎么办？

VBA从2k到2k4

发表回复

精选推荐