从Autocad到Excel获取坐标

Swift · 发表于 2015-4-26 05:08:04

大家好；我试图通过autocad自动计算某些dxf图形的权重，但目前为止似乎不可能
现在我在考虑一个新的场景，比如从autocad获取直线、圆等的坐标，然后在catia上重新绘制em
那么你能告诉我一种从autocad到excel的直线起点和终点坐标的方法吗
thx提前

Swift · 发表于 2015-4-27 11:28:33

这些天，在使用VBA的同时，我选择在64位Autocad 2015和32位Excel 2010上工作的方法是：
-Build a selection set（或一系列if-then循环），我发现64位VBA中的选择集充其量是不确定的，一旦你有了要写逗号分隔的文本文件的项，就将其导入Excel，这不是&#039；无论如何，这不是最干净的方法，但对我来说，在我的盒子上，尝试更华丽的东西更防弹
今天晚些时候我可以给你举个例子。

Swift · 发表于 2015-4-27 16:58:34

这是一种蛮力方法，不是速度恶魔，但如果你让它坐下来烹饪，并参考“速度恶魔”，它是可靠的；Microsoft脚本运行时“

copy

Public Sub BruteForceTriangles()
Dim txtstream As TextStream
Dim fso As New FileSystemObject
Dim face As Acad3DFace
Dim myfile As String
Dim acent As AcadEntity
On Error GoTo MyExit
myfile = "C:\GDrive\AutoCAD\HLB-Lime.txt"
Set txtstream = fso.OpenTextFile(myfile, ForWriting, True)
For Each acent In ThisDrawing.ModelSpace
    If acent.ObjectName = "AcDbFace" Then
        Set face = acent
        
        If face.Layer = "0-HLB-LimeArea" Then
           
            txtstream.WriteLine face.Coordinates(0) & "," & face.Coordinates(1) & "," & face.Coordinates(2) & "," & face.Coordinates(3) & "," & face.Coordinates(4) & "," & face.Coordinates(5) & "," & face.Coordinates(6) & "," & face.Coordinates(7) & "," & face.Coordinates(8)
       
        End If
    End If
Next acent
MyExit:
txtstream.Close
End Sub

Swift · 发表于 2015-5-1 11:34:46

嘿，斯威夫特谢谢你的回复，我会试试并分享结果
干杯！

Swift · 发表于 2015-7-13 12:07:26

我们正在寻找AutoCad VBA顾问。我们为AutoCad开发了一个Visual Basic插件，该插件在AutoCad 12 WindowsXP上运行良好。AutoCad限制了Visual Basic对AutoCad 13的支持（也可能是14），但重新引入用于；AutoCad 2015。64位Windows 7和AutoCad 15+的AutoCad插件需要一些VBA编程支持
请与我联系。Mark，Universe Technical Translation，Incmark@universe.us713-8278800

从Autocad到Excel获取坐标

发表回复

精选推荐