多点打断问题，及想问下list的用法

vormittag

zzl9105 发表于 2011-10-19 17:07
回复vormittag 的点评
打断的思路有很多的，你说的这点，早有想到，呵呵，也很好操作，不存在排序问题，但 ...

(foreach .....)语句虽然写在一行，并不表示计算机是同时（数学上精确的同一时间点）在n个点把多义线打断，计算机的操作也是有先后顺序的，你打断操作的核心在 (command "_.break" (list EN PT) "f" "non" PT "non" PT)这一句，这就是一个单点打断，这一句伴随而来的就是新生成图元。就算你排序排准确，(foreach ...)操作以后你就能把小于300长的新图元找出来么？

其实我没回避一线多点打断的可实现性。只不过我的想法是通过对交点循环来实现的。你完全可以用一个长度为1的选择集。我回避的是“一次”，因为我要用的打断操作核心和你用的是一样的，这个操作就不可能做到“一次”。而且只要能打断，增加图元是必然的，即使你能同时（数学上精确的同时）打断，多出来的图元可能是同一个句柄同一个图元名么？

如果要把打断线长度小于300的集中到一个选择集里，我的思路也很容易办到，每次打断后新生成的图元都加入到原选择集里，最后判断一下选择集里所有图元哪些长度小于300，挑出来就是了。

还有：我不认为求交点集的时候有判断及处理点是否重复的必要。重复了多做一次也没什么了不起，就操作内容来看不会产生坏影响。如果对程序处理时间有近乎洁癖的要求，那就求点集前处理一下，但这是求交点集的工作，而且(foreach .....) 里不一样也有重复点问题么？

wade320

9楼说的非常的对，要使用entlast函数，指定打断后的物体，让它继续执行，你的程序肯定是有问题的

zzl9105

vormittag 发表于 2011-10-19 18:37
(foreach .....)语句虽然写在一行，并不表示计算机是同时（数学上精确的同一时间点）在n个点把多义线打断 ...

那就不知道你在9楼时说的什么意思了？算法是没有问题的，你自己好好体会吧。
反正我的程序已经实现打断了。
至于我说的想再增加判断300长的功能，加几句就能实现了，呵呵
顺便说一下，你既然有你的思路，可否把你的晒出来，大家交流一下呀？

vormittag

zzl9105 发表于 2011-10-20 09:44
那就不知道你在9楼时说的什么意思了？算法是没有问题的，你自己好好体会吧。
反正我的程序已经实现打断了 ...

仔细看了看，我在9楼的帖子意思表达得很清楚啊。如果说一定有什么不准确的地方，就是我少了一句状语：“在未对点表中的点进行特定排序的条件下”。可这是论坛发贴子，不是学报投论文，不需要添加这么一句吧？况且楼顶的帖子并没有说明ptlist已经经过特定的排序了。我在这个前提下作出“算法有问题”的结论，有什么问题？
至于我的思路的实现代码，贴在下面了

2. (defun c:dd( / ss ss1 ii jj pt5 pt3 pt4 pl ename1 ell1 type echo os)
   
3.         (setq ss (ssget '((0 . "*LINE,ARC")))
   
4.                   pl   (getinterptlist ss)
   
5.                   ii   0
   
6.                   os   (getvar "OSMODE")
   
7.                   echo (getvar "CMDECHO")
   
8.         );setq
   
9.         (setvar "OSMODE" 0)
   
10.         (setvar "CMDECHO" 0)
    
11.     (repeat (length pl)
    
12.                 (setq pt5 (nth ii pl)
    
13.                       ii  (1+ ii)
    
14.                           pt3 (polar (trans pt5 0 1) (* pi 0.75) 0.0001)
    
15.                           pt4 (polar (trans pt5 0 1) (* pi 1.75) 0.0001)
    
16.                           ss1 (ssget "c" pt3 pt4)
    
17.                           jj  0
    
18.                           pt5 (trans pt5 0 1)
    
19.                 );setq
    
20.                 (repeat (sslength ss1)
    
21.                         (setq ename1 (ssname ss1 jj)
    
22.                                   ell1   (entget ename1)
    
23.                                   jj      (1+ jj)
    
24.                                   type   (cdr (assoc 0 ell1))
    
25.                         );setq
    
26.                         (if (and (ssmemb ename1 ss) (member type (list "LINE" "LWPOLYLINE" "SPLINE" "ARC")))
    
27.                                 (progn
    
28.                                         (vl-cmdf "_break" ename1 pt5 pt5)
    
29.                                         (setq ss (ssadd (entlast) ss))
    
30.                                 );progn
    
31.                         );if
    
32.                 );repeat
    
33.         );repeat
    
34.     (setvar "OSMODE" os)
    
35.         (setvar "CMDECHO" echo)
    
36.     (princ)       
    
37. )
    
38. (defun getinterptlist( ss / i j datalist ptlist pt e1 e2 k)
    
39.     (setq i 0 ptlist '())
    
40.         (repeat (sslength ss)
    
41.             (setq e1 (vlax-ename->vla-object (ssname ss i))
    
42.               i  (1+ i)
    
43.                           j  i
    
44.         );setq
    
45.                 (repeat (- (sslength ss) i)
    
46.                 (setq e2       (vlax-ename->vla-object (ssname ss j))
    
47.                                   j        (1+ j)
    
48.                                   datalist (vlax-invoke e1 'intersectwith e2 0)
    
49.                         );setq
    
50.                         (if datalist
    
51.                             (progn
    
52.                                     (setq k 0)
    
53.                                 (while (nth k datalist)
    
54.                                                 (setq pt     (list (nth k datalist) (nth (1+ k) datalist))
    
55.                                                       ptlist (append ptlist (list pt))
    
56.                                               k      (+ 3 k)
    
57.                                                 );setq
    
58.                                 );while
    
59.                                 );progn
    
60.                         );if
    
61.                 );repeat
    
62.         );repeat
    
63.         ptlist
    
64. )

(defun c:dd( / ss ss1 ii jj pt5 pt3 pt4 pl ename1 ell1 type echo os)<br />         (setq ss (ssget '((0 . "*LINE,ARC")))<br />                   pl   (getinterptlist ss)<br />                   ii   0<br />                   os   (getvar "OSMODE")<br />                   echo (getvar "CMDECHO")<br />         );setq<br />         (setvar "OSMODE" 0)<br />         (setvar "CMDECHO" 0)<br />     (repeat (length pl)<br />                 (setq pt5 (nth ii pl) <br />                       ii  (1+ ii)<br />                           pt3 (polar (trans pt5 0 1) (* pi 0.75) 0.0001)<br />                           pt4 (polar (trans pt5 0 1) (* pi 1.75) 0.0001)<br />                           ss1 (ssget "c" pt3 pt4) <br />                           jj  0<br />                           pt5 (trans pt5 0 1)<br />                 );setq<br />                 (repeat (sslength ss1)<br />                         (setq ename1 (ssname ss1 jj)<br />                                   ell1   (entget ename1)<br />                                   jj      (1+ jj)<br />                                   type   (cdr (assoc 0 ell1))<br />                         );setq<br />                         (if (and (ssmemb ename1 ss) (member type (list "LINE" "LWPOLYLINE" "SPLINE" "ARC")))<br />                                 (progn <br />                                         (vl-cmdf "_break" ename1 pt5 pt5)<br />                                         (setq ss (ssadd (entlast) ss))<br />                                 );progn<br />                         );if<br />                 );repeat<br />         );repeat<br />     (setvar "OSMODE" os)<br />         (setvar "CMDECHO" echo)<br />     (princ)        <br /> )<br /> (defun getinterptlist( ss / i j datalist ptlist pt e1 e2 k)<br />     (setq i 0 ptlist '())<br />         (repeat (sslength ss)<br />             (setq e1 (vlax-ename->vla-object (ssname ss i))<br />               i  (1+ i)<br />                           j  i<br />         );setq<br />                 (repeat (- (sslength ss) i)<br />                 (setq e2       (vlax-ename->vla-object (ssname ss j))<br />                                   j        (1+ j)<br />                                   datalist (vlax-invoke e1 'intersectwith e2 0)<br />                         );setq<br />                         (if datalist<br />                             (progn<br />                                     (setq k 0)<br />                                 (while (nth k datalist)<br />                                                 (setq pt     (list (nth k datalist) (nth (1+ k) datalist))<br />                                                       ptlist (append ptlist (list pt))<br />                                               k      (+ 3 k)<br />                                                 );setq<br />                                 );while<br />                                 );progn<br />                         );if<br />                 );repeat<br />         );repeat<br />         ptlist<br /> )

另:算法不是我说有问题就有问题，更不是你说没问题就没问题的。我也不会奉劝别人“好好体会”。

xiaxiang

vormittag 发表于 2011-10-20 13:27
仔细看了看，我在9楼的帖子意思表达得很清楚啊。如果说一定有什么不准确的地方，就是我少了一句状语：“在 ...

测试过LINE,ARC,LWPOLYLINE,SPLINE都能打断，没发现bug

zzl9105

语有唐突，请vormittag 别生气啊，本无恶意。
你上传的那个，和网友消遥网发我的一样，难道你就是他？
bug应该是排序出了问题，斜向的线，可以全部打断，横竖正交的，却不能？
感觉它应该可以排的呀？16楼的高手Andyhon ，可否现身指点下呀。
旋转一个角度，确实能全部打断，可是为啥呀，即使水平线，用y坐标排序，
失效后，不是还有一个x坐标吗？应该也能排的呀？
难道说先用x排好后，再用y排，反而能把它打乱了不成？（对于水平线）
有网友建议，将x,y,z整合到一个vl-sort中用cond分情况排序，可惜没写好
还有就是用距离排序，也写了一个，老是说缺参数，基础不扎实啊

vormittag

zzl9105 发表于 2011-10-20 16:14
语有唐突，请vormittag 别生气啊，本无恶意。
你上传的那个，和网友消遥网发我的一样，难道你就是他？
bu ...

1、我不是逍遥网。
2、这段代码完全是我自己写的。
3、我在网上也和别人交流过这个问题，他和你的思路一样，后来我把这段代码给了他。我不知道他是不是逍遥网。其实这些都不重要，我现在写的东西本来也想做成开源的freeware.
4、之前一直不想贴出来是因为我的同事在应用时出过错（也是有没打断的），因为我前前后后改了很多次，我也不确定他用的是那一版的，也不确定现在的版本是不是不出错了，想彻底查一下却总没时间。
5、排序的问题我再看看想想再说。

vormittag

排序还是不要考虑了。
下载了你的测试文件，作一点小改动，把一条直线的方向换了（起终点互换），用先排序点再打断的办法就不行了。打断图元的时候，原图元名的实体是线的起点到打断点的部分，打断点到终点的部分是新图元。如果foreach 的语句要得到想要的结果，ptlist的点要按照终点沿曲线到起点的顺序排列。这意味着，对于每一个图元，都要把ptlist点集重新排序，工作量太可怕了。

wade320

vormittag兄说的很中肯，而且思维明显周密很多，再说也是技术交流，楼主本来就是把源码贴出来让大家讨论的吗？开源的东西，本就是越多的人参与，程序越健壮，别人有好的意见，好的思路，我们是要吸收的。这样也利于自己提高，没有人敢说他做的所有的程序没有一点补丁，如果有高人看到自己程序的问题，我们要感谢人家，自己也会进步呀。

Gu_xl

    关于曲线选择集的交点打断，采用break方法是最容易想到的，编程也易于实现，但是用command方法打断这绝不是一个好方法，当选择集曲线数量有限时，效率也就无所谓，但是当选择集曲线数量很多时，效率就是我们不得不考虑的事情了，command方法是我们首先要排除使用的方法！
  我的方法是先计算出每个曲线上得交点，逐个曲线进行打断，打断的方法根据曲线的不同采用不同的方法，主要采用entmake方法和ax方法，仅对Spline采用break的方法，因为我还没找到使用entmake和ax打断Spline的方法！
  经测试，当选择约290个曲线，其交点个数约为2500个时，采用Break方法耗时近184秒，而不采用Break方法仅需11秒钟！两者效率差别，显而易见！