坐标提取的AutoLISP
大家好，有人能解释一下LISP编码吗。。。这将非常有帮助。。。
;;;选择点并将其坐标导出到excel文件
;;;=========================================
（定义C:EPEX（/ss fn f e p）
（提示“\n选择要导出的点：”）
（如果不是（setq ss（ssget’（（0。“点”）））
（progn（警报“未选择任何对象！”）（退出）
)
（if（not（setq fn（getfield“导出到文件”（getvar“dwgprefix”）“csv”1）））
（progn（警报“未选择文件！”）（退出）
)
（setq f（open fn“w”））
（while（setq e（ssname ss 0））
（setq p（cdr（assoc 10（entget e）））
（princ（strcat（rtos（car p））”，“（rtos（cadr p））“\n”）f）
（ssdel e ss）
)
（关闭f）
（警报（strcat“完成将点导出到文件：”fn））
)
;;;========================================= 两个作业请求就在一起。。。
哈哈！！！！
现在有两个目标进行一个小实验：
1.确定谷歌索引该网站的速度；
2.确定教授以多快的速度确定学生代码的源代码。
结果不言而喻：D:D
如果我们努力的话，学生当然有机会。
Lisp：点到excel工作表的坐标（+点编号）
点管理器
页:
[1]