VBA从2k到2k4
我有一个vba脚本，用于将eagle point dwg中的点数据直接提取到ldd3中的项目数据库，但它在ldd4中不起作用。我对脚本或vba一无所知，不记得这个vba是从哪里获得的。谁能帮帮我吗？？如果您发布或加载代码；并将我们链接到它？ 本人'；我会做得更好，我'；我会给大家发一个链接。在任何人询问为什么不获取ascii文件或使用ep提取数据之前，我&35;039；我一直在走这条路，这比我'；我必须通过。it#039；这是一个很长的肮脏故事（三年来一直跟老板唠叨这件事）。这是我能找到的最好的资源。www.segpa.biz/EaglePt2LDPt。数字视频广播 嘿，伙计们 ；这是另一个版本，同样的vba不再工作。这里有没有人愿意并且能够为我更新这个vba？我会再次发布一个链接，如果需要的话，也可以在这里发布。vba从包含eagle点块的图形中提取数据，并将该数据放置在ldd点数据库中。在我的例子中，除了这个vba之外没有其他选择，因为点数据只存在于这些旧图形中。没有可从中获取数据的点文件。我感谢大家的帮助！！ 恕我直言，一些人不愿将未知来源的DVD加载到他们的系统中。如果你链接到或发布一个TXT文件，你可能会得到更好的回复。如果是同样的情况，一些人在工作中查看的话，他们的下载能力会受到限制。。。只是需要记住的一件事。 我非常乐意这样做，只是我不知道如何将宏转换为txt文件。但是，我可以向您指出我在版本02中下载的原始宏的方向；http://www.budcad.com/Downloads.htm#EP这样会更好吗？？？谢谢
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；这是任何想玩的人的代码 ；这是在模块1中。 由于我刚刚在Adesk group上帮助了一些人，下面是更新它的说明：
请注意，土地类型库#对于LDT2-3为1.2，2004-2006为4.0，2007为6.0 天哪，这就是他所需要的吗
埃尔金，跟着杰夫'；s说明
不过你可能会出错。如果是这样，请执行相同操作，但在添加新引用之前，请关闭引用拨号框，如下所述
不过有一个小问题。取消选择Autodesk Land X.X库后，单击“确定”，然后转到“工具”，再次参考，选择“Autodesk Land 6.0库”，然后单击“确定”、“保存”，然后退出
大家早上好。我感谢你的帮助。我已经完成了这一步。我仍然得到了一个错误：“quot；编译错误：Can'；找不到项目或库&引用；代码中以灰色突出显示的部分是第三行#039；作为AECCogoPoints#039；的Dim cogoPnts；。黄色是第一行。接下来我该怎么办？
页:
[1]
2