从2k到2k4的VBA
我有一个vba脚本，我曾经用它来从鹰点dwg直接提取点数据到ldd3中的项目数据库，但它在ldd4中不起作用。我对脚本或vba一无所知，也不记得我从哪里得到这个vba。任何人都可以帮我吗？？**** Hidden Message ***** 也许如果您发布代码或将其加载到网络上并将我们链接到它？ 我会戴上一个更好的，我会为大家发布一个链接。在有人问为什么不获取ascii文件或使用ep来提取数据之前，我已经走上了这条路，这比我必须经历的要容易得多。这是一个很长的肮脏的故事（三年来一直困扰着老板）。这是我能找到的最好的资源。
www.segpa.biz/EaglePt2LDPt.dvb 嘿,伙计们！！！ 这是一个不同的版本，相同的vba不再工作。这里有人愿意并且能够为我更新这个vba吗？如果需要，我会再次发布一个链接或将其发布在这里。vba 从包含鹰尖点块的图形中提取数据，并将该数据放在 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的人必须得到这个，因为我不知道LDD对象模型，但这是任何想玩的人的代码。这是在Module1中。 因为我刚刚帮助了Adesk组的某个人，这里是更新它的方向：
请注意，土地类型库#对于LDT2-3是1.2,2004-2006是4.0,2007是6.0 天哪，他只需要这些吗
早上好，伙计们。我感谢您的帮助。我已经完成了这一步。我仍然收到一个错误：“编译错误：找不到项目或库。”代码中以灰色突出显示的部分是第三行“Dim cogoPnts As AeccCogoPoint”。黄色是第一行。接下来我该怎么办？
页:
[1]
2