（2024.05.23日更新）晓东工具箱（For ACAD2004-2025）提供下载

bhy228

D豆不足，如何充值！

李春雨

安装后工具条怎么没有啊

newer

李春雨 发表于 2017-4-28 14:19

这个帖子从头仔细看下，朋友们遇到问题的解决方法。

gufan2000

再来看看老大。老大辛苦了

gufan2000

再来看看老大。老大辛苦了

bhy228

如果能集成导出多段线拐点坐标就完美了

newer

bhy228 发表于 2017-4-29 16:30

工具箱 坐标菜单下面有 沿线列表，做这个的。
论坛有这个插件了，去每日论坛搜索下。生成表格的。

小叶逛论坛

下载来试试。东哥~

jalzq793083

楼主辛苦了，谢谢

bhy228

newer 发表于 2017-4-29 16:37

出现错误，请求协助，谢谢！
CAD2007提示：请拾取多段线<退出:>出错: no function definition: REMOVE_DOUBLES

newer

bhy228 发表于 2017-5-2 10:30

具体的问题，单独发帖，说明下你运行的是菜单的哪个命令？

bhy228

工具箱-- 坐标菜单下面---沿线列表，然后呢点击多段线，CAD2007提示：请拾取多段线<退出:>出错: no function definition: REMOVE_DOUBLES

有劳啦，楼主！

Newer

bhy228 发表于 2017-5-2 10:34

暂时先加载下下面的代码，等工具箱或者通用LISP函数库更新就好了。

1. (defun XD::List:RemoveDup ( lst / foo index )
   
2.     (defun foo (x)
   
3.         (cond
   
4.             ((vl-position x index))
   
5.             ((null (setq index (cons x index))))
   
6.         )
   
7.     )
   
8.     (vl-remove-if
   
9.        'foo
   
10.         lst
    
11.     )
    
12. )
    
13. 
    

(defun XD::List:RemoveDup ( lst / foo index )<br />     (defun foo (x)<br />         (cond<br />             ((vl-position x index))<br />             ((null (setq index (cons x index))))<br />         )<br />     )<br />     (vl-remove-if<br />        'foo<br />         lst<br />     )<br /> )<br /> <br />

bhy228

楼主大人，能不能设置一个多线段拐点坐标提取功能，提取后的坐标可另存为excel格式，如下图：

newer

bhy228 发表于 2017-5-3 13:37

以后有问题单独发帖子，在这个里面容易埋没。