块上“两点”沿曲线滑动，收集的程序
版主好，大家好！在很久以前的一个贴子，
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95665&highlight=%C7%FA%CF%DF%D5%F3%C1%D0
“pzweng” 版主提出了一个问题，
“象链条这样的沿曲线阵列怎么做呢？”
因为工作的关系，需要将一个块模拟沿一条曲线滑动，它的特点是须需要这个块的两个点，始终位于这条曲线上，有幸在网上搜到了下面这个程序，和大家共享一下。
程序要求首先输入块名，然后选择曲线，再选择两个点，即可实现块在曲线上的动态滑动。原贴在这里。
http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/slide-along-a-curve/td-p/1274835
然而，“pzweng”版主，在上贴中提出的需求，即利用块上的两点，将块沿曲线阵列，仍然没能找到！
可以找到的，都是类似AUTOCAD自带的“measure”命令这样的功能！
不知道哪里有一个“动态”的将块在曲线上阵列，而且用的是两个点的这样的程序呢？ 增加一个GIF说明！ panliang9 发表于 2016-10-10 19:50
增加一个GIF说明！
去这看看http://bbs.xdcad.net/thread-705729-1-1.html 思路。 highflybird 发表于 2016-10-10 19:55
去这看看http://bbs.xdcad.net/thread-705729-1-1.html 思路。
"highflybird" 版主大人！
虽然很羞愧，但我还是勇敢的承认，在论坛混这么久，我还是只会跟在各位大人后面捡拾各种掉落的道具啊！
你虽然已经给我很清晰的指明了方向，但我还是不会用啊！
能不能把晓东贴子里“Lispboy”他写的程序缺失的晓东函数一并合并进去，
我试用了一下，程序提示“no function definition: XDRX_ENTSEL”
应该是缺一个晓东的函数，我不知道怎么弄进去！
就拜托了！
或者其它走过路过的大师，进来帮下！
谢谢“jltx123456”的回复，我回到贴子，按照要求加载了函数，但提示“我今早按你给的使用方法，将“xd-lisp-lib.VLX”还有通用函数库“XDRx.2007”都加载到了我的
AUTOCAD2007里了。
程序执行后，要求首先选择曲线，然后选择块对象，但返回一个提示“; 错误: 参数类型错误: 二维/三维点: nil”
附件内是我的图形，还有执行过程的动画。我相信这个程序肯定是没有问题的，是我的API没有加载对吗？” 成了，在晓东的贴子里：
http://bbs.xdcad.net/thread-705729-1-1.html
作者“lispboy”出手修改了源程序，在加载了晓东通用函数库的情况下，这个程序能顺利的将链扣顺利的排到链条上去，非常感谢晓东的“lispboy”，我这里代“lispboy” ，把程序贴出来，当然这个程序需要运行的话，还需要加载晓东的通用函数库，大家可以到晓东的贴子里看怎么做。
非常感谢本版主“高飞鸟”的指点，也感谢晓东版主“newer” 指点，原作者LISPBOY是最给力的！
修改后的程序在下面，需要首先选中曲线，再选中块，然后再选中块中两点！ panliang9 发表于 2016-10-11 11:46
成了，在晓东的贴子里：
http://bbs.xdcad.net/thread-705729-1-1.html
曲线两点阵列块 能分享下吗 本帖最后由 panliang9 于 2023-11-17 09:39 编辑
zhwj2023 发表于 2023-11-16 20:45
曲线两点阵列块 能分享下吗
程序就在8楼啊，但是要加载晓东的函数。晓东的函数去晓东论坛下就好了。
加载：array_aline_curve.lsp （在八楼）
加载：XDRX API和晓东LISP通用函数库
1、 加载：文件夹“XDRx.2007”里面的所有东西，“如果XP下加载不了API，把本目录下文件拷贝到2007安装根目录下”这个文件夹下的不一定加载
2、加载："xd-lisp-lib-10-10"文件夹下面的xd-lisp-lib.VLX
注意曲线必须打断，不能闭合
下面是我以前下的旧版本的晓东函数库。
晓东函数库
页:
[1]
2