[求助]：打断选择范围内的直线函数有BUGS请高手看！

dandee · 发表于 2005-12-19 23:32:31

1；直线上交点排序
我常用的方法是 :
用 "ucs -->ob ".object为直线，上面的交点就可以用 (trans pt 0 1)以该直线为坐标系转换，这时，所有交点， Y=0，可以以x方向排序，排序后，用 (trans pt' 1 0) 把交点的表集转换回world系，并 " ucs --> "w"
这样排序完成，各位是否有更简洁的方法。
2；原直线 ssname为 ob
(entmake (entget ob))可以复制直线 (保留原直线的所有信息 )
用entmod替换其两端点，可以成新线段
很想知道比较用vlax的方法，哪个效率更好些

eachy · 发表于 2005-12-20 01:44:32

建议楼主仔细学习下 vlax-curve-xxx 部分的几个函数

如果用 vla 方法了，ssget 就只是构造一个选择集，处理还是用 vlax-for ，这样就省去实体转换

狂刀 · 发表于 2005-12-20 01:46:15

以150条直线，打断后为6650段直线的测试文件为例:
１，关于求交点的效率，用trans比用intersectwith 快４８％
２，关于排序，交点表用ｙ值，ｘ值分别排序
　　　与用直线的ｐａｒａｍ排序，效率相差不大，后者支持曲线。
３。关于生成打断的直线：　用ｅｎｔｍａｋｅ生成简单的直线(entmake (list(cons 0 "line")(cons 10 pt1)(cons 11 pt2))) 与用subst 分两次替换原直线起点终点，后entmake生成相比，快一点，不明显，约快1/30。先ｅｎｔｍａｋｅ后ｅｎｔｍｏｄ的方法效率应该会低一点，没测试。
４。对曲线打断，目前想到的只能是调用break。

根据以上，如要支持曲线打断，先用ｐａｒａｍ排序，后用ｂｒｅａｋ打断。

eachy · 发表于 2005-12-20 12:03:29

;;直线交点断开，仅写了一个程序的结构，基本思路都有了
;; 1 构造线实体及线上有序的交点列表
;; 2 根据线及交点集重新构造分段的 Line
;;
;;这个功能还可以用 Break + 交点处的 ssget，不过 ssget 遇到交点为虚线开口部位时，可
;;能漏掉选择。
;;
;;如果使用 Map 3D 或者 Civil 3D 时，系统已经提供了"图面清理"命令，可以进行以下选项
;; 删除重复项
;; 删除短对象
;; 打断交叉对象
;; 延伸未及点
;; 外观交点
;; 捕捉节点簇
;; 融合伪节点
;; 删除悬挂对象(O)
;; 简化对象
;; 零长度对象
;; 清理多段线
;; 唯一不足的是不能断开 spline, ellipse
;; eachy [[url]www.xdcad.net[/url]] 2005.12.21
(defun xdl-getutime ()
(* 86400 (getvar "tdusrtimer"))
)
(defun c:lnbrk (/ ss ssl i el e1 e2 el1 p1 p2 p3 p4 an an1 pp pts tf1 tf2 t0)
(if (setq ss (ssget '((0 . "line"))))
(progn
(setq t0 (xdl-getutime))
(setq ssl (sslength ss)
i -1
)
(repeat ssl
(setq el (cons (ssname ss (setq i (1+ i))) el))
);_构造实体列表, Lisp 的表处理效率还是不错的!
(while el
(setq e1 (car el)
el (cdr el)
p1 (vlax-curve-getstartpoint e1)
p2 (vlax-curve-getendpoint e2)
an (angle p1 p2)
el1 el
)
(while el1
(setq e2 (car el1)
p3 (vlax-curve-getstartpoint e2)
p4 (vlax-curve-getendpoint e2)
an1 (angle p3 p4)
ep (vlax-curve-getendparam e2)
sp (vlax-curve-getstartparam e2)
el1 (cdr el1)
)
(cond
((setq p (inters p1 p2 p3 p4 nil)) ;_ inters
(if pts
(setq pts (cons (cons p (car pts)) (cdr pts)));_此处需修改(第一次)
(setq pts (list (cons p e1)))
)
)
;;部分重叠或者包含
((or (if (and (setq tf1
(and
(equal
(setq
pp (vlax-curve-getclosestpointto
e1
p3
)
)
p3
1e-4
)
(< (vlax-curve-getparamatpoint e1 pp) ep)
)
)
(setq tf2
(and
(equal
(setq
pp (vlax-curve-getclosestpointto
e1
p3
)
)
p3
1e-4
)
(< (vlax-curve-getparamatpoint e1 pp) ep)
)
)
);_e2 包含在 e1 中间
();_构造表
)
(if tf1 ;_起点在 e1 中间，tf1 是首先计算的，肯定为运算的值
(if pts
(setq pts (cons (cons p (car pts)) (cdr pts))) ;_此处需修改(第一次)
(setq pts (list (cons p e1)))
)
)
(if
(and (equal
(setq pp (vlax-curve-getclosestpointto e1 p3))
p3
1e-4
)
(< (vlax-curve-getparamatpoint e1 pp) ep)
) ;_ 终点在 e1 上，tf2 未必进行了计算，条件要写全
(if pts
(setq pts (cons (cons p (car pts)) (cdr pts))) ;_此处需修改(第一次)
(setq pts (list (cons p e1)))
)
)
)
)
(t)
)
)
)
(setq
pts (mapcar
'(lambda (x / e0 pl)
(setq x (reverse x)
e0 (car x)
pl (cdr x)
)
(cons
e0
(mapcar
'cdr
(vl-sort
(mapcar
'(lambda (d)
(cons (vlax-curve-getparamatpoint e0 d) x)
)
pl
)
'(lambda (d1 d2) (< d1 d2))
);_由起点排序
)
)
)
pts
)
);_返回实体及排序后的表((ln1 pt11 pt12 ...) (ln2 pt21 pt22 ...) ...)
(mapcar '(lambda (x / e0 pl)
(setq e0 (car x)
pl (cdr x)
)
();_制造实体，要过滤掉重复点
)
pts
)
(princ "\nTotle Use ")
(princ (- (xdl-getutime) t0))
(princ " s!")
);_ progn
);_ if
(princ)
)

;;直线交点断开，仅写了一个程序的结构，基本思路都有了 
;; 1 构造线实体及线上有序的交点列表 
;; 2 根据线及交点集重新构造分段的 Line 
;; 
;;这个功能还可以用 Break + 交点处的 ssget，不过 ssget 遇到交点为虚线开口部位时，可 
;;能漏掉选择。 
;; 
;;如果使用 Map 3D 或者 Civil 3D 时，系统已经提供了"图面清理"命令，可以进行以下选项 
;;    删除重复项 
;;    删除短对象 
;;    打断交叉对象 
;;    延伸未及点 
;;    外观交点 
;;    捕捉节点簇 
;;    融合伪节点 
;;    删除悬挂对象(O) 
;;    简化对象 
;;    零长度对象 
;;    清理多段线 
;;  唯一不足的是不能断开 spline, ellipse 
;; eachy [[url]www.xdcad.net[/url]] 2005.12.21 
(defun xdl-getutime () 
  (* 86400 (getvar "tdusrtimer")) 
) 
(defun c:lnbrk (/ ss ssl i el e1 e2 el1 p1 p2 p3 p4 an an1 pp pts tf1 tf2 t0) 
  (if (setq ss (ssget '((0 . "line")))) 
    (progn 
      (setq t0 (xdl-getutime)) 
      (setq ssl        (sslength ss) 
            i        -1 
      ) 
      (repeat ssl 
        (setq el (cons (ssname ss (setq i (1+ i))) el)) 
      );_构造实体列表, Lisp 的表处理效率还是不错的! 
      (while el 
        (setq e1  (car el) 
              el  (cdr el) 
              p1  (vlax-curve-getstartpoint e1) 
              p2  (vlax-curve-getendpoint e2) 
              an  (angle p1 p2) 
              el1 el 
        ) 
        (while el1 
          (setq        e2  (car el1) 
                p3  (vlax-curve-getstartpoint e2) 
                p4  (vlax-curve-getendpoint e2) 
                an1 (angle p3 p4) 
                ep  (vlax-curve-getendparam e2) 
                sp  (vlax-curve-getstartparam e2) 
                el1 (cdr el1) 
          ) 
          (cond 
            ((setq p (inters p1 p2 p3 p4 nil)) ;_ inters 
             (if pts 
               (setq pts (cons (cons p (car pts)) (cdr pts)));_此处需修改(第一次) 
               (setq pts (list (cons p e1))) 
             ) 
            ) 
            ;;部分重叠或者包含 
            ((or (if (and (setq        tf1 
                                 (and 
                                   (equal 
                                     (setq 
                                       pp (vlax-curve-getclosestpointto 
                                            e1 
                                            p3 
                                          ) 
                                     ) 
                                     p3 
                                     1e-4 
                                   ) 
                                   (< (vlax-curve-getparamatpoint e1 pp) ep) 
                                 ) 
                          ) 
                          (setq        tf2 
                                 (and 
                                   (equal 
                                     (setq 
                                       pp (vlax-curve-getclosestpointto 
                                            e1 
                                            p3 
                                          ) 
                                     ) 
                                     p3 
                                     1e-4 
                                   ) 
                                   (< (vlax-curve-getparamatpoint e1 pp) ep) 
                                 ) 
                          ) 
                     );_e2 包含在 e1 中间 
                   ();_构造表 
                 ) 
                 (if tf1 ;_起点在 e1 中间，tf1 是首先计算的，肯定为运算的值 
                   (if pts 
                     (setq pts (cons (cons p (car pts)) (cdr pts))) ;_此处需修改(第一次) 
                     (setq pts (list (cons p e1))) 
                   ) 
                 ) 
                 (if 
                   (and        (equal 
                          (setq pp (vlax-curve-getclosestpointto e1 p3)) 
                          p3 
                          1e-4 
                        ) 
                        (< (vlax-curve-getparamatpoint e1 pp) ep) 
                   ) ;_ 终点在 e1 上，tf2 未必进行了计算，条件要写全 
                    (if        pts 
                      (setq pts (cons (cons p (car pts)) (cdr pts))) ;_此处需修改(第一次) 
                      (setq pts (list (cons p e1))) 
                    ) 
                 ) 
             ) 
            ) 
            (t) 
          ) 
        ) 
      ) 
      (setq 
        pts (mapcar 
              '(lambda (x / e0 pl) 
                 (setq x  (reverse x) 
                       e0 (car x) 
                       pl (cdr x) 
                 ) 
                 (cons 
                   e0 
                   (mapcar 
                     'cdr 
                     (vl-sort 
                       (mapcar 
                         '(lambda (d) 
                            (cons (vlax-curve-getparamatpoint e0 d) x) 
                          ) 
                         pl 
                       ) 
                       '(lambda (d1 d2) (< d1 d2)) 
                     );_由起点排序 
                   ) 
                 ) 
               ) 
              pts 
            ) 
      );_返回实体及排序后的表((ln1 pt11 pt12 ...) (ln2 pt21 pt22 ...) ...) 
      (mapcar '(lambda (x / e0 pl) 
                 (setq e0 (car x) 
                       pl (cdr x) 
                 ) 
                 ();_制造实体，要过滤掉重复点 
               ) 
              pts 
      ) 
      (princ "\nTotle Use ") 
      (princ (- (xdl-getutime) t0)) 
      (princ " s!") 
    );_ progn 
  );_ if 
  (princ) 
)

gewanjia · 发表于 2005-12-20 16:47:17

下载学习！！！！！！！！！！回家测试！！
代码写得好工整呀，果然是高手风范！！

通过这个贴，我想有必要建立一个贴，是关于算法或者说技巧的。
不是说，autolisp慢吗，那么，我们通过优秀、高效、健壮算法来弥补。
我想这些算法大部分针对图形，选择、分辨、线路、查找应用的等。

taner · 发表于 2005-12-20 19:13:48

最初由狂刀发布
[B]以150条直线，打断后为6650段直线的测试文件为例:
１，关于求交点的效率，用trans比用intersectwith 快４８％
２，关于排序，交点表用ｙ值，ｘ值分别排序
　　　与用直线的ｐａｒａｍ排序，效率相差不大，后者支?.. [/B]

对于椭圆和圆,无法用break在一点断开!各位有什么好的方法?

eachy · 发表于 2005-12-20 20:10:46

制造新实体
1 ellipse -〉分段的 ellipse
2 Circle -> 分段 arc

taner · 发表于 2005-12-20 20:39:58

最初由 eachy 发布
[B]制造新实体
1 ellipse -〉分段的 ellipse
2 Circle -> 分段 arc [/B]

版主,能否在下面这个选择集点集程序的基础上再编个曲线交点打断程序?要求支持圆和椭圆.
http://www.xdcad.net/forum/showthread.php?s=&threadid=500872

eachy · 发表于 2005-12-20 21:30:28

交点断开程序论坛上至少有两个，Wkai 和 snsj 各发布过一个。很久以前我也准备写这个，除了 spline 用 break ，其他的实体都是用 entmake 或者 vla 方法，而且代码也写了一部分，后来也没有什么实际应用就搁置了，代码也不知丢哪去了：）现在用Civil 3D，这个功能系统里已经有了，也就没有必须浪费时间。
算法已经有了，就是一个写代码，有兴趣的朋友可以写写。如果愿意把源码贴上来，大家可以参与、讨论、优化。

dandee · 发表于 2005-12-21 09:54:09

如果是circle,ellipse,上面只有一个交点，就不管了。
如果 >2个交点，
先取两个点并连线，把circle,ellipse entmake复制一个，
在连线相对的circle,ellipse做trim
这样就生成了两条arc
再重新与所有线条取交点。一个字方法很笨，但能达到最后break的目标。

有个问题spline自身有交点，如何判断？

gewanjia · 发表于 2005-12-21 16:46:43

又经过一个晚上，吸取各位大虾的精华，小弟我程序编写好了，经过终极优化速度可以达到：
100条直线和200条直线垂直交叉（20000个交点）用了22s 我都哭了。。。。
一天前还是159s，现在是飞速的提高呀，感谢高手！！

编写程序有些感想不吐不快：

1、想当年我迷信ACTIVEX快，现在我才发现在大部分还是纯lisp快呀；我新编写的程序，能用到什么用什么,只为程序简洁高效。

2、新的程序以很少有ACTIVEX方法，我得说 vlax-curve-xxx 和 inters 函数确实非常高效，斑竹说得对。

3.关于另一个大虾说用(trans pt 0 1)来转换坐标，我看不见得快；
从我的新程序可以判断。
如果用转换坐标要增加5行代码，不好！！但是说它确实比intersectwith快许多，我新程序放弃那种方法。

4.这样生成直线(entmake (list(cons 0 "line")(cons 10 pt1)(cons 11 pt2)))比vla-AddLine要快许多倍。
我的程序有这两种方法的比较要快60s。我用vla-AddLine花去52s，
我用entmake 用22s真是快呀。

5.可以说autolisp就是处理表的语言在这方面效率是很高，我的风格
还没有符合这个语言的精髓，主要我开始学习C/C++.

代码副上：
实践是检验真理的唯一标准。
哪个大虾可以优化到个位数呢，例如3s。

[FONT=courier new]
(VL-LOAD-COM)
(setq AcadObject (vlax-get-acad-object))
(setq AcadDocument (vla-get-ActiveDocument Acadobject))
(setq mSpace (vla-get-ModelSpace Acaddocument)) ;_获得模型空间指针
(defun c:OL (/ lineObjNames) ;_主函数
(setq lineObjNames (ssget '((0 . "LINE")))) ;_获取模型空间的直线
(LinePointOrder (FindIntersections lineObjNames))
(princ)
)
;;找出所有直线上的交点
(defun FindIntersections (lineObjNames / lineCol
linePointCol tmpEnt i
j n p this
next StartPoint EndPoint
p1 p2 p3 p4
)
(setq s (getvar "DATE")
seconds1 (* 86400.0 (- s (fix s)))
)
(setq lineCol (list) ;_定义直线集
tmpEnt (list)
i -1
)
(setq n (sslength lineObjNames))
(repeat n
(setq tmpEnt (cons (ssname lineObjNames (setq i (1+ i))) tmpEnt))
)
(setq j 0)
(repeat n ;_找出直线上所有的交点，但不包括开始点和结束点
(setq this (nth j tmpEnt))
(setq linePointCol (list)) ;_定义在直线上的点集
(setq p1 (vlax-curve-getStartPoint this))
(setq p2 (vlax-curve-getEndPoint this))
(setq linePointCol (cons p2 linePointCol)) ;加入结束点
(setq i 0)
(repeat (- n 1)
(if (= i j)
(setq i (1+ i))
) ;_如果是本身跳过
(setq next (nth i tmpEnt))
(setq p3 (vlax-curve-getStartPoint next))
(setq p4 (vlax-curve-getEndPoint next)) ;_求开始点和结束点
(setq p (inters p1 p2 p3 p4))
(if p ;_正确的点存入点集
(if (JudgeAnastomosis p1 p2 p)
(setq linePointCol (cons p linePointCol))
)
)
(setq i (1+ i))
)
(setq lineCol (cons
(cons p1 linePointCol)
lineCol
)
) ;_加入开始点
(setq this (nth
(setq j (1+ j))
tmpEnt
)
) ;_提取下一个点
)
(setq i -1)
(repeat n ;_删原有直线。
(setq tmp (nth (setq i (1+ i)) tmpEnt))
(entdel tmp)
)
(setq s (getvar "DATE"))
(setq seconds2 (* 86400.0 (- s (fix s)))) ;_计算消耗时间
(princ "\n找出所有交点用时:")
(princ (- seconds2 seconds1))
(princ "秒")
lineCol
)
;;这个函数主要处理首尾相接的那种直线，因为vla-IntersectWith认为那种形式也算相交。
;;在大多数情况，不需要那种类型的。
(defun JudgeAnastomosis (p1 p2 p)
(if (or (equal p1 p 0.01)
(equal p2 p 0.01)
)
(setq result nil)
(setq result T)
)
result
)
;;给直线上交点排序，要不会重叠的。
;;说明我的算法，1、判断直线是否垂直，如果垂直由Y来排序；如果不垂直用X来排序。
;; 2、选出一个生成一个直线。
;;打断20000交点用22s，我的机器配置为:Ce850 内存128 winXP AutoCAD2006.
(defun LinePointOrder (lineCol / num line n i
j tmp tmpLine StartPoint EndPoint
on this L
)
(setq num 0)
(repeat (vl-list-length lineCol) ;_根据直线多少来确定次数
(setq line (nth num lineCol)
n (vl-list-length line) ;_根据直线上的点确定数
i -1
j 0
tmpLine (list)
)
(if (equal (car (nth 0 line)) (car (nth 1 line)) 0.0005) ;_分两种情况讨论。
(setq tmpLine (vl-sort line
'(lambda (l1 l2) ;_用vl-sort排序
(< (cadr l1) (cadr l2))
)
)
)
(setq tmpLine (vl-sort line
'(lambda (l1 l2)
(< (car l1) (car l2))
)
)
)
)
(repeat (1- n)
(setq StartPoint ;_连接成直线
(vlax-3d-point
(nth
(setq i (1+ i))
tmpLine
)
)
)
(setq EndPoint
(vlax-3d-point
(nth
(setq j (1+ j))
tmpLine
)
)
)
(vla-addLine mSpace StartPoint EndPoint)
;;这块是用来对比 vla-addLine方法的
;;(entmake (list(cons 0 "line")
;; (cons 10 (nth (setq i (1+ i)) tmpLine))
;; (cons 11 (nth (setq j (1+ j)) tmpLine))
;; )
;; )
)
(setq num (1+ num))
)
(setq s (getvar "DATE"))
(setq seconds3 (* 86400.0 (- s (fix s)))) ;计算消耗时间
(princ "\n排序生成直线消耗时间:")
(princ (- seconds3 seconds2))
(princ "秒")
) [/FONT]

[FONT=courier new] 
(VL-LOAD-COM) 
(setq AcadObject (vlax-get-acad-object)) 
(setq AcadDocument (vla-get-ActiveDocument Acadobject)) 
(setq mSpace (vla-get-ModelSpace Acaddocument)) ;_获得模型空间指针 
(defun c:OL (/ lineObjNames) ;_主函数 
  (setq lineObjNames (ssget '((0 . "LINE")))) ;_获取模型空间的直线 
  (LinePointOrder (FindIntersections lineObjNames)) 
  (princ) 
) 
;;找出所有直线上的交点 
(defun FindIntersections (lineObjNames              /                lineCol 
                          linePointCol              tmpEnt        i 
                          j            n              p                this 
                          next            StartPoint                EndPoint 
                          p1            p2              p3        p4 
                         ) 
  (setq        s         (getvar "DATE") 
        seconds1 (* 86400.0 (- s (fix s))) 
  ) 
  (setq        lineCol        (list) ;_定义直线集 
        tmpEnt        (list) 
        i        -1 
  ) 
  (setq n (sslength lineObjNames)) 
  (repeat n 
    (setq tmpEnt (cons (ssname lineObjNames (setq i (1+ i))) tmpEnt)) 
  ) 
  (setq j 0) 
  (repeat n ;_找出直线上所有的交点，但不包括开始点和结束点 
    (setq this (nth j tmpEnt)) 
    (setq linePointCol (list)) ;_定义在直线上的点集 
    (setq p1 (vlax-curve-getStartPoint this)) 
    (setq p2 (vlax-curve-getEndPoint this)) 
    (setq linePointCol (cons p2 linePointCol)) ;加入结束点 
    (setq i 0) 
    (repeat (- n 1) 
      (if (= i j) 
        (setq i (1+ i)) 
      ) ;_如果是本身跳过 
      (setq next (nth i tmpEnt)) 
      (setq p3 (vlax-curve-getStartPoint next)) 
      (setq p4 (vlax-curve-getEndPoint next)) ;_求开始点和结束点 
      (setq p (inters p1 p2 p3 p4)) 
      (if p ;_正确的点存入点集 
        (if (JudgeAnastomosis p1 p2 p) 
          (setq linePointCol (cons p linePointCol)) 
        ) 
      ) 
      (setq i (1+ i)) 
    ) 
    (setq lineCol (cons 
                    (cons p1 linePointCol) 
                    lineCol 
                  ) 
    ) ;_加入开始点 
    (setq this (nth 
                 (setq j (1+ j)) 
                 tmpEnt 
               ) 
    ) ;_提取下一个点   
  ) 
  (setq i -1) 
  (repeat n ;_删原有直线。 
    (setq tmp (nth (setq i (1+ i)) tmpEnt)) 
    (entdel tmp) 
  ) 
  (setq s (getvar "DATE")) 
  (setq seconds2 (* 86400.0 (- s (fix s)))) ;_计算消耗时间 
  (princ "\n找出所有交点用时:") 
  (princ (- seconds2 seconds1)) 
  (princ "秒") 
  lineCol 
) 
;;这个函数主要处理首尾相接的那种直线，因为vla-IntersectWith认为那种形式也算相交。 
;;在大多数情况，不需要那种类型的。 
(defun JudgeAnastomosis        (p1 p2 p) 
  (if (or (equal p1 p 0.01) 
          (equal p2 p 0.01) 
      ) 
    (setq result nil) 
    (setq result T) 
  ) 
  result 
) 
;;给直线上交点排序，要不会重叠的。 
;;说明我的算法，1、判断直线是否垂直，如果垂直由Y来排序；如果不垂直用X来排序。 
;;              2、选出一个生成一个直线。 
;;打断20000交点用22s，我的机器配置为:Ce850 内存128  winXP  AutoCAD2006. 
(defun LinePointOrder (lineCol /       num     line    n       i 
                       j       tmp     tmpLine StartPoint      EndPoint 
                       on      this    L 
                      ) 
  (setq num 0) 
  (repeat (vl-list-length lineCol) ;_根据直线多少来确定次数 
    (setq line          (nth num lineCol) 
          n          (vl-list-length line) ;_根据直线上的点确定数 
          i          -1 
          j          0 
          tmpLine (list) 
    ) 
    (if        (equal (car (nth 0 line)) (car (nth 1 line)) 0.0005) ;_分两种情况讨论。 
      (setq tmpLine (vl-sort line 
                             '(lambda (l1 l2) ;_用vl-sort排序 
                                (< (cadr l1) (cadr l2)) 
                              ) 
                    ) 
      ) 
      (setq tmpLine (vl-sort line 
                             '(lambda (l1 l2) 
                                (< (car l1) (car l2)) 
                              ) 
                    ) 
      ) 
    ) 
    (repeat (1- n) 
      (setq StartPoint ;_连接成直线 
             (vlax-3d-point 
               (nth 
                 (setq i (1+ i)) 
                 tmpLine 
               ) 
             ) 
      ) 
      (setq EndPoint 
             (vlax-3d-point 
               (nth 
                 (setq j (1+ j)) 
                 tmpLine 
               ) 
             ) 
      ) 
      (vla-addLine mSpace StartPoint EndPoint) 
      ;;这块是用来对比 vla-addLine方法的         
      ;;(entmake (list(cons 0 "line") 
      ;;              (cons 10 (nth (setq i (1+ i)) tmpLine))   
      ;;              (cons 11 (nth (setq j (1+ j)) tmpLine)) 
      ;;           ) 
      ;;      ) 
    ) 
    (setq num (1+ num)) 
  ) 
  (setq s (getvar "DATE")) 
  (setq seconds3 (* 86400.0 (- s (fix s)))) ;计算消耗时间 
  (princ "\n排序生成直线消耗时间:") 
  (princ (- seconds3 seconds2)) 
  (princ "秒") 
)  [/FONT]

eachy · 发表于 2005-12-21 19:50:50

1 点排序可以使用 param，看看 vlax-curve-getparamatpoint 函数

2 删除原有直线使用 (command ".erase" ss "") 一句完成

速度快慢和算法有关，还和机器配置有关，即使算法“笨”点也可能很快。

命令: ol
选择对象: 指定对角点: 找到 300 个

选择对象:

找出所有交点用时:1.56197秒
排序生成直线消耗时间:12.598秒

nigma · 发表于 2005-12-22 21:48:23

不行啊,原直线没有删除
加上(command ".erase" ss "")也不行.

userzhluserzhl · 发表于 2006-1-15 17:01:56

可不可以不改变原来线段的图层？如果PL及ARC也可以的话就太好了

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

[求助] [求助]：打断选择范围内的直线函数有BUGS请高手看！

感谢呀