内外修剪速度相差，上百倍，几千条线实验，

434939575

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

(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 /> (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 />       (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 /> (defun c:tt ( / d end-time h m na s start-time ts) ;修剪内部比外部慢几十甚至百倍。不知道什么问题<br />   (setq na (car (entsel "\n pick")))<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 /> )

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

newer

请上传个你测试时候的DWG.

longer88

嗯嗯，学习学习

434939575

newer 发表于 2018-7-26 22:56
请上传个你测试时候的DWG.

谢谢大师光临。就是不明白同样的代码，一个修剪内部要慢那么多

434939575

就是一个矩形，上下穿个他的线，任意的都可以,没特别要求

yangjian001

做一个热心并受欢迎的人

kqqt6236

学习一下。

栋梁

收藏了，学习学习

sicky111

正好有空，我也来测试一下。