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循环语句几句可以达到这个功...
lisp点表的最近点最远点，多断线顶点最近点，lsp坐标点排序
谈到最近点，点肯定是两个以上的点，参考点和目标点不在一点才能说有最近点，。一个表里有很多坐标，那怎么通过排序来取得最远和最近的点了。这个肯定是要先把已知的点排序，不排序怎么知道大小了？所有我们的目标是...
lisp求垂直点，圆弧、线上最近点
在lsp里面怎么求垂直点了?已知一条线断或者圆弧，已知一点，求这一点在直线上的最近点，最近点肯的是垂直距离已知点才近了。 以下代码求求垂直距离。不是线段的已知端点哦。 (defun C:ddd(/ p...
CAD基本操作教程
cad文字变线条，cad空心文字，圆弧文字
cad里面其实不需要外挂插件也能实现文字变线条和空心文字的。命令txtexp。如图 如果你的cad提示这个命令错误，说明你没有安装这个工具，cad默认安装是没有这个工具的，如果有安装这个工具是这个样子...
CAD基本操作教程
cad安装EXPress工具，lisp扩展数据vlax-ldata-put
在cad开发里面vlax-ldata-put扩展数据可以记录信息到dwg文件里面，在用vlax-ldata-get读取出来，但是有的cad提示未知函数，cad里面默认安装是没有这个函数的所有没有的必须...
lisp判断CUI菜单文件是否加载 cuiload
都知道使用_cuiload命令可以加载菜单文件，但是这个也不能重复加载的，在程序里面不做判断处理肯定每次启动都要加载，又不能重复加载，只能判断自定义组里面是否有我们加载的了。有就不加载没有就加载。可以...
Auto CAD
cad制作菜单lisp制作工具条自定义CUI文件
在cad里面画图每个人的习惯都不一样，有的喜欢快捷键，有的喜欢点击菜单或者工具条 工具条和菜单也是可以自定义的，意思就是把经常用的命令凑一块儿，方便用。 还有一种就是自己开发的功能，命令很长，想做个菜...
