yang686526

获得cad坐标并输出到excel的list
www.dimcax.com
获得cad坐标并输出到excel的list
现有如下lisp程序:
(defun c:tu()
(setvar "cmdecho" 0)
(command ".undo" "be")
(command "-units" "2" "3" "2" "3" "" "")
(setq fp (open "d:/point.xls" "a") s (getvar "cmdecho") n (getint "total no: "))
(princ "no" fp)(princ "\t" fp)
(princ "x" fp)(princ "\t" fp)
(princ "y" fp)(princ "\n" fp)
(repeat n
(setq k (getstring "\no（如：1）！")
p (getpoint "select point！")
x (strcat "x=" (rtos (nth 0 p)))
y (strcat "y=" (rtos (nth 1 p))))
(princ k fp)(princ "\t" fp)
(princ x fp)(princ "\t" fp)
(princ y fp)(princ "\n" fp))
(close fp)
(setvar "cmdecho" s))
(princ "\n提示：input tu！")
(princ)
想改成能输出x,y,z 坐标并自动生成序列号,试了几次没能成功,只能求教高手出手帮助一下了.我想需要这个功能的兄弟也很多大家集思广义一下,看还需要修改什么!网上的那个获得cad坐标并输出到指定行的程序不太好用!
d
高手们路过帮忙改一下,谢谢了!
d
自己已经搞定,有需要的兄弟留言!
d
咋弄的，给我一个看看
d
居然有这种办法！！但我的试验不成功，不知何故？
d
发个给我试试呀，多谢多谢 .com