陈老师我重写了T828.LSP，但它连续执行时，执行时间有时快有时慢到底是甚么问题????

龙龙仔

陈老师我重写了T828.LSP，但它连续执行时，执行时间有时快有时慢到底是甚么问题????
(vl-load-com)
(defun C:GSA ()
  (setq TS (getvar "cdate"))
  ;;(vl-catch-all-apply 'vla-delete (list SST));;删除选集SST
  (setq DOC (vla-get-activedocument (vlax-get-acad-object)))
  (setq SST (vla-add (vla-get-selectionsets DOC) "Block-G"))
  (vla-select
    SST
    acselectionsetall
    NIL
    NIL
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbinteger
        '(0 . 1)
      )
      (list 0 2)
    )
    (vlax-safearray-fill
      (vlax-make-safearray
        vlax-vbvariant
        '(0 . 1)
      )
      (list "Insert" "G")
    )
  )
  (setq ALL 0)
  (vlax-for BNAME SST
    (setq ATTV (vla-get-textstring
                 (nth 0
                      (vlax-safearray->list
                        (vlax-variant-value
                          (vla-getattributes
                            BNAME
                          )
                        )
                      )
                 )
               )
    )
    (setq ALL (+ ALL (atof ATTV)))
  )
  (princ "\n(ActiveX) 结果数据= ")
  (princ ALL)
  (setq        TE (getvar "cdate")
        TT (* 1000000 (- TE TS))
  )
  (alert
    (strcat "ActiveX 完了。\n共耗时" (rtos TT 2 4) "秒...")
  )
  (princ)
)

陈伯雄