lisp读文件，并不是像其他语言可以直接读取赋值调用，lsp里面读文件的思路是，先读全部对读出来加入到列表里，，在通过循环列表里面的值，才能准确的拿到我们想要的值。 例子： (defun c:ffff...
CAD二次开发
DCL对话框布局，固定位置，调整宽度，radio_button竖着横着，默认选中
先看图用lisp调用的对话框 用dcl做对话框，要想像vb，c++那样任意摆放位置，你还是省点；力气吧！ 在dcl里面做对话，要想达到指定的位置必须使用容器控件，意思就是一个容器里面装那些控件，因为容...
lisp启动dcl界面之radio_button单选按钮默认选中value设置
用lsp开发cad插件的时候，想给自己的插件增加一个界面显得高大尚一点，，界面是难产出来了，但是增加的radio_button单选，启动的时候没有被选中，坑爹，，在别的软件单选直接设置属性value=...
lisp记录上次输入的值，自动保存输入的数，历史记录系统变量
折腾好几天，在系统自带的命令里面可以看到是否是选项后，下次启动命令显示的值还是上次输入的值，刚开始怀疑是系统变量，就没在意，但是我用别的插件的时候，也会出现记录上次的，通过网上查询，有是说注册表，有的...
lisp比较函数，对比比较表，equal和eq区别
lsp写程序的时候很多地方都会用到比较函数，如我有两个表，怎么判断他是否一样了。比较肯定是两个才能比较， 函数(eq 数据1 数据2)。判别是否是同一个表。两者是否为同一个表达式 例子 (defun ...
lisp循环读取列表，lsp循环遍历列表，while使用，vl-princ-to-string字符转换显示
很多人都不明白lsp里面的循环如何使用或者怎么把一个列表里面的值依次读取出来，在通过窗口显示在弹窗上面，来确认是否读的和自己想要的一样，下面小例子，如何循环历遍列表值。并显示出来，lsp循环我知道的有...
lisp自定义函数用法，lsp自定义函数附值
lsp自定义函数其实和别的软件编程一线，举例 自定义函数 (defun re_cfff(b0 / b2 b3) ;b0就是要带入的值 (setq b2 5) (setq b3 ( + b...
lisp找出表里的重复，去除重复，删除单一单独，二个半圆变整圆lsp
cad里面的图形有的是用别的3D软件导出来的，圆就是半圆或者多个圆弧组成，想要通过代码实现半圆变成整圆。首先我们要找到圆弧的圆心，和圆弧的半径，只要圆心和半径有两个以上是相同，就说明是半圆组成的。比如...
CAD二次开发
lisp最近点、多点连线，最近点画样条曲线，最近点排序，ucs用户坐标点排序
最近点可以有2种理解，一种是始终与一点开始计算最近点，另一种是以上一点开始计算距离，依次开始计算，这样的话就可以连成一条曲线。 直接上菜 (defun c:tt (/ lst ss n en pt l...
lisp限制负数判断负数输入，while循环判断输入
很久没发文了，最近加班没啥时间来研究这个，lsp怎么像系统自带的偏移那样了，输入偏移距离的时候，只支持正数，不支持负数或者零了， 肯定是可以自己编写出来的。直接使用while循环语句几句可以达到这个功...
