xdrx_polyline_make与vla-addpolyline速度比较

brainstorm

1. (progn
   
2. (setq plst nil)
   
3. (setq plst (repeat 4
   
4.              (setq plst (append plst (list (getpoint))))
   
5.            )
   
6. )
   
7. (setq plst1 (apply 'append
   
8.                    (append plst (list (car plst)))
   
9.             )
   
10. )
    
11. (setq points
    
12.        (vlax-make-safearray
    
13.          vlax-vbdouble
    
14.          (cons 0 (- (length plst1) 1))
    
15.        )
    
16. )
    
17. (vlax-safearray-fill points plst1)
    
18. )
    
19. 
    
20. (setq ms
    
21.        (vla-get-ModelSpace
    
22.          (vla-get-ActiveDocument
    
23.            (vlax-get-acad-object)
    
24.          )
    
25.        )
    
26. )
    
27. 
    
28. (defun C:tt2 ()
    
29.   (setq ts (getvar "cdate"))
    
30.   (repeat 5000
    
31.     (xdrx_polyline_make plst t)
    
32.   )
    
33.   (setq te (getvar "cdate"))
    
34.   (VL-PRIN1-TO-STRING (* 1e6 (- te ts)))
    
35. )
    
36. ;;;-------------------------------------------------------------------
    
37. (defun C:tt5 ()
    
38.   (setq ts (getvar "cdate"))
    
39.   (repeat 5000
    
40.     (vla-AddPolyline
    
41.       ms
    
42.       points
    
43.     )
    
44.   )
    
45.   (setq te (getvar "cdate"))
    
46.   (VL-PRIN1-TO-STRING (* 1e6 (- te ts)))
    
47. )
    

(progn<br /> (setq plst nil)<br /> (setq plst (repeat 4<br />              (setq plst (append plst (list (getpoint))))<br />            )<br /> )<br /> (setq plst1 (apply 'append<br />                    (append plst (list (car plst)))<br />             )<br /> )<br /> (setq points<br />        (vlax-make-safearray<br />          vlax-vbdouble<br />          (cons 0 (- (length plst1) 1))<br />        )<br /> )<br /> (vlax-safearray-fill points plst1)<br /> )<br /> <br /> (setq ms<br />        (vla-get-ModelSpace<br />          (vla-get-ActiveDocument<br />            (vlax-get-acad-object)<br />          )<br />        )<br /> )<br /> <br /> (defun C:tt2 ()<br />   (setq ts (getvar "cdate"))<br />   (repeat 5000<br />     (xdrx_polyline_make plst t)<br />   )<br />   (setq te (getvar "cdate"))<br />   (VL-PRIN1-TO-STRING (* 1e6 (- te ts)))<br /> )<br /> ;;;-------------------------------------------------------------------<br /> (defun C:tt5 ()<br />   (setq ts (getvar "cdate"))<br />   (repeat 5000<br />     (vla-AddPolyline<br />       ms<br />       points<br />     )<br />   )<br />   (setq te (getvar "cdate"))<br />   (VL-PRIN1-TO-STRING (* 1e6 (- te ts)))<br /> )<br />

tt2 "0.465661"  tt5 "1.59442"，xdrx快很多

newer

xdrx_polyline_make 可以创建直线段的PL，也可以创建带弧线的PL
(xdrx_polyline_make pts bulges)
(xdrx_polyline_make pts)

另外，测试效率函数可以用 xd::quickbench
(xd::quickbench '( (c:tt2)
                           (c:tt5)
                        )
)

brainstorm

bulge 是点表么？给指点一下

newer

brainstorm 发表于 2017-7-28 16:57

bulge 是 凸度， 是实数


多段线数据定义里面，弧线段是用 起点 凸度 终点 定义的。起点和终点在点表参数里面，凸度值放凸度表里面

凸度表可以由(xdrx_getpropertyvalue pline "bulges") 得到，也可以遍历节点，用 xdrx_polyline_getbulgeat 单个 得到表。

下面代码在原位置复制一个多段线。

1. (defun c:tt ()
   
2.   (if (setq
   
3.         e (car
   
4.             (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE")))
   
5.           )
   
6.       )
   
7.     (progn
   
8.       (setq elst (xdrx_getpropertyvalue e "vertices" "bulges"))
   
9.       (apply 'xdrx_polyline_make elst)
   
10.       (xdrx_entity_SetPropertiesFrom (entlast) e)
    
11.       (xdrx_prompt "\n原位置复制多段线完毕.")
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. 
    

(defun c:tt ()<br />   (if (setq<br />         e (car<br />             (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "LWPOLYLINE")))<br />           )<br />       )<br />     (progn<br />       (setq elst (xdrx_getpropertyvalue e "vertices" "bulges"))<br />       (apply 'xdrx_polyline_make elst)<br />       (xdrx_entity_SetPropertiesFrom (entlast) e)<br />       (xdrx_prompt "\n原位置复制多段线完毕.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />