[求助]：关于EXCEL与CAD互用的问题

CCHH138

本人想要一个小软件：

功能：将EXCEL计算出来的一些点的坐标（X，Y），在2004中连续画直线。

具体特点：20044打开的图形中指定一个基准点，有绝对坐标。而在EXCEL中给这个点一个坐标（X，Y），计算出一些点相对于这个点坐标的相对坐标，然后自动画线。

或者简单情况：将EXCEL计算出来的一些点的绝对坐标（X，Y），在2004中连续画直线。也就是说，画直线时不再需要将EXCEL计算的数据手工输入，提高效率。最好修改EXCEL数据时，能联动，不再重新打开2004文件。

cy04gjl

我的问题刚好相反.将已有的DWG文件中的线段输出成坐标格式的文件,不知您能否解决?

zhouri

最初由 cy04gjl 发布
[B]我的问题刚好相反.将已有的DWG文件中的线段输出成坐标格式的文件,不知您能否解决? [/B]

你的问题似乎比较容易啊，我以前是用c语言变的程序从dxf文件读出来。很简单的。


我想应该用vba来编应该更是很容易的，可惜，我vba用得不好。

CCHH138

最初由 cy04gjl 发布
[B]我的问题刚好相反.将已有的DWG文件中的线段输出成坐标格式的文件,不知您能否解决? [/B]

在其它网站看到的,看合不合用??
下面的代码由用户在ACAD图形中选择对象并将对象部分属性写入EXCEL文档。
Sub WriteExcel()
  Dim ExcelApp As New Excel.Application
  Dim ExcelWkbk As Excel.Workbook
  Set ExcelWkbk = ExcelApp.Workbooks.Add
  Dim sel As AcadSelectionSet
  Dim i As Integer
  i = 2
  On Error Resume Next
  Set sel = ThisDrawing.SelectionSets.Add("ssel")
  If Err Then
    Err.Clear
    Set sel = ThisDrawing.SelectionSets.Item("ssel")
  End If
  On Error GoTo 0
  sel.SelectOnScreen
  Dim Ent As AcadEntity
  Dim pt1 As Variant, pt2 As Variant
  MsgBox ExcelWkbk.Name
  With ExcelWkbk.Worksheets("sheet1")
  For Each Ent In sel
    Select Case UCase(Ent.ObjectName)
      Case "ACDBLINE":
        .Range("A" & i) = "直线"
        pt1 = Ent.StartPoint
        pt2 = Ent.EndPoint
        .Range("B" & i) = pt1(0)
        .Range("c" & i) = pt1(1)
        .Range("D" & i) = pt2(0)
        .Range("E" & i) = pt2(1)
        i = i + 1
      Case "ACDBCIRCLE":
        .Range("A" & i) = "圆"
        pt1 = Ent.Center
        .Range("B" & i) = pt1(0)
        .Range("C" & i) = pt1(1)
        .Range("D" & i) = Ent.Radius
        i = i + 1
      Case Else:
    End Select
  Next Ent
  End With
  ExcelApp.ActiveWorkbook.SaveAs "d:\book1.xls"
  ExcelApp.Workbooks.Close
  ExcelApp.Quit
  sel.Delete
End Sub