dcl1214 发表于 2020-11-5 22:59:45

entmakex和addtext的耗时比较

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

baitang36 发表于 2023-3-2 09:39:44

显示：
2.703
1.234

kozmosovia 发表于 2023-3-2 09:48:08

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

masterlong 发表于 2023-3-3 10:06:23

CAD2012
emk快

自贡黄明儒 发表于 2023-3-3 11:53:13

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

dcl1214 发表于 2023-3-4 13:37:49

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

50万个文字的时候，entmake要快
页: [1]
查看完整版本: entmakex和addtext的耗时比较