怎么entmake还是比VLA-add慢呢

77077

2. (defun c:tt1( / modelspace pt t0)
   
3.   (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))
   
4.   (setq PT (vlax-3D-point '(0 0)))
   
5.   (setq t0 (getvar "TDUSRTIMER"));计时开始
   
6.   (repeat 10000
   
7.      (vla-addtext modelspace "文字" PT 2.25)
   
8.    )
   
9. (princ (strcat "耗时：" (rtos(* (- (getvar "TDUSRTIMER") t0) 86400)) "秒."));计时结束
   
10. (princ)
    
11. )
    
12. 
    
13. (defun c:tt2 ( / lst t0)
    
14. (setq lst(list '(0 . "text") '(1 . "文字") '(40 . 2) (list 10 0 0)))
    
15. (setq t0 (getvar "TDUSRTIMER"));计时开始
    
16. (repeat 10000
    
17.   (entmake lst)
    
18. )
    
19. (princ (strcat "耗时：" (rtos(* (- (getvar "TDUSRTIMER") t0) 86400)) "秒."));计时结束
    
20. (princ)
    
21. )

(defun c:tt1( / modelspace pt t0)<br />   (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))<br />   (setq PT (vlax-3D-point '(0 0)))<br />   (setq t0 (getvar "TDUSRTIMER"));计时开始<br />   (repeat 10000<br />      (vla-addtext modelspace "文字" PT 2.25)<br />    )<br /> (princ (strcat "耗时：" (rtos(* (- (getvar "TDUSRTIMER") t0) 86400)) "秒."));计时结束<br /> (princ)<br /> )<br /> <br /> (defun c:tt2 ( / lst t0)<br /> (setq lst(list '(0 . "text") '(1 . "文字") '(40 . 2) (list 10 0 0)))<br /> (setq t0 (getvar "TDUSRTIMER"));计时开始<br /> (repeat 10000<br />   (entmake lst)<br /> )<br /> (princ (strcat "耗时：" (rtos(* (- (getvar "TDUSRTIMER") t0) 86400)) "秒."));计时结束<br /> (princ)<br /> )

经过多次测试，怎么entmake还是比VLA-add慢呢，何解？

danxingpen

.....这个真心没有看到数据.....要想得到结果必须要有数据。。。。。

Kye

不会吧 觉得vla-AddTable 绘制表格比 用entmake 划线慢，entmake 划线好像也不快，哪位老师能提供点ARX 绘制表格简短点的源程序吗，增加点学C++源动力