[求助]：救命 啊！关乎毕业！

lxz0929

我想把SPLINE上拟合点的坐标值保存到一个EXCEL文件中，但下面的程序没能实现！请帮忙看看！这是我的毕业论文，谢了！

(Defun C:SPLL()
  (vl-load-com)
       (PrinC "\n这是对 Spline 进行数据分析的基本程序...")
       (While(progn(setq pen(car(entsel "\n指定一条 Spline: ")))
                        (/= "LWPOLYLINE"(cdr(assoc 0 (entget pen))))
                )
                (Alert "所指对象不是 Spline，请重新指定...")
       )
  (princ "\这是一条：")
  (setq s (getstring))
  (princ "\请选择原点：")
  (setq pt1(getpoint))
  (print pt1)
  (setq a1(car pt1))
  (setq a2(cadr pt1))
  (setq ent(entget pen))
  (setq ct 0)
  (textpage)
  (princ"\n 拟合点的坐标值:")
  (setq c1(length ent))
  (while(< ct c1)
   (setq d2(car(nth ct ent)))
      (if(= 10 d2)
(progn
   (setq d3(cdr(nth ct ent)))
   (setq b1(car d3))
   (setq b2(cadr d3))
   (setq b1(- b1 a1))
   (setq b1(abs b1))
   (setq b2(- b2 a2))
   (setq b2(abs b2))
   (print b1)
   (print b2)
   )
      )
   (setq ct(+ 1 ct))
  )
  (print)
(vl-load-com)
(defun DSX-TypeLib-Excel ( / sysdrv tlb)
(setq sysdrv (getenv "systemdrive"))
(cond
( (setq tlb (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office\\Excel8.olb")))
tlb
)
( (setq tlb (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office\\Excel9.olb")))
tlb
)
( (setq tlb (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office\\Excel10.olb")))
tlb
)
( (setq tlb (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office\\Excel.exe")))
tlb
)
( (setq tlb (findfile (strcat sysdrv "\\Program Files\\Microsoft Office\\Office11\\Excel.exe")))
tlb
)
)
)
(defun DSX-Load-TypeLib-Excel ( / tlbfile tlbver out)
(cond
( (null msxl-xl24HourClock)
(if (setq tlbfile (DSX-TypeLib-Excel))
(progn
(setq tlbver (substr (vl-filename-base tlbfile) 6))
(cond
( (= tlbver "9")
(princ "\n初始化 Microsoft Excel 2000...") )
( (= tlbver "8")
(princ "\n初始化 Microsoft Excel 97...") )
( (= (vl-filename-base tlbfile) "Excel.exe")
(princ "\n初始化 Microsoft Excel 2003...")
)
)
(vlax-import-type-library
:tlb-filename tlbfile
:methods-prefix "msxm-"
:properties-prefix "msxp-"
:constants-prefix "msxc-"
)
(if msxl-xl24HourClock (setq out T))
)
)
)
( T (setq out T) )
)
out
)
(defun DSX-Open-Excel-New (dmode / appsession)
(princ "\n创建一个新的 Excel 电子表格文件...")
(cond
( (setq appsession (vlax-create-object "Excel.Application"))
(vlax-invoke-method (vlax-get-property appsession 'WorkBooks) 'Add)
(if (= (strcase dmode) "SHOW")
(vla-put-visible appsession 1)
(vla-put-visible appsession 0)
)
)
)appsession
)
(defun DSX-Excel-Put-RowList (lst startrow startcol)
(foreach itm lst
(msxl-put-value
(DSX-Excel-Get-Cell range startrow startcol)
itm
)
(setq startcol (1+ startcol))
)
)
)

adisonmaster

为什么不用VBA，用VBA很好实现的，不用如此麻烦。

lxz0929

能不能给个程序？谢了！

adisonmaster

‘新建一个过程，这里是输出一个字符串“test"导出到Excel，其它的你可以写！
Sub Excel_text()
  Dim e1 As Excel.Application
  Dim ew As Worksheet
Set e1 = CreateObject("Excel.application")
e1.Visible = True
e1.Workbooks.Add
Set ew = e1.ActiveWorkbook.Sheets("sheet1")
ew.Cells(1, 1).value = "test"
End Sub