entmakex和addtext的耗时比较

dcl1214

1. (PROGN (setq TIME0 (getvar "millisecs"))
   
2.        (SETQ PT (LIST 0 0 0))
   
3.        (REPEAT 10000
   
4.    (entmakeX
   
5.      (list
   
6.        '(0 . "TEXT")    ;图元类型：单行文字
   
7.        '(41 . 0.7)    ;宽度比例
   
8.        '(7 . "standard")    ;文字样式
   
9.        (cons 1 "内容")    ;文字内容
   
10.        (cons 8 "0")    ;图层名
    
11.        (cons 10 pt)    ;对齐点
    
12.        (cons 11 pt)    ;对齐点
    
13.        (cons 40 3)    ;文字高度
    
14.        (cons 62 2)    ;颜色，bylayer=256
    
15.        (cons 72 1)    ;文字水平对正类型：0 左，1 居中
    
16.        (cons 73 2)    ;文字垂直对正类型 2 = 居中对正
    
17.        (cons 50 0)    ;文字旋转角度
    
18.        (cons 51 0)    ;文字倾斜角度
    
19.      )
    
20.    )
    
21.    (SETQ PT (MAPCAR '+ PT (LIST 5 0 0)))
    
22.        )
    
23.        (print (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))
    
24. )
    
25. (PROGN
    
26.   (setq TIME0 (getvar "millisecs"))
    
27.   (SETQ  M?P (if  (= 1 (getvar 'CVPORT))
    
28.         'Paperspace
    
29.         'Modelspace
    
30.       )
    
31.   )
    
32.   (SETQ PT (LIST 0 0 0))
    
33.   (REPEAT 10000
    
34.     (vla-AddText
    
35.       (vlax-get-property
    
36.   (vla-get-activedocument
    
37.     (vlax-get-acad-object)
    
38.   )
    
39.   M?P
    
40.       )
    
41.       "内容"
    
42.       (vlax-3d-Point pt)
    
43.       (getvar "textsize")
    
44.     )
    
45.     (SETQ PT (MAPCAR '+ PT (LIST 5 0 0)))
    
46.   )
    
47.   (print (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))
    
48. )
    

(PROGN (setq TIME0 (getvar "millisecs"))<br />        (SETQ PT (LIST 0 0 0))<br />        (REPEAT 10000<br />    (entmakeX<br />      (list<br />        '(0 . "TEXT")    ;图元类型：单行文字<br />        '(41 . 0.7)    ;宽度比例<br />        '(7 . "standard")    ;文字样式<br />        (cons 1 "内容")    ;文字内容<br />        (cons 8 "0")    ;图层名<br />        (cons 10 pt)    ;对齐点<br />        (cons 11 pt)    ;对齐点<br />        (cons 40 3)    ;文字高度<br />        (cons 62 2)    ;颜色，bylayer=256<br />        (cons 72 1)    ;文字水平对正类型：0 左，1 居中<br />        (cons 73 2)    ;文字垂直对正类型 2 = 居中对正<br />        (cons 50 0)    ;文字旋转角度<br />        (cons 51 0)    ;文字倾斜角度<br />      )<br />    )<br />    (SETQ PT (MAPCAR '+ PT (LIST 5 0 0)))<br />        )<br />        (print (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))<br /> )<br /> (PROGN<br />   (setq TIME0 (getvar "millisecs"))<br />   (SETQ  M?P (if  (= 1 (getvar 'CVPORT))<br />         'Paperspace<br />         'Modelspace<br />       )<br />   )<br />   (SETQ PT (LIST 0 0 0))<br />   (REPEAT 10000<br />     (vla-AddText<br />       (vlax-get-property<br />   (vla-get-activedocument<br />     (vlax-get-acad-object)<br />   )<br />   M?P<br />       )<br />       "内容"<br />       (vlax-3d-Point pt)<br />       (getvar "textsize")<br />     )<br />     (SETQ PT (MAPCAR '+ PT (LIST 5 0 0)))<br />   )<br />   (print (/ (- (getvar "millisecs") TIME0 0.0) 1000.0))<br /> )<br />

baitang36

显示：
2.703
1.234

kozmosovia

多少年前就有定论。vl比ent快

masterlong

CAD2012
emk快

自贡黄明儒

我用bircscad,加载lisp都慢得很，要等几分钟，无所谓哪个快一点了。

dcl1214

kozmosovia 发表于 2023-3-2 09:48
多少年前就有定论。vl比ent快

50万个文字的时候，entmake要快