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

山顶洞人

现在手头有如下图所示的Excel数据，其中Cir1_X、Cir1_y是圆1的圆心坐标,Cir1_Dia是圆1的直径，LN4_x、LN4_y是线段4的中点坐标,LN4_Phi是线段4的角度，怎样将这些数据在AutoCAD2002里面生成图形呢？（线段的长度要求可以自定义）

山顶洞人

这是Excel数据

山顶洞人

这些数据生成的图形是这样的。

雪山飞狐(lzh)

LN4_Phi之类的是什么数据？

山顶洞人

最初由 lzh741206 发布
[B]LN4_Phi之类的是什么数据？ [/B]

这是下面CAD图中的线段中点坐标

雪山飞狐(lzh)

那直线的绘制还差数据，要么给定两点，要么给定一点，角度和长度

山顶洞人

最初由 lzh741206 发布
[B]那直线的绘制还差数据，要么给定两点，要么给定一点，角度和长度 [/B]

我现在能得到的数据也只有这些呀，编程我不懂，上次那位斑主帮我编的时候已知条件也是只有中点坐标和角度，你看看这里http://www.xdcad.net/forum/showthread.php?s=&threadid=172753

雪山飞狐(lzh)

贴个VBA的，先打开Excel文件，再运行
[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
   
        pnt(0) = pSheet.Cells(pNum, 2)
        pnt(1) = pSheet.Cells(pNum + 1, 2)
        dot = pnt
        pAOrD = pSheet.Cells(pNum + 2, 2)
        
        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
            
        End If
        
        pNum = pNum + 3
        pSpec = Trim(pSheet.Cells(pNum, 1))
        
    Loop
   
End Sub
[/Code]

山顶洞人

最初由 lzh741206 发布
[B]贴个VBA的，先打开Excel文件，再运行
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 Do... [/B]

我只会加载Autolisp，请问一下这个怎么用啊（越详细越好）？
昨天忙到十点多啊，辛苦了，十分感谢！

独钓蓑翁

应该用外加程序

山顶洞人

最初由 独钓蓑翁 发布
[B]应该用外加程序 [/B]

还是不懂！能说详细一点吗？

雪山飞狐(lzh)

工具－》宏－》VB编辑器
双击左边的Thisdrawing，在右边的代码区把上面的代码Copy进去
保存一下，并将保存后的文件加入启动组
加载下列Lisp代码
(defun c:TlsX()
(setvar "cmdecho" 0)
(command "-vbarun" "TlsTestX")
(setvar "cmdecho" 1)
(princ)
)
运行命令TlsX

long91

最初由 lzh741206 发布
[B]工具－》宏－》VB编辑器
双击左边的Thisdrawing，在右边的代码区把上面的代码Copy进去
保存一下，并将保存后的文件加入启动组
加载下列Lisp代码
(defun c:TlsX()
(setvar "cmdecho" 0)
(command "-vbarun" "Tl... [/B]

同意

山顶洞人

最初由 lzh741206 发布
[B]工具－》宏－》VB编辑器
双击左边的Thisdrawing，在右边的代码区把上面的代码Copy进去
保存一下，并将保存后的文件加入启动组
加载下列Lisp代码
(defun c:TlsX()
(setvar "cmdecho" 0)
(command "-vbarun" "Tl... [/B]

很好用，感谢，就是有一点Excel表格中的，比如：Dir1_Dia 0.8891是表示直径，而不是半径！如果像下图那样，我还得把圆再缩小一半了，呵呵~,再辛苦一下吧!

雪山飞狐(lzh)

已经改正过了，你再把原来的VBA代码覆盖掉，保存一下就可以了