line,arc,circle消重，真正的秒杀

Love-Lisp

新发布的API中的xdrx_Pickset_RemoveDupLine line,arc,circle消重函数，效率高到极致，测试20000条直线消重，仅需0.5秒！我用Lisp编写的直线消重程序，消重20000条直线用时132秒！有了这强大的API，我都想把自己的函数库扔了！{:soso_e118:}

1. ;;arc、line/circle除重
   
2. (defun c:t15 ()
   
3.   ;;设置全局精度距离精度、角度精度
   
4.   (xdrx_document_setprec 0.001 0.001)
   
5.   (setq ss (ssget '((0 . "line,arc,circle"))))
   
6.   (setq StartTime (car (_VL-TIMES)))
   
7.   ;;line,arc,circle选择集删重线
   
8.   (xdrx_Pickset_RemoveDupLine ss)
   
9.   (princ (strcat "\n  用时  " (rtos (* 0.001 (- (car (_VL-TIMES)) StartTime)) 2 4) "  秒 "))
   
10.   (princ)
    
11.   )
    

;;arc、line/circle除重<br /> (defun c:t15 ()<br />   ;;设置全局精度距离精度、角度精度<br />   (xdrx_document_setprec 0.001 0.001)<br />   (setq ss (ssget '((0 . "line,arc,circle"))))<br />   (setq StartTime (car (_VL-TIMES)))<br />   ;;line,arc,circle选择集删重线<br />   (xdrx_Pickset_RemoveDupLine ss)<br />   (princ (strcat "\n  用时  " (rtos (* 0.001 (- (car (_VL-TIMES)) StartTime)) 2 4) "  秒 "))<br />   (princ)<br />   )<br />

命令: t15
选择对象: 指定对角点: 找到 20200 个
选择对象:
对图层0消除重线: 由20200变为202
  用时  0.5150  秒 "\n  用时  0.5150  秒 "
命令:

lgttblue

顶起。。。。。:lol

Free-Lancer

lisp用132s绝对是你的算法问题，lisp肯定比不过arx，但这个算法好的话肯定不会是132s来自: Android客户端

Love-Lisp

Free-Lancer 发表于 2013-6-27 21:17
lisp用132s绝对是你的算法问题，lisp肯定比不过arx，但这个算法好的话肯定不会是132s

确实是我程序的问题！调整了下程序，Lisp合并用时10秒左右！也就是和arx速度差20倍左右！:lol

evayleung

太强大了，真的想快点用起API，话说XDAPI真的很强大，看了一下里面的命令功能很全，比LISP强大多了。CAD版本只能06，希望06的API早日完工，谢谢。:)

newer

evayleung 发表于 2013-7-3 05:09
太强大了，真的想快点用起API，话说XDAPI真的很强大，看了一下里面的命令功能很全，比LISP强大多了。CAD版 ...

早就出来了啊，从2004-2014版本都有，你确认刚从火星归来？

evayleung

是出来了，不少命令都用不了。0630的版本没下载，上一个版本挺多命令都显示无此命令的。

newer

evayleung 发表于 2013-7-3 12:24
是出来了，不少命令都用不了。0630的版本没下载，上一个版本挺多命令都显示无此命令的。

你说的命令是指啥？  是XDRX_API里面的函数没有，还是什么其他工具的命令没有？

举几个例子贴上来吧。

evayleung

newer 发表于 2013-7-3 12:55
你说的命令是指啥？  是XDRX_API里面的函数没有，还是什么其他工具的命令没有？

举几个例子贴上来吧。 ...

可能是我表达不清楚，不好意思啊，应该是API里面的函数吧，也许是我应用不当。请指教
***  == AutoCAD 应用程序开发接口XdRx_API For AutoCAD Build 2013.6.16  ==  ***
出现这行，应该是成功加载API了。

然后输入
命令: (setq a "建筑设计")
"建筑设计"

命令: (xdrx_string_right a 4)
"设计"


这个函数是有反应的，再然后输入

命令: (xdrx_string_tok "abc;;def;;efg" ";")

就不会返回值了，
按说明应该是返回以下值的。
xdrx_string_tok

功    能：将由给定分割字符串分割的字符串组成表，若是"",忽略

调用格式：(xdrx_string_tok <字符串> <分割字符串>)

返 回 值：字符串表

示    例：(xdrx_string_tok "abc;;def;;efg" ";;")=("abc" "def" "efg")
          (xdrx_string_tok "abc;;def;;efg" ";")=("abc" "def" "efg")
          (xdrx_string_tok "abcddefgddzdf" "d")=("abc" "efg" "z" "f")
          (xdrx_string_tok "abcddefgddzdf" "dd")=("abc" "efg" "z" "f")
          (xdrx_string_tok ",1,2" ",")=("1" "2) ;前面的""忽略
          (xdrx_string_tok ",1,2,,,3,")=("1" "2" "3") ;;""忽略

marting

evayleung 发表于 2013-7-3 23:06
可能是我表达不清楚，不好意思啊，应该是API里面的函数吧，也许是我应用不当。请指教
***  == AutoCAD 应 ...

命令: (xdrx_string_tok "abc;;def;;efg" ";")
("abc" "def" "efg")

命令: (xdrx_string_regexps "[^;]+" "abc;;def;;efg")
("abc" "def" "efg")

命令: (xdrx_string_split "abc;;def;;efg" ";")
("abc" "" "def" "" "efg")