请问修剪内部比外部慢几十甚至百倍。不知道什么问题

434939575

很多line或pline，两端通过矩形a.矩形a内部修剪很慢，外部修剪很快，其他地方不变，只是偏移一个图形选内，外，那里变化一下，其他代码均不变，速度相差，上百倍，几千条线实验，

1. (defun pts (SS0 / elist n ptlist) ;端点列表
   
2.   (setq ptlist nil)
   
3.   (setq elist (entget SS0))
   
4.   (foreach n elist
   
5.     (if  (or (= 10 (car n)) (= 11 (car n))) ;同时处理PLINE和 LINE
   
6.       (setq ptlist (cons (cdr n) ptlist))
   
7.     )
   
8.   )
   
9.   (setq ptlist (reverse ptlist))
   
10.   
    
11. )
    
12. 
    
13. (defun trim
    
14.        (na / las obj os ptlist sss x)
    
15.   
    
16.   (setq os (getvar "osmode"))
    
17.   (setvar "osmode" 0)
    
18.   (setq Obj (vlax-ename->vla-object na))
    
19. 
    
20.       (
    
21.        vla-offset obj
    
22.   ;-0.3
    
23.   0.3   ;这里内外偏移防误选
    
24. 
    
25.   )
    
26.       
    
27. 
    
28.       (setq las (entlast))
    
29.       (setq ptlist(pts las))
    
30.       (entdel las)
    
31.       (command "ZOOM" "o" na "")
    
32.    
    
33.       ;;------------------------------------------------------
    
34.       (repeat 2
    
35.   (command "regen" "")
    
36.   (if (SETQ
    
37.         SSS (SSGET "f"
    
38.        ptlist
    
39.        '((0 . "LWPOLYLINE,LINE,ARC,CIRCLE,ELLIPSE,hatch"))
    
40.       )
    
41.       )
    
42.     (progn (command ".trim" na "" "f")
    
43.      (foreach x ptlist (command x))
    
44.      (command "" "")
    
45.     ) ;progn
    
46.   )
    
47.       ) ;repeat
    
48.       ;;------------------------------------------------------
    
49.       (command "zoom" "p")
    
50.   
    
51. ;;;;;;;;;;
    
52.   (setvar "osmode" os)
    
53. )
    
54. 
    
55.    
    
56. (defun c:tt ( / d end-time h m na s start-time ts) ;修剪内部比外部慢几十甚至百倍。不知道什么问题
    
57.   (setq na (car (entsel "\n pick")))
    
58. 
    
59. (setq start-time (* 86400 (getvar "tdusrtimer")))
    
60.   (trim na)
    
61.   (if start-time
    
62.     (progn
    
63.       (setq end-time (* 86400 (getvar "tdusrtimer"))
    
64.      ts (- end-time start-time)
    
65.      d (rtos (fix (/ ts 86400.0)) 2 0)
    
66.      ts (rem ts 86400)
    
67.      h (rtos (fix (/ ts 3600.0)) 2 0)
    
68.      ts (rem ts 3600)
    
69.      m (rtos (fix (/ ts 60.0)) 2 0)
    
70.      ts (rem ts 60)
    
71.      s (rtos ts 2 2)
    
72.       )
    
73.       (if (> (distof d) 0)
    
74. (princ (strcat "\n用时 : " d "天" h "小时" m "分" s "秒"))
    
75. (if (> (distof h) 0)
    
76.    (princ (strcat "\n用时 : " h "小时" m "分" s "秒"))
    
77.    (if (> (distof m) 0)
    
78.      (princ (strcat "\n用时 : " m "分" s "秒"))
    
79.      (princ (strcat "\n用时 : " s "秒"))
    
80.    )
    
81. )
    
82.       )
    
83.     )
    
84.   )
    
85. )

(defun pts (SS0 / elist n ptlist) ;端点列表<br />   (setq ptlist nil)<br />   (setq elist (entget SS0))<br />   (foreach n elist<br />     (if  (or (= 10 (car n)) (= 11 (car n))) ;同时处理PLINE和 LINE<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (setq ptlist (reverse ptlist))<br />   <br /> )<br /> <br /> (defun trim<br />        (na / las obj os ptlist sss x)<br />   <br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq Obj (vlax-ename->vla-object na))<br /> <br />       (<br />        vla-offset obj<br />   ;-0.3<br />   0.3   ;这里内外偏移防误选<br /> <br />   ) <br />       <br /> <br />       (setq las (entlast))<br />       (setq ptlist(pts las))<br />       (entdel las)<br />       (command "ZOOM" "o" na "")<br />    <br />       ;;------------------------------------------------------<br />       (repeat 2<br />   (command "regen" "")<br />   (if (SETQ<br />         SSS (SSGET "f"<br />        ptlist<br />        '((0 . "LWPOLYLINE,LINE,ARC,CIRCLE,ELLIPSE,hatch"))<br />       )<br />       )<br />     (progn (command ".trim" na "" "f")<br />      (foreach x ptlist (command x))<br />      (command "" "")<br />     ) ;progn<br />   )<br />       ) ;repeat<br />       ;;------------------------------------------------------<br />       (command "zoom" "p") <br />   <br /> ;;;;;;;;;;<br />   (setvar "osmode" os)<br /> )<br /> <br />    <br /> (defun c:tt ( / d end-time h m na s start-time ts) ;修剪内部比外部慢几十甚至百倍。不知道什么问题<br />   (setq na (car (entsel "\n pick")))<br /> <br /> (setq start-time (* 86400 (getvar "tdusrtimer")))<br />   (trim na)<br />   (if start-time<br />     (progn<br />       (setq end-time (* 86400 (getvar "tdusrtimer"))<br />      ts (- end-time start-time)<br />      d (rtos (fix (/ ts 86400.0)) 2 0)<br />      ts (rem ts 86400)<br />      h (rtos (fix (/ ts 3600.0)) 2 0)<br />      ts (rem ts 3600)<br />      m (rtos (fix (/ ts 60.0)) 2 0)<br />      ts (rem ts 60)<br />      s (rtos ts 2 2)<br />       )<br />       (if (> (distof d) 0)<br /> (princ (strcat "\n用时 : " d "天" h "小时" m "分" s "秒"))<br /> (if (> (distof h) 0)<br />    (princ (strcat "\n用时 : " h "小时" m "分" s "秒"))<br />    (if (> (distof m) 0)<br />      (princ (strcat "\n用时 : " m "分" s "秒"))<br />      (princ (strcat "\n用时 : " s "秒"))<br />    )<br /> )<br />       )<br />     )<br />   )<br /> )

pengfei2010

不要用 command  ，自己想一下算法 就可以解决 的， 提供思路，先求交点，采用几何算法 交点打断，然后重绘，速度 很快 的

434939575

pengfei2010 发表于 2018-7-27 08:12
不要用 command  ，自己想一下算法 就可以解决 的， 提供思路，先求交点，采用几何算法 交点打断，然后重绘 ...

谢谢，我也是这么考虑的.就是不明白修剪内部为什么慢上百倍，外部快得很。

434939575

如果包含circle,spl,el,arc这种计算可能比较繁琐，我想法把修剪边界中间打断为2部分，要修剪部分复制一份，做两次修剪，因为只一个交点的修剪万个都是秒杀，这样也很快了。