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

龙龙仔 · 发表于 2002-12-11 11:59:00

陈老师我重写了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)
)

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

发表回复

精选推荐