飞哥，帮帮忙！

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))
)
)
)

meflying

后面的关于EXCEL操作的函数，你定义了，却没有使用啊，，，没用，怎么能实现功能呢？


还有，函数要先定义再使用，所以你定义函数的部分应该放到前面。。。

龙龙仔

2. ;;这个也能做毕业论文??
3. (defun C:SPLL (/ S1 FILE)
4.    (vl-load-com)
5.    (prompt "\nSelect Spline: ")
6.    (if (setq S1 (ssget ":E:S" '((0 . "SPLINE"))))
7.        (progn
8.            (setq FILE (open "C:\\AA.CSV" "W"))
9.            (write-line "拟合点的座标值:" FILE)
10.            (mapcar '(lambda (X)
11.      (if (= (car X) 10)
12.          (write-line (vl-princ-to-string (cdr X)) FILE)
13.      )
14.                )
15.              (entget (ssname S1 0))
16.            )
17.            (close FILE)
18.        )
19.    )
20.    (princ)
21. )

;;这个也能做毕业论文?? (defun C:SPLL (/ S1 FILE)    (vl-load-com)    (prompt "\nSelect Spline: ")    (if (setq S1 (ssget ":E:S" '((0 . "SPLINE"))))        (progn            (setq FILE (open "C:\\AA.CSV" "W"))            (write-line "拟合点的座标值:" FILE)            (mapcar '(lambda (X)      (if (= (car X) 10)          (write-line (vl-princ-to-string (cdr X)) FILE)      )                )              (entget (ssname S1 0))            )            (close FILE)        )    )    (princ) )

citykunan

龙版主的程序真是精悍。

lxz0929

飞哥，关键我不知把那些函数放在哪，因为做毕业设计才接触这个语言，所以我懂得很少，希望飞哥帮忙编辑一下 ！

lxz0929

龙版主，你写的程序，好象运行不出来！是不是错了！

maomao2004

龙版，服了


真简练

maomao2004

ssget ":E:S"和ssget "x"有什么区别呀


呵呵

龙龙仔

lxz0929发表于2005-6-3 15:20:00龙版主，你写的程序，好象运行不出来！是不是错了！

错了吗?请指教...... 运行不出来,可能是你版本太低!

xtjd

对呀!


ssget ":E:S"和ssget "x"有什么区别呀?