本帖最后由 Gu_xl 于 2013-4-12 16:15 编辑
更改了下,适用任何曲线!演示命令: GetPath
2012.2.26更新
但程序运行效率上还差强人意,选择的线多了后,速度还成问题,代码还需优化!等我有时间慢慢优化一下,届时再公布核心代码吧!请耐心等待。。。
先公布一下VLX中打包的计算路径函数用法,你可以根据自己实际需要来使用:
函数名称: GetPath
函数用法: (GetPath SS STARTPOINT ENDPOINT FUZZ)
参数: SS = 曲线选择集 StartPoint = 路径起点 EndPoint = 路径终点 Fuzz = 容差精度
函数返回值: 返回路径弧段图元名表,按长度从小到大排序 '((弧段1图元名 弧段2图元名 ...) ;_ 路径1
((弧段n图元名 弧段n+1图元名 ...) ;_ 路径n
...)
用法示例: (setq ll (GetPath (ssget '((0 . "*line,arc,circle,ellipse"))) (getpoint "\n起点:") (getpoint "\n终点点:") 0.001))
2012.2.23 公布核心代码如下:
游客,本帖隐藏的内容需要发帖数高于 10 才可浏览,你当前发帖数只有 0
|