坐标提取的AutoLISP

Hari Prashanth · 发表于 2022-7-6 09:48:21

大家好，有人能解释一下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））
)
;;;=========================================