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

Love-Lisp · 发表于 2013-6-27 13:15:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

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

lgttblue · 发表于 2013-6-27 20:37:04

顶起。。。。。:lol

Free-Lancer · 发表于 2013-6-27 21:17:57

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

Love-Lisp · 发表于 2013-6-27 23:56:12

本帖最后由 Love-Lisp 于 2013-6-28 00:00 编辑

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

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

evayleung · 发表于 2013-7-3 05:09:41

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

newer · 发表于 2013-7-3 10:31:28

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

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

evayleung · 发表于 2013-7-3 12:24:55

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

newer · 发表于 2013-7-3 12:55:10

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

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

举几个例子贴上来吧。

evayleung · 发表于 2013-7-3 23:06:30

本帖最后由 evayleung 于 2013-7-3 23:08 编辑

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 · 发表于 2018-8-22 14:25:13

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")

账号		自动登录	找回密码
密码			立即注册

[每日一码] line,arc,circle消重，真正的秒杀

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评