[编程申请]：怎样将Excel里的数据在AutoCAD2002里面生成图形？

山顶洞人

这回好了，谢谢你！*-*4

oxrtalent

写的好啊

xiaoyoufish

但我知道天正五、六可以有这个功能，不错的，可以试一下

山顶洞人

lzh741206：
　　你好！又遇到了点问题，如果还要输入点该怎么办？
　　
　　如果看到这条信息请一定帮个忙啊，急用，谢谢！

雪山飞狐(lzh)

[Code]
Sub TlsTestX()
On Error Resume Next

    Dim objExcel As Object
    Dim pSheet As Object
    Dim pNum As Integer
    Dim pnt(2) As Double
    Dim pAOrD As Double
    Dim pDis As Double
    Dim p1, p2, dot
   
    Set objExcel = GetObject(, "Excel.Application")
    If Err Then Err.Clear: MsgBox "请先打开Excel!": Exit Sub
    Set pSheet = objExcel.ActiveSheet
   
    pDis = ThisDrawing.Utility.GetReal(vbCr & "请输入直线长度：")
    If Err Then Exit Sub
   
    pNum = 1
    pSpec = Trim(pSheet.Cells(pNum, 1))
   
    Do While InStr(pSpec, "_") = 0
   
        pNum = pNum + 1
        pSpec = Trim(pSheet.Cells(pNum, 1))

    Loop
   
    Do While InStr(pSpec, "_") > 0
   
        pnt(0) = pSheet.Cells(pNum, 2)
        pnt(1) = pSheet.Cells(pNum + 1, 2)
        dot = pnt
        pAOrD = pSheet.Cells(pNum + 2, 2)
        pNum = pNum + 3
        
        If UCase(Left(pSpec, 1)) = "L" Then
        
            pAOrD = pAOrD * Atn(1) / 45
            p1 = ThisDrawing.Utility.PolarPoint(pnt, pAOrD, pDis / 2)
            p2 = ThisDrawing.Utility.PolarPoint(pnt, Atn(1) * 4 + pAOrD, pDis / 2)
            ThisDrawing.ModelSpace.AddLine p1, p2
            
        ElseIf UCase(Left(pSpec, 1)) = "C" Then
        
            ThisDrawing.ModelSpace.AddCircle pnt, pAOrD / 2
            
        Else
        
            ThisDrawing.ModelSpace.AddPoint pnt
            pNum = pNum - 1
        
        End If
        
        pSpec = Trim(pSheet.Cells(pNum, 1))
        
    Loop
   
End Sub
[/Code]

山顶洞人

收到，使用情况良好，十分感谢！

lsjjm

最初由 山顶洞人 发布
[B]怎样将Excel里的数据在AutoCAD2002里面生成图形？[/B]

这实际就是Excel 和AutoCAD的数据交换问题. 使用Vlisp也可以解决.