2013-09-11 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

炫翔 · 发表于 2013-9-11 11:21:53

炫翔(2363673534)于2013-09-11 11-21-53：
[qqimg]{5AB24539-DDB5-20B2-EE2C-AC39F9829A9F}.jpg[/qqimg]

炫翔 · 发表于 2013-9-11 11:22:23

炫翔(2363673534)于2013-09-11 11-22-23：
我试试100000个点

CCarch · 发表于 2013-9-11 11:22:36

我们168(460112400)于2013-09-11 11-22-36：
这是做什么用

炫翔 · 发表于 2013-9-11 11:25:41

炫翔(2363673534)于2013-09-11 11-25-41：
自己测试就知道了

炫翔 · 发表于 2013-9-11 11:37:26

炫翔(2363673534)于2013-09-11 11-37-26：
[face96.gif]原来自定义函数方法在1万点的情况居然会卡死

炫翔 · 发表于 2013-9-11 11:38:53

炫翔(2363673534)于2013-09-11 11-38-53：
;点集生成直线
;(xx-mk-line-pts '((0 0 0)(0 5 0)(5 0 0)(0 10 5)))
;(xx-mk-line-pts (list(getpoint)(getpoint)(getpoint)))
(DEFUN xx-mk-line-pts(pts / lst)
(setq lst (xx-lst-DengFen pts 2))
(mapcar(function(lambda (x)(xx-mk-line (car x) (cadr x)))) lst)
)

malinwang · 发表于 2013-9-11 11:38:56

卍???????卍 (1471938488)于2013-09-11 11-38-56：
签到

炫翔 · 发表于 2013-9-11 11:39:01

炫翔(2363673534)于2013-09-11 11-39-01：
上面是为原来的办法

炫翔 · 发表于 2013-9-11 11:39:16

炫翔(2363673534)于2013-09-11 11-39-16：
最新最直接的方法

炫翔 · 发表于 2013-9-11 11:39:17

炫翔(2363673534)于2013-09-11 11-39-17：
(defun xxx (pts)
  (vl-cmdf "_.line")
  (mapcar 'vl-cmdf pts)
  (vl-cmdf "")
)

malinwang · 发表于 2013-9-11 11:39:35

卍???????卍 (1471938488)于2013-09-11 11-39-35：
[face13.gif]

炫翔 · 发表于 2013-9-11 11:39:38

炫翔(2363673534)于2013-09-11 11-39-38：
后者速度快了N倍

CCarch · 发表于 2013-9-11 11:41:01

我们168(460112400)于2013-09-11 11-41-01：
没有进行选择集的点排序啊

炫翔 · 发表于 2013-9-11 11:41:14

炫翔(2363673534)于2013-09-11 11-41-14：
我去论坛发一贴大伙前去看看

炫翔 · 发表于 2013-9-11 11:41:23

炫翔(2363673534)于2013-09-11 11-41-23：
[qqimg]{4D75C473-7043-0324-00F8-248615F4700E}.jpg[/qqimg]--太懒

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