LISP 圆孔标记_【CAD】〖30〗生成圆孔明细表

【CAD】〖30〗生成圆孔明细表

2018-09-19

【转载】原创为XDSoft

AUTOCAD可以这样玩！！！

授人以鱼不如授人以渔！！！

★★如果在ACAD下，你工作中有需要把重复的劳动希望用插件替你瞬间完成的，可以在这个论坛发帖说明详细的要求，我看到可以抽空给你写代码。★★

================================

前言：

1、LISP源码在AUTOCAD(2004-2019)下执行。

2、LISP源码加载方法：

a.拷贝代码保存成扩展名.lsp的文件

b.ACAD下执行命令APPLOAD，找到保存的LSP文件，点加载按钮。

重要！！：如同WIN下很多软件需要VC 运行库支持一样，下面LISP源码执行前需要LISP通用函数库(XDRX API)，安装一次即可，自行百度下载 XDRX API 下载安装。

DISCUZ论坛复制代码有可能乱码，正确的复制论坛LISP代码的方法见：https://www.52pojie.cn/forum.php ... 45&pid=20877863

复制代码不要复制行号。

===========================

问题：

统计园明细表并编号，编号前缀按半径排升序，半径相同的编号前缀相同，A1,A2.. B1,B2....

===========================

演示：

===========================

★★技巧：LISP语言defun后面定义的是函数或者命令名，命令名可以直接在ACAD命令行输入之行&#