块上“两点”沿曲线滑动，收集的程序

panliang9

版主好，大家好！
在很久以前的一个贴子，
http://bbs.mjtd.com/forum.php?mo ... A%CF%DF%D5%F3%C1%D0
“pzweng” 版主提出了一个问题，

“象链条这样的沿曲线阵列怎么做呢？”

因为工作的关系，需要将一个块模拟沿一条曲线滑动，它的特点是须需要这个块的两个点，始终位于这条曲线上，有幸在网上搜到了下面这个程序，和大家共享一下。

程序要求首先输入块名，然后选择曲线，再选择两个点，即可实现块在曲线上的动态滑动。原贴在这里。

http://forums.autodesk.com/t5/vi ... -curve/td-p/1274835

panliang9

然而，“pzweng”版主，在上贴中提出的需求，即利用块上的两点，将块沿曲线阵列，仍然没能找到！

可以找到的，都是类似AUTOCAD自带的“measure”命令这样的功能！

不知道哪里有一个“动态”的将块在曲线上阵列，而且用的是两个点的这样的程序呢？

panliang9

增加一个GIF说明！

highflybird

panliang9 发表于 2016-10-10 19:50
增加一个GIF说明！

去这看看  http://bbs.xdcad.net/thread-705729-1-1.html 思路。

panliang9

highflybird 发表于 2016-10-10 19:55
去这看看  http://bbs.xdcad.net/thread-705729-1-1.html 思路。

"highflybird" 版主大人！

虽然很羞愧，但我还是勇敢的承认，在论坛混这么久，我还是只会跟在各位大人后面捡拾各种掉落的道具啊！

你虽然已经给我很清晰的指明了方向，但我还是不会用啊！

能不能把晓东贴子里“Lispboy”他写的程序缺失的晓东函数一并合并进去，

我试用了一下，程序提示“no function definition: XDRX_ENTSEL”

应该是缺一个晓东的函数，我不知道怎么弄进去！

就拜托了！

panliang9

或者其它走过路过的大师，进来帮下！

panliang9

谢谢“jltx123456”的回复，我回到贴子，按照要求加载了函数，但提示“我今早按你给的使用方法，将“xd-lisp-lib.VLX”  还有通用函数库“XDRx.2007”都加载到了我的

AUTOCAD2007里了。

程序执行后，要求首先选择曲线，然后选择块对象，但返回一个提示“; 错误: 参数类型错误: 二维/三维点: nil”

附件内是我的图形，还有执行过程的动画。我相信这个程序肯定是没有问题的，是我的API没有加载对吗？”

panliang9

成了，在晓东的贴子里：

http://bbs.xdcad.net/thread-705729-1-1.html

作者“lispboy”出手修改了源程序，在加载了晓东通用函数库的情况下，这个程序能顺利的将链扣顺利的排到链条上去，非常感谢晓东的“lispboy”，我这里代“lispboy” ，把程序贴出来，当然这个程序需要运行的话，还需要加载晓东的通用函数库，大家可以到晓东的贴子里看怎么做。

非常感谢本版主“高飞鸟”的指点，也感谢晓东版主“newer” 指点，原作者LISPBOY是最给力的！

修改后的程序在下面，需要首先选中曲线，再选中块，然后再选中块中两点！

zhwj2023

panliang9 发表于 2016-10-11 11:46
成了，在晓东的贴子里：

http://bbs.xdcad.net/thread-705729-1-1.html

曲线两点阵列块 能分享下吗  

panliang9

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
注意曲线必须打断，不能闭合





下面是我以前下的旧版本的晓东函数库。
晓东函数库